TStream als Teil an einen anderen TStream übergeben

[amigage]

Hallo,

ich glaube ich steht auf dem Schlauch und hoffe, ihr könnt mir helfen.
Folgende Problemstellung: Ich möchte eien Grafik einlesen und deren Inhalt mit zusätzlichen Informationen versehen und in einer Binärdatei speichern.

Folgender Ansatz:

Delphi-Quellcode:

var
  FileStream : TFileStream;
  PicStream, MyStream: TStream;
  Len : integer;
begin
  // :
  // Größe des Streams
  Len := PicStream.Size;
  MyStream.Write(Len, SizeOf(Len));
  MyStream.Write(PicStream, Len);
  // :
  // und dann als Datei speichern
  FileStream := TFileStream.Create('D:\Temp\test.dat', fmCreate);
  MyStream.Position := 0;
  try
    FileStream.CopyFrom(MyStream, MyStream.Size); 
  finally
    FileStream.Free;
  end;
end;

Beim Auslesen gehe ich so vor:

Delphi-Quellcode:

 
var
  FileStream : TFileStream;
  PicStream : TMemoryStream;

  sizeInt : integer;
  TempBuff : String;
begin     
  // :
  sizeInt := 0;
  FileStream.Read(sizeInt, SizeOf(integer));
  If sizeInt > 0 then
  begin
    SetLength(TempBuff, sizeInt);
    FileStream.Read(PChar(TempBuff)^, sizeInt);

    PicStream.Clear;
    PicStream.Write(PChar(TempBuff)^, Length(TempBuff));
    PicStream.Position := 0;
  end;
  // :
end;

Aber irgendwie stimmen die Daten des Streams nicht. An was kann es hängen? Ist schon das Speichern falsch?

Es wäre schön, wenn mich jemand auf die richtige Fährte führen würde

Besten Dank.

[himitsu]

MyStream.Write(PicStream, Len); speichert den Objekt-Zeiger und nicht den Stream-Inhalt.
Warum nicht einfach CopyFrom, bzw. warum nicht direkt in den FileStream?


String = Unicode, seit Delphi 2009
Unicode = 2 Byte pro Zeichen
du speicherst und ließt aber nur 1 Byte pro Zeichen ... heißt also zu vergißt die Hälft.

Bytes = Length(S) * SizeOf(Char) für String
Aber in deinem Fall einfach AnsiString oder besser och RawByteString verwenden.

[amigage]

Hallo,

dank Deiner Tipps habe ich es nun zum Laufen bekommen und kann die Daten wie gewünscht schreiben und lesen.