Stream im Stream abspeichern

[Taladan]

hallo. Da da ein Problem. Ich erstelle von einen Memofeld einen Stream. Diesen wollte ich in einen FileStreamRecord mit abspeichern.

Code:

procedure TFormDateneingabeBuecher.BtAddClick(Sender: TObject);
Var Test : TStream;
begin
     Memo1.Lines.SaveToStream(Test);
     BefBuecher.Schreiben(StrToInt(Edit1.Text),Edit2.Text,Edit3.Text, Test);
end;

procedure TBuecher.Schreiben(ID: Integer; Abkuerzung : String; Titel: Ansistring; Langbeschreibung : TStream);
var
  Stream: TStream;
  I,I1: integer;
  Len: Longint;
  Dateiversion : Integer;
begin
  Dateiversion := 1;

  Setlength(Buecher, length(Nachteil) + 1);

  Buecher[High(Buecher)].ID := ID;
  Buecher[High(Buecher)].Abkuerzung := Abkuerzung;
  Buecher[High(Buecher)].Titel := Titel;
  Buecher[High(Buecher)].Langbeschreibung := Langbeschreibung;

  Stream := TFileStream.Create('Buecher.tdt', fmCreate);
  try
         Stream.Write(Dateiversion, SizeOf(Dateiversion));
         Stream.Write(I, SizeOf(I));
         Len := Length(Buecher);
         Stream.Write(Len, SizeOf(Len));
         for I := 0 to Length(Buecher) - 1 do
         begin
              Stream.Write(Buecher[I].ID, SizeOf(Buecher[I].ID));

              Len := Length(Buecher[I].Abkuerzung);
              Stream.Write(Len, SizeOf(Len));
              Stream.Write(PChar(Buecher[I].Abkuerzung)^, Len);

              Len := Length(Buecher[I].Titel);
              Stream.Write(Len, SizeOf(Len));
              Stream.Write(PChar(Buecher[I].Titel)^, Len);

              //Hier weiß ich nicht weiter, wie Schreibt man einen Stream in einen Stream?
              Len := Length(Buecher[I].Langbeschreibung);
              Stream.Write(Len, SizeOf(Len));
              Stream.Write(PChar(Buecher[I].Langbeschreibung)^, Len);

         end;
  finally
    Stream.Free;
  end;
end;

Edit: Oder hat jemand eine besseren vorschlag?

[maximov]

Hi!

Delphi-Quellcode:

Len := Buecher[I].Langbeschreibung.size; 
Stream.Write(Len, SizeOf(Len)); 
Stream.CopyFrom(Buecher[I].Langbeschreibung, Len); // müsste fungieren

[Taladan]

Seltsamerweise erhalte ich immer einen Laufzeitfehler, wenn ich den Stream erstellen möchte.

Delphi-Quellcode:

procedure TFormDateneingabeBuecher.BtAddClick(Sender: TObject);
Var Test : TStream;
begin
     Memo1.Lines.SaveToStream(Test); // hier ist der Laufzeitfehler
     BefBuecher.Schreiben(StrToInt(Edit1.Text),Edit2.Text,Edit3.Text, Test);
end;

[Dax]

Du musst den Stream ja erst noch erstelln:

Text := TFileStream.Create(DateiSpeicherOrt, fmCreate);

[Taladan]

Da es sich weder um ein MemoryStream noch ein FileStream handelt, führt das Create ereignis einen Abstrakten fehler aus (warum auch immer)

[Taladan]

Hab den Fehler gefunden. Es lag daran das der Pointer beim auslesen natürlich am ende der Datei lag und den mußte man erst an den Anfang setzen.

Delphi-Quellcode:

procedure TFormDateneingabeBuecher.BtAddClick(Sender: TObject);
Var Stream : TMemoryStream;
begin
     Stream := TMemoryStream.Create;
     Memo1.Lines.SaveToStream(Stream);
     Stream.Position := 0; // hier
     BefBuecher.Schreiben(StrToInt(Edit1.Text),Edit2.Text,Edit3.Text, Stream);
end;
procedure TBuecher.Schreiben(ID: Integer; Abkuerzung : String; Titel: Ansistring; Langbeschreibung : TStream);
var
  Stream: TStream;
  I,I1: integer;
  V : Integer;
  Len, Len2, Len3: Longint;
  Dateiversion : Integer;
begin
  Dateiversion := 1;

  SetLength(Buecher, length(Nachteil) + 1);

  Buecher[High(Buecher)].ID := ID;
  Buecher[High(Buecher)].Abkuerzung := Abkuerzung;
  Buecher[High(Buecher)].Titel := Titel;
  Buecher[High(Buecher)].Langbeschreibung := Langbeschreibung;

  Stream := TFileStream.Create('Buecher.tdt', fmCreate);
  try
         Stream.Write(Dateiversion, SizeOf(Dateiversion));        //Dateiversion

         Len := Length(Buecher);
         Stream.Write(Len, SizeOf(Len));

         for I := 0 to Length(Buecher) - 1 do
         begin
              Stream.Write(Buecher[I].ID, SizeOf(Buecher[I].ID));

              Len2 := Length(Buecher[I].Abkuerzung);
              Stream.Write(Len2, SizeOf(Len2));
              Stream.Write(PChar(Buecher[I].Abkuerzung)^, Len2);

              Len2 := Length(Buecher[I].Titel);
              Stream.Write(Len2, SizeOf(Len2));
              Stream.Write(PChar(Buecher[I].Titel)^, Len2);

              Len2 := Buecher[I].Langbeschreibung.size;
              Stream.Write(Len2, SizeOf(Len));
              Stream.CopyFrom(Buecher[I].Langbeschreibung, Len2);
         end;
  finally
    Stream.Free;
  end;
end;