Конвертер бинарных данных

[royun]

Есть бинарный файл, я написал программку, которая считывает ее. А также есть описание структуры файла, не могу понять как использовать ее, в смысле как написать эту структуру программно. Я так понял описание структуры файла используется чтобы мы правильно прочитали этот файл. Вот вложил описание этого файла.

[chertovich]

Видимо кто-то, вместо использования БД, решил создать свою структуру файла данных, при этом очень нагруженную. Ну что сказать, разбирайтесь и пишите, все возможно, только придется приложить немного мозгов и время.
Конечно было бы здорово сразу считывать целую структуру данных, так и нужно, но "вгонять" её в память надо поэлементно (по полям записи). Весь код надо разбить на логические блоки:
1. Считывает следующий блок
2. Обрабатывает и добавляет стуктуру (запись) в массив
и тд.
Вначале надо разобраться (если не ясно), любую сложную задачу можно решить разбив её на мелкие, легкие "куски".
Скажите спасибо создателям структуры этого файла, хотя бы за то, что есть документация

[royun]

И так вот что у меня получилось.

type
  AMA = packed record
  RecId : Byte;  //Идентификатор записи
  LenRec : Word; //Длина записи
  Flags : array[1..3] of Byte; //Флажки
  SeqAndStat : Byte; //Посл-сть записи Статус оплаты
  LenLacAndOwnId : Byte; //Длина LAC и ID владельца
  {DnA : TStream; - Проблема в том что не умею работать с потоками: как использовать поток затем вывести данные}
  DnA : array[1..5] of Byte; //Переменная часть - Номер абонента А -    
                             //значение массива просто подобрал исп. hexviewer
                             //Если просто пишу DnA : array of Byte; то выходит 
                             //ошибка, где говорится о том что требуется 
                             //финализация переменной  f: file of AMA;
                             //Значение переменного массива рассчитывается как 
                             //DnA : array[1..i] of Byte где i = div [(LenLacAndOwnId+1)/2]
  //Описание Пакета № 100
  Np100 : Byte; //Номер пакета
  Date : array[1..3] of Byte; //Дата
  Time : array[1..3] of Byte; //Время
  Flags100 : Byte; //Флажки Пакета № 100
  Prod : array[1..3] of byte;//Прод-сть
  //Описание Пакета № 101
  Np101 : Byte; //Номер пакета
  LenDnB : Byte; //Длина номера абонента Б
  {DnB : TStream; - Проблема в том что не умею работать с потоками: как использовать поток затем вывести данные}
  DnB : array[1..1] of Byte;  //Переменная часть - Номер абонента Б - 
                              //значение массива просто подобрал исп. hexviewer
                              //Если просто пишу DnA : array of Byte; то выходит  
                              //ошибка, где говорится о том что требуется 
                              //финализация переменной  f: file of AMA;
                             //Значение переменного массива рассчитывается как 
                             //DnB : array[1..j] of Byte где j = div [(LenDnB+1)/2]
  //Описание Пакета № 130
  Np130 : Byte; //Номер пакета
  LenP : Byte; //Длина пакета
  Zp : Word; //Значение причины
  RezAndOpr : byte; //Резерв и определение
  //Описание Пакета № 103
  Np103 : Byte; //Номер пакета
  TeTv : array[1..3] of byte; // Тарифные единицы для тарификации вызова
 
  end;
    TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    OpenDialog: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of AMA;
  open : Topendialog;
  Rec : AMA;
  Buffer : array [0..8191] of byte;
  NumRecsRead,t : integer;
begin
  memo1.Clear;
  open := TOpenDialog.Create(self);
  open.InitialDir := 'C:\000';
  open.Options := [ofFileMustExist];
  open.Filter :=  'ama files|*.*';
  open.Execute;
  AssignFile(f,open.FileName);
  {$I-}
  Reset(f);
  {$I+}
  seek(f,0);
  {while not eof(f) do
  begin}
  Read(f,Rec);
  memo1.Lines.Add(inttostr(Rec.RecId) + ' - ИДЕНТИФИКАТОР ЗАПИСИ');
  memo1.Lines.Add(inttostr(Rec.LenRec) + ' - ДЛИНА ЗАПИСИ');
  memo1.Lines.Add(inttostr(Rec.Flags[1]) + ' - Флажок F12');
  memo1.Lines.Add(inttostr(Rec.Flags[2]) + ' - Флажок F12');
  memo1.Lines.Add(inttostr(Rec.Flags[3]) + ' - Флажок F12');
  memo1.Lines.Add(inttostr(Rec.SeqAndStat) + ' - Посл-сть записи и статус оплаты');
  memo1.Lines.Add(inttostr(Rec.LenLacAndOwnId) + ' - Длина LAC и ID владельца');
  memo1.Lines.Add(inttohex(Rec.DnA[1],1) + inttohex(Rec.DnA[2],1) + inttohex(Rec.DnA[3],1) + inttohex(Rec.DnA[4],1) + inttohex(Rec.DnA[5],1) + ' - Номер абонента А');
  //Выводим пакет № 100
  memo1.Lines.Add(inttostr(Rec.Np100) + ' - Номер пакета');
  memo1.Lines.Add(inttohex(Rec.Date[3],1) +'.'+ inttohex(Rec.Date[2],1) +'.'+ inttohex(Rec.Date[1],1) + ' - Дата');
  memo1.Lines.Add(inttostr(Rec.Time[1]) +':'+ inttostr(Rec.Time[2]) +':'+ inttostr(Rec.Time[3]) + ' - Время');
  memo1.Lines.Add(inttohex(Rec.Prod[3],1) +':'+ inttohex(Rec.Prod[2],1) +':'+ inttohex(Rec.Prod[1],1) + ' - Продолжительность');
  //Выводим пакет № 101
  memo1.Lines.Add(inttostr(Rec.Np101) + ' - Номер пакета');
  memo1.Lines.Add(inttostr(Rec.LenDnB) + ' - Длина номера абонента Б');
  memo1.Lines.Add(inttostr(Rec.DnB[1]) + ' - Номера абонента Б');
  //Выводим пакет № 130
  memo1.Lines.Add(inttostr(Rec.Np130) + ' - Номер пакета');
  memo1.Lines.Add(inttostr(Rec.LenP) + ' - Длина пакета');
  memo1.Lines.Add(inttostr(Rec.Zp) + ' - Причина');
  memo1.Lines.Add(inttostr(Rec.RezAndOpr) + ' - Резерв и определение');  
 
  {end;}
  CloseFile(f);
  end;]

Как обойти ошибку которая требует финализации переменной f: file of AMA или дайте ссылочку где можно почитать про работу с потоками.

[mss]

Непонятно как связана эта самая финализация с потоками..

[Serge_Bliznykov]

Как обойти ошибку которая требует финализации переменной f: file of AMA

дело в том, что использовать типизированные файлы ( : file of ВашТип ) можно только в том случае, когда файл представляет собой набор структур СТРОГО ЗАДАННОГО РАЗМЕРА
Боюсь, что в Вашем случае это не так...

[chertovich]

не факт, что использовались типизированные файлы Delphi, а глядя на документацию это точно. Для простоты использования юзайте файловые потоки. А в остальном помочь не могу, потому что у каждого своя работа, а писать за кого-то код конечно можно, но за $