Blob per Stream aus DB lesen und in Imageview anzeigen

[Echtet]

Hallo marabu,

danke für den entscheidenden Tip!

Jetzt geht es auch. Ich habe den Code nun folgendermaßen umgeschrieben:

Delphi-Quellcode:

procedure TfrmZoom.FormShow(Sender: TObject);
var
s: TMemoryStream;
JPGBild  : TJPEGImage;
tempBMP :TBitmap;
begin
    Screen.Cursor := crHourGlass;
    s := TMemoryStream.Create;  //StreamObjekt wird erzeugt
    TBlobField(DataModule1.DataSourceZugangsdaten.DataSet.FieldByName('SCREENSHOT')).SaveToStream(s);
    s.Position := 0;  //Stream wird auf 0 positioniert
    JPGBild := TJPEGImage.Create;  //JPEG wird erzeugt
    tempBMP := TBitmap.Create;     //temporäres Bitmap wird erzeugt
    JPGBild.LoadFromStream(s);     //JPEG lädt den Stream
    tempBMP.Assign(JPGBild);       //Das JPEG-Bild wird dem temp. Bitmap zugewiesen
    ImageView32.Bitmap.Assign(tempBMP);   // das temp. Bitmap wird dem ImageView zugewiesen
    s.Free;
    JPGBild.Free;
    tempBMP.Free;
    Screen.Cursor := crDefault;
end;

Viele Grüße,

Thimo