Paradox "Data Block" länge ermitteln?

[marabu]

Hallo Mitchl,

ich denke du solltest etwas mehr Struktur in dein Programm bringen. Ich würde die ersten 6 Byte der Tabelle in einen Record einlesen. Danach kennst du die HeaderSize und kannst den Rest nachlesen. Nur auf die einzelnen Datensätze würde ich über direkte Positionierung zugreifen:

Delphi-Quellcode:

// ungetester Code ...

type
  PHeaderInfo = ^THeaderInfo;
  THeaderInfo = packed record
    RecordSize: SmallInt;
    HeaderSize: SmallInt;
    FileType: Byte;
    MaxTableSize: Byte;
  end;

  PTableHeader = ^TTableHeader;
  TTableHeader = packed record
    NumRecords: LongInt;
    NextBlock: Word;
    // ...
  end;

var
  hi: THeaderInfo;
  th: PTableHeader;
  fs: TFileStream;

begin
  fs := TFileStream.Create(fileName, fmOpenRead);
  fs.Read(hi, SizeOf(hi));
  GetMem(th, hi.HeaderSize);
  fs.Read(th.NumRecords, hi.HeaderSize);
  // ...
  FreeMem(th, hi.HeaderSize);
  fs.Free;
end;

Auf diese Weise kannst du auf die Header-Informationen zugreifen, als ob es normale Variablen wären. Wenn du noch einen dynamischen Puffer für die Datensätze spendierst und die Leseroutine etwas umschreibst, dann bist du schon auf dem Weg ins gelobte Land:

Delphi-Quellcode:

function GetRecord(s: TStream; index: Integer; var buffer: TByteDynArray): Boolean; 
var
  offset: Cardinal;
begin
  offset := SizeOf(hi) + hi.HeaderSize + index * hi.RecordSize;
  if offset + Length(buffer) > s.Size then 
    Result := false else 
  begin
    s.Position := offset;
    s.Read(buffer[0], Length(buffer));
    Result := true;
  end;
end;

var
  buffer: TByteDynArray;

begin
  SetLength(buffer, hi.RecordSize);
  if GetRecord(fs, 0, buffer) then
    ShowMessage('der erste Record wurde gelesen - wie gefällt dir das?')
end;

Grüße vom marabu