FAQ Delphi - задай вопрос и получи ответ.

[2pick]

Начинаю тему...
Подскажите по этой ф-ии

 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 байт. Как победить?

 

[jik]

1) Что в переменной dwSize? тоже 5-10 байт?
2) При просмотре Result в Watch Properties укажите Memory Dump вместо String.

Послесловие: указывайте, пожалуйста, версию delphi, с которой работаете.