bei string in TFileStream kommt 1 Zeichen zu wenig an...

[Teekeks]

Hi!
Ich habe gerade ein Problem mit einem TFileStream:

Ich würde gerne folgendes Konstrukt in einen FileStream schreiben:

Delphi-Quellcode:

type
  TTitel=record
    Pfad:string[255];
    Titel:string[255];
    Name:string[255];
    Interpret:string[255];
    Jahr:string[255];
    Album:string[255];
    Genre:string[255];
    Laenge:string[255];
    Kommentar:string[255];
  end;

  TTitelListe=array of TTitel;

Das wollte ich so Abspeichern und wieder Laden:

Delphi-Quellcode:

procedure TForm1.Save(path: string);
var f:TFileStream;
    x,y:integer;
begin
  f:=TFileStream.Create(path,fmcreate);
  f.WriteBuffer(High(AllTitel),SizeOf(integer));
  for x:=0 to High(AllTitel) do
  begin
    y:=Length(AllTitel[x].Titel);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Titel,Length(AllTitel[x].Titel));

    y:=Length(AllTitel[x].Name);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Name,Length(AllTitel[x].Name));

    y:=Length(AllTitel[x].Pfad);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Pfad,Length(AllTitel[x].Pfad));

    y:=Length(AllTitel[x].Genre);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Genre,Length(AllTitel[x].Genre));

    y:=Length(AllTitel[x].Interpret);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Interpret,Length(AllTitel[x].Interpret));

    y:=Length(AllTitel[x].Jahr);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Jahr,Length(AllTitel[x].Jahr));

    y:=Length(AllTitel[x].Kommentar);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Kommentar,Length(AllTitel[x].Kommentar));

    y:=Length(AllTitel[x].Laenge);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Laenge,Length(AllTitel[x].Laenge));

    y:=Length(AllTitel[x].Album);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Album,Length(AllTitel[x].Album));
  end;
  f.Free;
end;

procedure TForm1.Load(path: string);
var f:TFileStream;
    x,y,z:integer;
    s:string;
begin
  f:=TFileStream.Create(path,fmOpenRead);
  f.Position:=0;
  f.ReadBuffer(y,SizeOf(integer));
  SetLength(AllTitel,y+1);
  for x:=0 to y do
  begin
    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Titel,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Name,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Pfad,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Genre,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Interpret,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Jahr,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Kommentar,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Laenge,z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Album,z);
    if (AllTitel[x].Titel[1]<>'') then
      s:=AllTitel[x].Interpret+' / '+AllTitel[x].Titel
    else s:=AllTitel[x].Name;
    LBSammelung.Items.Add(s);
  end;
  f.Free;
end;

Nun, in der Datei kommt alles richtig an außer das bei jedem string das letzte Zeichen fehlt.
Woran liegt das?

Gruß Teekeks

[cookie22]

warum befüllst du nicht den record und packst ihn dann komplett in den stream?

[Christian Seehase]

Moin Peter,

das Problem ist, dass Du in Deinem Record ShortStrings verwendest.
Diese beginnen, an Index 0, mit der Länge.
Da Du nicht angibst, ab welchem Index der String gelesen/geschrieben werden soll, wird immer ab Index 0 in die Datei geschrieben, bzw. daraus gelesen.

Da Du ja die Länge immer mitspeicherst, solltest Du "normale" Strings verwenden (Huge Strings):


Beispiel:

Delphi-Quellcode:

    // Schreiben
    y:=Length(AllTitel[x].Titel);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Titel[1],y);

    // Lesen
    f.ReadBuffer(y,SizeOf(integer));
    SetLength(AllTitel[x].Titel,y);
    f.ReadBuffer(AllTitel[x].Titel[1],y);

[Teekeks]

Gut, Nun kommt schon mal alles richtig in der Datei an.
Aber beim auslesen bekomme ich nur Leerstrings zurück, warum?

Delphi-Quellcode:

procedure TForm1.Save(path: string);
var f:TFileStream;
    x,y:integer;
