Hi,
hier ein Code mit dem es auf jeden Fall funktioniert:
Delphi-Quellcode:
var
jpg:TJPEGImage;
m:TMemoryStream;
begin
jpg:=TJPEGImage.Create;
m:=TMemoryStream.Create;
if (Datenbank.FieldByName('foto') As TBlobField).BlobSize > 0 then
try
TBlobField(Datenbank.FieldByName('foto')).SaveToStream(m);
m.Position:=0;
jpg.LoadFromStream(m);
Image1.Picture.Assign(jpg);
finally
FreeAndNil(m);
FreeAndNil(jpg);
Image1.Visible := True; end
else Image1.Visible := False;
end;
Damit kannst Du auf jeden Fall ein Bild aus einer Datenbank in einem Image anzeigen lassen.
Hoffe, dass es Dir hilft.
Viel Erfolg