Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#13

AW: Aus TurboDB Blob in Stream schreiben

  Alt 16. Aug 2012, 11:22
.. 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
Klaus

Geändert von Klaus01 (16. Aug 2012 um 11:25 Uhr)
  Mit Zitat antworten Zitat