Текущий архив: 2006.12.17;
Скачать: CL | DM;

Вниз

проблема с ReadFile   Найти похожие ветки 

← →
ph0sgen ©   (2006-08-10 12:15) [0]

Здравствуйте, уважаемые мастера.


procedure GetData(szFilePath: PChar);
var
 hFile    : DWORD;
 dwSize   : DWORD;
 dwBytes  : DWORD;
 lpBuffer : Pointer;

begin
 hFile:=CreateFile(swFilePath,
                   GENERIC_READ,
                   FILE_SHARE_READ or FILE_SHARE_WRITE,
                   nil,
                   OPEN_EXISTING,
                   0,
                   0);
 case hFile of DWORD(-1) : Exit; end;

 dwSize := GetFileSize(hFile, nil);

 lpBuffer := VirtualAlloc(nil, dwSize, MEM_COMMIT, PAGE_READWRITE);

 ReadFile(hFile, lpBuffer, dwSize, dwBytes, nil);

 MessageBox(0,lpBuffer,0,0);

 VirtualFree(lpBuffer, 0, MEM_RELEASE);
 CloseHandle(hFile);
end;


Не работает :(
Нужна ваша помощь.

Спасибо за внимание.

---

← →
Сергей М. ©   (2006-08-10 12:18) [1]

ReadFile(hFile, lpBuffer^, dwSize, dwBytes, nil);

---

← →
clickmaker ©   (2006-08-10 12:18) [2]

что возвращает ReadFile? (в т.ч. и в dwBytes)
что скажет GetLastError() после ReadFile?

---

← →
begin...end ©   (2006-08-10 12:19) [3]

> ph0sgen ©   (10.08.06 12:15)

> ReadFile(hFile, lpBuffer, dwSize, dwBytes, nil);

ReadFile(hFile, lpBuffer^, dwSize, dwBytes, nil);

---

← →
Fay ©   (2006-08-11 06:22) [4]

Помню, как я задавал такой-же вопрос 8)

---

Страницы: 1 вся ветка

Текущий архив: 2006.12.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.052 c