Hallo
ich habe zu meiner Frage hier im Forum leider nicht die passende Antwort gefunden. Es gab zwar schon viele Tipps
und Tricks zu diesem Thema, aber für mein "Fall" konnte ich nichts passendes finden.
Eines vorweg, ich möchte diesen Teil in meinem Programm genau so mit den Komponenten lösen. Ich habe hier viele
andere Lösungsansätze gefunden, die aber bei mir so nicht funktionieren.
Zu dem Problem:
Ich habe in einer TImageComboBox (DevExpress) eine Liste mit Farbelementen vorgegeben. Jeder Einrag in der Liste
besteht aus dem Image, einem Text wie die Farbe heißt und einem Value (Word) der die Verbindung zu einer ImageList
hält.
Wird jetzt in einem Dialog eine Farbe ausgewählt, soll aufgrund der Auswahl mit GetBitmap und dem Bildindex aus
der ImageList die Grafik geholt werden und in dem BlobField abgespeichert werden. Die Lösungen die ich hier ge-
funden habe, gingen immer über einen OpenPictureDialog oä. und haben dann die Daten in dem BlobField geschrieben.
Delphi-Quellcode:
ImageBlobStream := TABSBlobStream(tABSTable.CreateBlobStream(tABSTable.FieldByName('Farbcode'),bmWrite));
iFarbe := TBitmap.Create; { das einzelne Bild }
{ Farben ist die gesamte ImageList }
if Farben.GetBitmap(cxFarben.EditValue,iFarbe) then
begin
iInsulinFarbe.SaveToStream( -> ???); { hier kann ja nicht das ImageBlobStream rein ... }
ImageBlobStream.CopyFrom(-> ???, -> ???.SizeOf) { und das kann ich auch nicht nehmen, weil ich das Bitmap nicht
{ in ein TStream bekomme }
end;
Seit ein paar Stunden merke ich, das ich mich im Kreis drehe. Hat von euch noch einer eine Idee, wie man das
Problem lösen kann?? Bin für jeden Tipp dankbar.