Как поместить в буфер файл с помощью File Mapping?
Falk0ner, вс, 06/07/2008 - 15:34.
1.
В файлике Delphi5\Demos\Resxplor\exeimage.pas ищи слово CreateFileMapping
2.
идея простая открываешь файл .. (или создаешь)
создаешь Mapping ... CreateFileMapping
отображаешь Mapping в свой процесс MapViewOfFile
и всё
var
SharedHandle: THandle;
FileView: Pointer;
MyFile: HFILE;
begin
MyFile := OpenFile('c:\1.txt', // pointer to filename
..., // pointer to buffer for file information
... // action and attributes
);
SharedHandle := CreateFileMapping(MyFile, nil, PAGE_READWRITE, 0,
size {размер файла}, PChar('MyFile'));
FileView := MapViewOfFile(SharedHandle, FILE_MAP_WRITE, 0, 0, size {размер файла});
...
...
...
...
// потом
UnmapViewOfFile(FileView);
SharedHandle: THandle;
FileView: Pointer;
MyFile: HFILE;
begin
MyFile := OpenFile('c:\1.txt', // pointer to filename
..., // pointer to buffer for file information
... // action and attributes
);
SharedHandle := CreateFileMapping(MyFile, nil, PAGE_READWRITE, 0,
size {размер файла}, PChar('MyFile'));
FileView := MapViewOfFile(SharedHandle, FILE_MAP_WRITE, 0, 0, size {размер файла});
...
...
...
...
// потом
UnmapViewOfFile(FileView);
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий