Bild aus DB auslesen und in TImage anzeigen

[HolgerCW]

Hallo zusammen,

so kann ich ja ein Bild auslesen und auf der Festplatte speichern:

Delphi-Quellcode:

var blob:TStream;  
begin  
//Datei auslesen  
blob:=mainform.IBtesttabelle.CreateBlobStream(IBtesttabelle.FieldByName('blobdata'),bmRead);  
try  
   blob.Seek(0,soFromBeginning);  
   with TFileStream.Create('C:\testdatei.jpg',fmCreate) do  
     try  
      CopyFrom(blob,blob.Size);  
      finally  
             Free;  
             end;  
   finally  
      blob.Free;  
      end;  
end;

Wie kann ich das Bild aus der DB direkt in einem TImage anzeigen ohne es vorher auf der Festplatte zu speichern ?

[mkinzler]

Sollte gehen wenn du direkt mit .LoadFromStream() den Stream ins TImage lädst

[HolgerCW]

Danke schon mal, nur klappt es nicht ganz: Siehe hier:

Delphi-Quellcode:

MyPicture := TImage.Create();
blob:=mainform.IBtesttabelle.CreateBlobStream(IBtesttabelle.FieldByName('blobdata'),bmRead);  
blob.Seek(0,soFromBeginning);  
MyPicture.Picture.LoadFromStream(blob);

MyPicture kennt kein "LoadFromStream"

[mkinzler]

Nimm ein TJpegImage

[HolgerCW]

Das finde ich bei mir nicht. Ist das nicht Standard ?

[mkinzler]

Kannst du von der Delphi CD nachinstallieren. Dann jpeg den uses hinzufügen

[HolgerCW]

Ich habe gerade festgestellt, das ich JPEG den uses hinzufügen kann.

Nur habe ich dieses JPEGImage nicht als Object um es auf die Form zu ziehen ?

[mkinzler]

MyPicture := TJPegImage.Create();

[HolgerCW]

Hi.

Gibt es denn dieses TJPEGImage nicht um es direkt auf eine Form zu ziehen ?

Oder wie könnte ich dieses Objekt auf einer bestehenden Form Implementieren. Ziel ist es dieses Bild auf der Form anzuzeigen.

[Echtet]

Hallo Holger,

ich hatte kürzlich ein ähnliches Problem. Folgendermaßen wurde mir geholfen:
Image aus DB laden


Vielleicht nützt es Dir.

Gruß,

Thimo