прочитать файловый формат

[IvanSCM]

Я в дельфи не новичек, но и не профи. Просто с таким я не сталкивался еще. Есть файл. Есть тех. документация на него. А как работать с бинарными файлами я незнаю.

12 байт заголовок файла. 4 byte - DWORD - section identifier
4 byte - DWORD - section size, including child sections and/or data
4 byte - DWORD - RW version ID.

Подскажите что не так?

type TDFFHeader = record
     ident, size, version: dword;
  end;

function readHeader(FileName: string): TDFFHeader;
var
  Buffer: byte;
  FS : TFileStream;
begin
  FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    FS.Read(Buffer, 12);
    with Result do 
    begin
      Version := ???????
    end;
  finally
    FS.Free;
  end;
end;

[BOBAH13]

может var Buffer: не Byte a TDFFHeader.. и почему вы написали Vyte ? и писать можно не Read(Buffer, 12) а Read(Buffer, SizeOf(Buffer));

[IvanSCM]

Ничего не понял. Вы не могли бы поподробней. Буду благодарен если приведете пример.

[pu4koff]

...
var
  buffer: TDFFHeader;
...
  FS.Read(buffer, sizeof(buffer));
...

[IvanSCM]

а как получить version

[BOBAH13]

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

а как получить version

Гм... вы говорите что вы не новичек ? и написать что трудное такое Buffer.Version ? :D надо вам для начала книжечку почитать...

[IvanSCM]

Получать version буду например так:

  with readDFFHeader(od.FileName) do
      begin
      Memo1.Lines.Add('Версия: '+IntToStr(Version));
      end

Не ясно откуда функция будет "знать" что TDFFHeader состоит из 12 байтов? И что version это 4 последних из этих 12ти?

[BOBAH13]

Вы же писали что вам известен формат файла ? Или что, вы пишите работу с форматом файла а потом говорите что ничего незнаите о нем и как мне написать с ним работу ? ;D ну это уже сменшо...

Вам вопрос: Вы знаите или нет формат файла ? если нет тогда вообще зачем было вопрос задавать ?

тогда зачем вы писали это?

12 байт заголовок файла. 4 byte - DWORD - section identifier
4 byte - DWORD - section size, including child sections and/or data
4 byte - DWORD - RW version ID.

[IvanSCM]

Хорошо. Помогите мне написать код. Открыть файл, 4 байта занести в переменную section, следущие 4 в size, и следущие 4 в version.

[BOBAH13]

var head: packed record
    section: DWORD;
    size: DWORD;
    version: DWORD
  end;
  f: File;
begin
  {$I-}
  AssignFile('strangefile.ext', f);
  Reset(f, 1);
  FillChar(head, SizeOf(head));
  BlockRead(f, head, SizeOf(head));
  CloseFile(f);
  {$I+}
end;

теперь юзайте поля head.Section или size или version... что не понятно ?