Habs, danke an alle.
Der Code in der Klasse.
Code:
FBLOB1 := TMemoryStream.Create;
(FindField('BLOB1') As TBlobField).SaveToStream(FBLOB1);
FBLOB1.Position := 0;
Der Code vom Formular
Code:
T := TTEST1_tdb.create;
T.ID := 8;
T.Load;
J := TJpegImage.Create;
J.LoadFromStream(T.BLOB1);
Image1.Picture.Assign(J);
FreeAndNil(J);
FreeAndNil(T);
Im Endeffekt lag es dadran, dass ich aus der Klasseunit heraus irgendwie nicht Image1 befüllen konnte. kA warum.