@mkinzler,
meistens ist das ein Jpg-Bild. In der Uses ist jpeg eingebunden.
ich habe auch Folgendes schon probiert ... ohne Erfolg.
gruss LingNeu
Delphi-Quellcode:
procedure TForm1.btn_ObjektClick(Sender: TObject);
var sname1,sname2:
string;
ms: TMemoryStream ;
begin
ed_Name1.text := TDB_O['
oName1'];
//vorhandene DB-Daten in TextEdit kopieren
ed_Name2.Text := TDB_O['
oName2'];
//vorhandene DB-Daten in TextEdit kopieren
//Jetzt noch DB-Bild in ein TImage (img_Objekt) bringen
if not VarIsNull(TDB_O['
oBild'])
then begin
ms := TMemoryStream.Create ;
TBlobField(TDB_O.FieldByName('
oBild')).SaveToStream(ms);
ms.Position := 0;
img_Objekt.Picture.Graphic.LoadFromStream(ms);
ms.Free ;
end;
end;
@Perlsau,
danke für das Beispiel.
Leider bring ich den Code nicht zum Laufen. Trotzdem danke!