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

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

Проблема с чтением из файла

zaN0za ©   (2006-04-30 15:37:00) 

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

Почему не работает такой код?:

procedure ReadConfig;
var
 hFile  : Cardinal;
 dwSize : DWORD;
 dwBWrt : DWORD;
 lpData : PChar;

begin
 hFile := CreateFile('config.ini', GENERIC_READ, FILE_SHARE_READ, nil,
                     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 case hFile of
   DWORD(-1) : Exit;
 end;

 dwSize := GetFileSize(hFile, nil);
 case dwSize of
   0 : Exit;
 end;  

 lpData := VirtualAlloc(nil, dwSize, MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE);
 ReadFile(hFile, lpData, dwSize, dwBWrt, nil);

 MessageBox(0, lpData , 'Config' ,0);

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

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

---

GanibalLector   (2006-04-30 15:58:00) [1]

> ReadFile(hFile, lpData, dwSize, dwBWrt, nil);
ReadFile(hFile, lpData^, dwSize, dwBWrt, nil);

---

Наверх