Текущий архив: 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.063 c