begin
  f:=TFileStream.Create(path,fmcreate);
  f.WriteBuffer(High(AllTitel),SizeOf(integer));
  for x:=0 to High(AllTitel) do
  begin
    y:=Length(AllTitel[x].Titel);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Titel[1],y);

    y:=Length(AllTitel[x].Name);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Name[1],y);

    y:=Length(AllTitel[x].Pfad);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Pfad[1],y);

    y:=Length(AllTitel[x].Genre);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Genre[1],y);

    y:=Length(AllTitel[x].Interpret);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Interpret[1],y);

    y:=Length(AllTitel[x].Jahr);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Jahr[1],y);

    y:=Length(AllTitel[x].Kommentar);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Kommentar[1],y);

    y:=Length(AllTitel[x].Laenge);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Laenge[1],y);

    y:=Length(AllTitel[x].Album);
    f.WriteBuffer(y,SizeOf(integer));
    f.WriteBuffer(AllTitel[x].Album[1],y);
  end;
  f.Free;
end;

procedure TForm1.Load(path: string);
var f:TFileStream;
    x,y,z:integer;
    s:string;
begin
  f:=TFileStream.Create(path,fmOpenRead);
  f.ReadBuffer(y,SizeOf(integer));
  SetLength(AllTitel,y+1);
  for x:=0 to y do
  begin
    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Titel[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Name[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Pfad[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Genre[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Interpret[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Jahr[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Kommentar[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Laenge[1],z);

    f.ReadBuffer(z,sizeof(integer));
    f.ReadBuffer(AllTitel[x].Album[1],z);
    s:=AllTitel[x].Name;
    LBSammelung.Items.Add(s);
  end;
  f.Free;
end;

[schlecki]

du musst die einzelnen Strings noch auf die korrekte Länge bringen...

Zitat:

Delphi-Quellcode:

// Lesen
    f.ReadBuffer(y,SizeOf(integer));
    SetLength(AllTitel[x].Titel,y); // <---
    f.ReadBuffer(AllTitel[x].Titel[1],y);

[Teekeks]

Ahhh, Cool danke jetzt geht es!

[alzaimar]

Und dann noch zwei kleine praktische Methoden als Class Helper für TStream und schon sieht das nach was aus:

Delphi-Quellcode:

Type
  TStringReadWriteHelper = Class Helper for TStream
  public
    Procedure WriteString (const aString : String);
    Procedure ReadString (Var aString : String);
  End;

Procedure TStringReadWriteHelper.WriteString (const aString : String);
Begin
  Write(Length (aString), SizeOf (Integer));
  Write(aString[1], Length (aString));
End;

Procedure TStringReadWriteHelper.ReadString (Var aString : String);
Var
  len : Integer;

Begin
  Read(len , SizeOf (Integer));
  SetLength (aString, len);
  Read (aString[1], len);
End;

Und nu:

Delphi-Quellcode:

procedure TForm1.Save(path: string);
var f:TFileStream;
    x,y:integer;
begin
  f:=TFileStream.Create(path,fmcreate);
  f.WriteBuffer(High(AllTitel),SizeOf(integer));
  for x:=0 to High(AllTitel) do begin
    WriteString(AllTitel[x].Titel);
    WriteString(AllTitel[x].Name);
    WriteString(AllTitel[x].Pfad);
    WriteString(AllTitel[x].Genre);
    WriteString(AllTitel[x].Jahr);
    WriteString(AllTitel[x].Kommentar);
    WriteString(AllTitel[x].Laenge);
    WriteString(AllTitel[x].Album);
  end;
  f.Free;
end;

procedure TForm1.Load(path: string);
var f:TFileStream;
    x,y,z:integer;
    s:string;
begin
  f:=TFileStream.Create(path,fmOpenRead);
  f.ReadBuffer(y,SizeOf(integer));
  SetLength(AllTitel,y+1);
  for x:=0 to y do begin
    ReadString(AllTitel[x].Titel);
    ReadString(AllTitel[x].Name);
    ReadString(AllTitel[x].Pfad);
    ReadString(AllTitel[x].Genre);
    ReadString(AllTitel[x].Jahr);
    ReadString(AllTitel[x].Kommentar);
    ReadString(AllTitel[x].Laenge);
    ReadString(AllTitel[x].Album);

    s:=AllTitel[x].Name;
    LBSammelung.Items.Add(s);
  end;
  f.Free;
end;

Irgendwie...kürzer.

[Teekeks]

Gibt es Class helper auch für Lazarus? Dir Syntax bei dir geht nicht...

[alzaimar]

Dann verwende eine Hilfsklasse oder einfach nur Prozeduren, die Dir das Leben einfacher machen.

Delphi-Quellcode:

Procedure ReadString (aStream : TStream; Var aString : String);
Var
  len : Integer;

Begin
  aStream.Read (len, SizeOf (len));
  SetLength (aString, len);
  aStream.Read (aString[1], len*SizeOf (aString[1])); // Wegen unicode
End;