| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблема с ReadFile

ph0sgen ©   (2006-08-10 12:15:00) 

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


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;


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

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

---

Fay   (2006-08-11 06:22:00) [1]

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

---

begin...end   (2006-08-10 12:19:00) [2]

> ph0sgen ©   (10.08.06 12:15)

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

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

---

Сергей М.   (2006-08-10 12:18:00) [3]

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

---

clickmaker   (2006-08-10 12:18:00) [4]

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

---

Наверх