.. sollte aber eigentich funktionieren.
Im Stream befindet sich ein jpg Image?
Ist der Stream o.k. - sind darin Daten vorhanden?
eventuell noch eine Fehlerbehandlung einbauen
Delphi-Quellcode:
(FindField('
BLOB1')
As TBlobField).SaveToStream(MS);
ms.Position := 0;
J := TJPEGImage.Create;
try
try
J.LoadFromStream(MS);
Form3.Image1.Picture.Assign(J);
except
on E:
Exception do
showMessage(E.
Message);
end;
finally
j.free;
end;
Grüße
Klaus