Streamlesefehler

[Luckie]

In der Hilfe steht nur Type. Aber ich habe es auch schon so probiert:

Delphi-Quellcode:

procedure TAppendFile.Extract;
var
  fsCarrier: TFileStream;
  FileInfo: TFileInfo;
begin
  fsCarrier := TFileStream.Create(FCarrierFile, fmOpenRead);
  try
    fsCarrier.Seek(SizeOf(TFileInfo), soFromEnd);
    fsCarrier.ReadBuffer(FileInfo, Sizeof(TFileInfo));
    ShowMessage(IntToStr(FileInfo.FFileSize));
  finally
    fsCarrier.Free;
  end;
end;

Gleiche Fehler.