Hi!
Ich habe gerade ein Problem mit einem TFileStream:

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

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

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

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:

markieren

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);

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

zusammenfalten · markieren

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;

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

Zitat:

markieren

Delphi-Quellcode:

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

Ahhh, Cool danke jetzt geht es!

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

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.

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

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

markieren

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;