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

Вниз

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

← →
Svin   (2005-10-16 17:43) [0]

Что-то не догоняю не работает такой код

nFileSize:DWORD;
WriteBuffer:PChar;
nBytesRead:Integer;

hFilePC:=CreateFile(PChar(Source),GENERIC_READ,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
nFileSize:=GetFileSize(hFilePC,nil);
WriteBuffer:=AllocMem(nFileSize);
ReadFile(hFilePC,WriteBuffer,nFileSize,nBytesRead,nil);
CloseHandle(hFilePC);

отчего так? эксцепшн вылетает.

---

← →
Германн ©   (2005-10-16 17:58) [1]

ReadFile(hFilePC,WriteBuffer^,nFileSize,nBytesRead,nil);

---

← →
Fay ©   (2005-10-16 19:23) [2]

2 Svin   (16.10.05 17:43)
Почему nFileSize:DWORD, а nBytesRead:Integer ?

---

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

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

Наверх

Память: 0.46 MB
Время: 0.045 c