Запись в буфер Delphi & Asm

[SteelRat]

Приветствую. Ситуация такова. У меня есть буфер в котором будет картинка. При записи в него выскакивает Access Sharing Violation. Я, в принципе, не новичок в программировании, но это моя первая Windows-программа. Раньше как-то ДОСа всё хватало. От Гугла я уже опух и ничего не соображаю. Код примерно такой:

 asm
   push edi
   mov edi, OutBufPtr
   xor al, al
   stosb  { тут собсна и ошибка доступа к памяти }
   pop edi
end;

Спасибо.

[SteelRat]

Эмн... Может я плохо обрисовал задачу? Или так вообще не делают? =)

[SteelRat]

Нашел у немцев.

http://www.fh-wedel.de/~bek/asm/uebss02/ueb08a.html

У меня в принципе всё так же. Может память как-то зарезервировал не так. Не понимаю пока.

[rpy3uH]

страница в которой находятся данные должна быть c флагом доступа PAGE_WRITE

[SteelRat]

Как этот флаг выставляется?
В коде этого немца не увидел, вроде, команд о разрешении доступа и тому подобного. Вот.

[rpy3uH]

Выставляется через VirtualProtect

[SteelRat]

Попытался. Делать надо так?

VirtualProtect(OutBufPtr, Width*Height, PAGE_WRITE, OldOutBufPtr);


Во-первых, PAGE_WRITE нигде не определено. Пытался писать различные числовые значения - не угадал.

Во-вторых. В Helpe к Дельфи нигде не нашел ни описания VirtualProtect, ни PAGE_WRITE - ничего. Параметры функции нашел лишь потому, что она описана в юните Windows.


И для чего нужен последний параметр функции?
У меня Дельфи 7.

[rpy3uH]

пробуй PAGE_READWRITE последний параметр функции нужен для того чтобы сохранить туда старые атрибуты защиты

 var 
   oldpr:DWORD;
.......
   virtualprotect(,,PAGE_READWRITE,@oldpr); // или  virtualprotect(,,PAGE_READWRITE,oldpr)

[SteelRat]

Работать работает, но доступа как не было так и нет. Нутром чую - ошибка где-то мелкая-мелкая. Не пойму пока ничего.

[SteelRat]

// Version 1.2 (Juni-09 2004)
// included compiler switch {$0+}. In Delphi 6 and 7 projects using this code
// with compiler optimizations turned off will raise an access violation
// {$O+} will ensure that this unit runs with compiler optimizations.
// This option does *not* influence other parts of the project including this
// unit.
// Thanks to Ralf Manschewski for pointing out this problem.

Нашел здесь http://www.delphipraxis.net/topic115...ndecoding.html

Но не помогло. =)