Здравствуйте, уважаемые!
Вопрос в следующем: проецирую файл в память, его содержимое загоняю в Мемо (текстовый файл менее 40 кб). изменяю его в Мемо, а теперь как его вернуть взад на диск? FlushViewOfFile не работает вообще. Приведу части исходника. Как записать изменения, сделанные в Мемо обратно в текстовый файл на диске. Сделать это надо в Вин98 и в Вин2000. Кроме того, когда мэплю файл в Вин98 и вывожу его содержимое - в отображении появляется всякая хрень. В вин2000 такого нет. Заранее спасибо

var
Data: Pointer;
HFile, HMMF: THandle;
PathToFile : Pchar;

Begin

HFile := CreateFile ( Pchar (PathToFile),Generic_All, File_Share_Read
or File_Share_Write,
nil, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN,0 );
If ( HFile = 0 ) then Begin
ShowMessage('Error on stage CreateFile!');
EXIT;
End;

HMMF := CreateFileMapping (hFile,nil,PAGE_READWRITE,0,0,'Leha' );

If HMMF = 0 then Begin
ShowMessage(' Error on stage CreateFileMapping' );
exit;
End;
// Data := nil;

Data := MapViewOfFile (HMMF, FILE_MAP_ALL_ACCESS, 0, 0, 0 );
If Data = nil then
SHowMessage('ERROR!!!');

memo1.SetTextBuf(Data);
End;

Видимо, что SetTextBuf фомрирует новый блок данных, являющийся копией текста, на который указывает передаваемый указатель. Так что делай так:

[code=] Memo1.GetTextBuf(Data, Memo1.GetTextLen);
FlushViewOfFile(Data, Memo1.GetTextLen);[/CODE]

Но учти что размер спроецированного файла, если мне не изменяет память, нельзя изменить, без перепроецирования) Так что если тебе нужно сохранить текст большего размера, то учитывай это, по возможности, заранее, либо заново проделывай все операции.

Перенесенно из раздела Delphi