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

Тема в разделе "Другие языки", создана пользователем 2pick, 24 авг 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. 2pick

    2pick Постоялец

    Регистр.:
    15 мар 2009
    Сообщения:
    102
    Симпатии:
    29
    Начинаю тему... :)
    Подскажите по этой ф-ии

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

    jik

    Регистр.:
    11 мар 2009
    Сообщения:
    243
    Симпатии:
    133
    1) Что в переменной dwSize? тоже 5-10 байт?
    2) При просмотре Result в Watch Properties укажите Memory Dump вместо String.

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