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

Вниз

Проблема с чтением из файла   Найти похожие ветки 

← →
zaN0za ©   (2006-04-30 15:37) [0]

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

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

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) [1]

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

---

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

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

Наверх

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