24.08.2009, 17:54
|
|
Познающий
Регистрация: 17.03.2007
Сообщений: 98
С нами:
10080415
Репутация:
45
|
|
Подскажите по этой ф-ии
PHP код:
function GetFileData(szFile: PChar): PChar;
var
hFile, dwSize, dwBytes: DWORD;
begin
Result := '';
hFile := CreateFile(szFile, GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
if hFile <> INVALID_HANDLE_VALUE then
begin
dwSize := GetFileSize(hFile, nil);
Result := VirtualAlloc(nil, dwSize, MEM_COMMIT, PAGE_READWRITE);
ReadFile(hFile, Result^, dwSize, dwBytes, nil);
end;
CloseHandle(hFile);
end;
При отладке смотрю переменную result и вот косяк - текстовый файл читается замечательно, а вот бинарник только первые 5-10 байт. Как победить?
Последний раз редактировалось 2pick; 24.08.2009 в 21:14..
|
|
|