Delphi-PRAXiS - Delphi TPicture streamen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TPicture streamen (https://www.delphipraxis.net/44163-tpicture-streamen.html)

TPicture streamen

Hallo,

ich habe folgendes Problem:

Ich verwende ein TImage, in das der Benutzer (per TPicture.LoadFromFile) Bilder beliebigen Formats hineinladen kann. Diese sollen dann anschliessend in einem Stream gespeichert werden (z.B. in ein Blob-Datenbankfeld) bzw. später wieder aus einem Stream gelesen werden können.

Leider bietet die TPicture-Klasse keine LoadFromStream oder SaveToStream Methoden an. Die Grafiken können zudem von unterschiedlichem Format sein, z.B. WMF (Metafile), Bitmap, Jpeg, etc. und somit kann ich auch nicht einfach nur TPicture.Bitmap.SaveToStream verwenden.

Weiss hier vielleicht jemand Rat? :?:

Danke Euch schon mal im voraus!

Re: TPicture streamen

Hallo,
adhoc fällt mir folgendes ein.
Du kannst

Delphi-Quellcode:

Image1.Picture.Graphic.SaveToStream(aStream);

verwenden um die Grafik in einen Stream zu speichern.

Delphi-Quellcode:

Image1.Picture.Graphic.LoadFromStream(aStream);

funktioniert nicht, da
die Grafik ja ein belibieges Format haben könnte. Deshalb musst Du hier wissen welches Format die Grafik hat. Wenn die Grafik eine Bitmap ist kannst Du sie mit

Delphi-Quellcode:

Image1.Picture.Bitmap.LoadFromStream(aStream);

aus dem Stream laden.