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