Thema: Delphi Bitmap und Stream

Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#1

Bitmap und Stream

  Alt 1. Feb 2008, 01:44
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
  Mit Zitat antworten Zitat