ReadFile

← →
Igit (2003-10-23 17:13) [0]

var
_hFile : THANDLE;
szFile : string;
dwFileSize : DWORD;
_hGlobal : HGLOBAL;
pvData : Pointer;
dwBytesRead : DWORD;
begin
.......................................
szFile:="C:\test.jpg";
_hFile :=CreateFile(PChar(szFile), GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0);
dwFileSize := GetFileSize(_hFile, NIl);
_hGlobal := GlobalAlloc(GMEM_MOVEABLE, dwFileSize);
pvData := GlobalLock(_hGlobal);
dwBytesRead := 0;
ReadFile(_hFile, pvData, dwFileSize, dwBytesRead, NIL);

на ReadFile все запарывается.

← →
clickmaker (2003-10-23 17:19) [1]

ReadFile(_hFile, pvData^, dwFileSize, dwBytesRead, NIL);

← →
MBo (2003-10-23 17:20) [2]

pvData^

← →
Igit (2003-10-23 17:23) [3]

Спасибо.

ReadFile Найти похожие ветки