Bitmap und Stream

[stahli]

Ich schreibe Daten in einen Stream und möchte mittendrin auch Bitmaps speichern:

Delphi-Quellcode:

procedure TDPerson.SaveToFileStream(S: TFileStream; W: TWriter);
begin
  W.WriteString(Name);
  W.WriteString(Ort);
  Bitmap.SaveToStream(S);
end;

Der Stream wird geöffnet übergeben und enthält bereits Daten.
Bitmap.SaveToStream(S) leert aber den Stream und schreibt sich dann hinein.

Eine frühere Version mit einem Blob-Feld ging

Delphi-Quellcode:

  W.WriteVariant(FieldByName('Bild').AsVariant);

Ich könnte notfalls das Bitmap in einen MemoryStream schreiben und diesen dann in den "richtigen Stream".

Gibt es einen einfacheren Weg?

stahli

[Dani]

Gehts so?

Delphi-Quellcode:

procedure TDPerson.SaveToFileStream(S: TFileStream; W: TWriter);
begin
  W.WriteString(Name);
  W.WriteString(Ort);
  W.FlushBuffer;
  Bitmap.SaveToStream(S);
end;

[stahli]

Hi Dani,

danke, so geht´s.

stahli