Hallo,
ich kann das nicht testen, da ich die DevExpress Komponente nicht installiert habe, aber warum solltest du nicht in den ImageBlobStream schreiben können - vorausgesetzt du verwendest iFarbe statt iInsulinFarbe:
Delphi-Quellcode:
var
bsFarbCode: TStream;
bmFarbe: TBitmap;
iImage: integer; // index of image in imageList
begin
with tABSTable do
bsFarbCode := CreateBlobStream(FieldByName('Farbcode'), bmWrite);
bmFarbe := TBitmap.Create;
iImage := cxFarben.EditValue; // musst du wissen, ob das okay ist
if ilFarben.GetBitmap(iImage, bmFarbe) then
bmFarbe.SaveToStream(bsFarbCode);
bmFarbe.Free;
bsFarbCode.Free;
end;
Vorweihnachtliche Grüße vom marabu