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

← →
Alfred © (2002-11-26 10:52) [0]

Подскажите, пожалуйста, что делать, если надо создать файл в оперативной памяти, заполнить его данными, работать с ним как с обычным файлом, обращаться к нему, в том числе, с помощью функции LoadFromFile

← →
MBo © (2002-11-26 11:11) [1]

Как я понял, нужно CreateFileMapping с 0xFFFFFFFF

← →
Alfred © (2002-11-26 13:00) [2]

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

← →
Romkin © (2002-11-26 13:06) [3]

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

HMap:=CreateFileMapping(Dword(-1),nil,PAGE_READWRITE,0,NeededSize,pchar(NeededName));

Ребята, спасибо за ответы!
Написал код:
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?

Файлы в оперативной памяти Найти похожие ветки