[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 ?
и для помощи

[angvelem]

Сообщение от cotseec

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

Достаточно использовать BlockRead.

[eastwoodknight]

Спасибо большое всем за помощь, заработало!
Ранее я это выполнил с помощью TFileStream но столкнулся со следующей проблемой - моя программа прерывала работу другой программы, записывающей бинарные данные с детекторного комплекса. Так что идея была - перейти на win api, потому что он дозволяет синхронную работу с файлом двух приложений.
Правда теперь возникла другая проблема. С помощью метода seek filestrem'а можно было отслеживать и выводить последние записанные данные, а не заполнять по новой все массивы. А теперь как-то непонятно. Ни у block read, ни у fileread вроде нет возможности читать файл с избранной точки. Что делать?

[lmikle]

Для TFileStream надо просто передавать в последнем параметре режим открытия, что то типа fmOpenRead Or fsShareWrite (посмиотри в справке). Тогда не будет блокировать.

[Bargest]

Seek (для делфовых файлов и BlockRead), SetFilePointer (WinAPI).

[eastwoodknight]

Еще раз большое спасибо))