Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Файлы в оперативной памяти [D5]

Alfred © (2002-11-26 10:52:00)
Подскажите, пожалуйста, что делать, если надо создать файл в оперативной памяти, заполнить его данными, работать с ним как с обычным файлом, обращаться к нему, в том числе, с помощью функции LoadFromFile

Alfred (2002-11-26 15:45:00) [1]
Ребята, спасибо за ответы!
Написал код:
procedure TForm1.SpeedButton1Click(Sender: TObject);
Const
MemFileSize = 1024;
MemFileName = "T.t";
var
MemHnd : HWND;
bl: Boolean;
buf, buf1: Shortint;
i: Integer;
q, g: Cardinal;
begin
MemHnd := CreateFileMapping(INVALID_HANDLE_VALUE,
nil,PAGE_READWRITE,0,MemFileSize,MemFileName);

bl := false;
OpenFileMapping(FILE_MAP_WRITE,false,MemFileName);
for i := 1 to 10 do
begin
Buf := i;
WriteFile(MemHnd,Buf,1,q,nil);
end;
CloseHandle(MemHnd);
OpenFileMapping(FILE_MAP_READ,bl,MemFileName);
for i := 1 to 10 do
begin
ReadFile(MemHnd,Buf1,1,g,nil);
ShowMessage(IntToStr(buf1));
end;

CloseHandle(MemHnd);
MemHnd := NULL;

end;

При компиляции выдает:
[Hint] Unit1.pas(56): Value assigned to "MemHnd" never used
В файле, если он создался, похоже ничего нет.
В конце работы выдает: " ... "External excrption C0000008"
Может быть подскажете, что не так сделал?
И можно ли такой файл читать функцией LoadFromFile?

Romkin (2002-11-26 13:06:00) [2]
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15
Там ищи пример CreateFileMapping, только рекомендую вместо $FFFFFFFF написать INVALID_HANDLE_VALUE - как раз то же значение, и совместимость сохраняется

MBo (2002-11-26 13:06:00) [3]
HMap:=CreateFileMapping(Dword(-1),nil,PAGE_READWRITE,0,NeededSize,pchar(NeededName));

Alfred (2002-11-26 13:00:00) [4]
МВо, Спасибо!
Смотрел help - понять трудно
([Error] Unit1.pas(30): Not enough actual parameters)
В виде исключения, нельзя ли
самый минимальный пример

MBo (2002-11-26 11:11:00) [5]
Как я понял, нужно CreateFileMapping с 0xFFFFFFFF

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »