Streamlesefehler

[Luckie]

Ich schreibe einen Reecord an das Ende einer Datei. Das klappt. Nur beim Auslesen bekomme ich einen StreamleseFehler:

Delphi-Quellcode:

type
  TFileInfo = packed record
    FFilename: String[255];
    FFileSize: Integer;
  end;
  PFileInfo = ^TFileInfo;

procedure TAppendFile.AppendFileInfo(FileInfo: TFileInfo);
var
  fsCarrier: TFileStream;
begin
  fsCarrier := TFileStream.Create(FCarrierFile, fmOpenWrite);
  try
    fsCarrier.Seek(fsCarrier.Size, soFromBeginning);
    fsCarrier.WriteBuffer(FileInfo, SizeOf(TFileInfo));
  finally
    fsCarrier.Free;
  end;
end;

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

Und es ist mir ein Rätsel wieso. Der Dateizeiger steht an der richtigen Stelle. Das habe ich mit Position geprüft. Und der Dateiname steht auch in der Datei am Ende. Das hab eich mit einem Hexeditor geprüft.

[alzaimar]

Erwartet Writebuffer einen Pointer als ersten Parameter? :gruebel:

[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.

[hoika]

Hallo,

fsCarrier.Seek(-SizeOf(TFileInfo), soFromEnd);


steht zumindestens so in der Hilfe.


Heiko

[Luckie]

Argh. :wall:

Ich dachte, er würde automatisch zurückgehen, wen ich soFromEnd angebe. Dass man den Wert auch noch negativ angeben muss...

Besten Dank.

[hoika]

Hallo,

29.000 Beiträge und dann so ein Fehler tztz ;)
OK, ich hatte gerade das D6-Handbuch auf.

jaja, damals gab es sowas ;)


soFromEnd kann man auch mit 0 aufrufen,
dann steht er genau am Ende.


Heiko

[p80286]

Auf dem letzten Zeichen oder LetztesZeichen +1 ?

Gruß
K-H

[Neutral General]

Hallo,

Also klappt es jetzt?

Weil du hattest in deinem ursprünglichen Code (noch) einen anderen Fehler:

Delphi-Quellcode:

fsCarrier.ReadBuffer(FileInfo, Sizeof(TFileInfo));

hätte

Delphi-Quellcode:

fsCarrier.ReadBuffer(FileInfo^, Sizeof(TFileInfo));

heißen müssen.

Gruß
Neutral General

[himitsu]

@General: der Buffer ist als offener Var-Paramete deklariert, also stimmt schon
ach nee :oops:

@Luckie: Dieser Wert wird immer in der Selben Richtung angegeben
- positiv nach hinten
- und negativ zurück

Welche "Startposition" verwendet wird, spielt dabei keine Rolle.
Also wenn man vom Ende aus zurück möchte, dann ist es halt ein negativer Wert.

[Luckie]

Zitat:

Zitat von Neutral General

Hallo,

Also klappt es jetzt?

Weil du hattest in deinem ursprünglichen Code (noch) einen anderen Fehler:

Delphi-Quellcode:

fsCarrier.ReadBuffer(FileInfo, Sizeof(TFileInfo));

hätte

Delphi-Quellcode:

fsCarrier.ReadBuffer(FileInfo^, Sizeof(TFileInfo));

heißen müssen.

Nö, funktioniert auch so ohne derefenrenzieren.