[eastwoodknight]

Требуется открыть бинарный файл и заполнить массив переменных типа word. Вот мой код:

Код:

var
 OpenDialog  :TOpenDialog;
  kt:Cardinal;
  filehandle: THandle;
  file_inf: TOFStruct;
  buf: array of word;
begin
  openDialog := TOpenDialog.Create(self);
  openDialog := TOpenDialog.Create(self);
  if openDialog.Execute
  then begin
     filehandle :=   OpenFile(PChar(openDialog.FileName),file_inf,OF_READWRITE);
     size :=  GetFileSize(filehandle,nil);
     SetLength(buf,size div 2 + 1 );
     ReadFile(filehandle,buf,size,kt,nil);
     CloseHandle(FileHandle);
  end;
end;

Админ: Пользуемся тегами для оформления кода!

Вопрос: почему массив остается незаполненным?

[PS11011010]

Нужно использовать WriteFile вместо ReadFile.

[Pyro]

не, нужно передавать указатель на нулевой элемент @buf[0]

[Bargest]

Лучше использовать CreateFile(...)

Обратите внимание! на то, что эта функция предусматривается только для совместимости с 16-разрядными версиями Windows. Новые приложения должны использовать функцию CreateFile.

[angvelem]

Весь прикол кода ТС в том, что ему вообще не нужны API-ные команды. После применения:

Код:

  openDialog := TOpenDialog.Create(self);

их ценность падает до нуля.

[cotseec]

Код:

var
  OpenDialog  :TOpenDialog;
  kt:Cardinal;
  filehandle: THandle;
  buf: array of word;
begin
  openDialog := TOpenDialog.Create(self);
  if openDialog.Execute
  then begin
     filehandle :=CreateFile(pChar(openDialog.FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
     size :=  (GetFileSize(filehandle,nil) div SizeOf(word))+1;
     SetLength(buf,size);
     ReadFile(filehandle,buf[0],size,kt,nil);
     CloseHandle(FileHandle);
  end;
  openDialog.Free;
end;

а почему бы не использовать TFileStream ?
и для помощи