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