Как поместить в буфер файл с помощью File Mapping?

Previous  Top  Next

    
 

 

1.

В файлике Delphi5\Demos\Resxplor\exeimage.pas ищи слово CreateFileMapping

2.

идея простая открываешь файл .. (или создаешь)

создаешь Mapping ... CreateFileMapping

отображаешь Mapping в свой процесс MapViewOfFile

и всё

 

Code:

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);

 

 

 

©Drkb::03189

Взято с Vingrad.ru http://forum.vingrad.ru