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]

Delphi-Quellcode:

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

[mkinzler]

Ist ein TImage-Abkomme

[HolgerCW]

Letzte Frage:

Wie kann ich nun das

var
bmp: TBitmap;

einem TImage zuweisen ?

So geht es nciht:

Delphi-Quellcode:

IM_Test.Picture.Bitmap := bmp;

[guidok]

Delphi-Quellcode:

IM_Test.Picture.Bitmap.Assign(bmp);

[Xong]

Mein Weg:

Einfügen in die DB:

Delphi-Quellcode:

var MemoryStream: TMemoryStream;


with Dataset1 do begin
  Open;
  Insert;

  MemoryStream := TMemoryStream.Create;
  // Bitmap ist vom Typ TBitmap
  Bitmap.SaveToStream(MemoryStream);
  // bild ist eine Spalte in der DB vom Typ image (SQL-Server 2005)
  (FieldByName('bild') as TBlobField).LoadFromStream(MemoryStream);

  Post;
end;

Auslesen:

Delphi-Quellcode:

var Bitmap: TBitmap;


with Dataset1 do begin
  Bitmap:= TBitmap.Create;
  try
    Bitmap.LoadFromStream(CreateBlobStream(FieldByName('bild'),bmRead));
  except
    // Fehlerbearbeitung
  end;
end;

Einem TImage zuweisen:

Delphi-Quellcode:

Image1.Picture.Bitmap := Bitmap;

[HolgerCW]

Vielen dank für die Hilfen. Jetzt klappt es so wie ich es will.

Mit welchem Befehl entfernt Ihr am besten ein Bitmap aus einem TImage ?

[mkinzler]

Was meinst du mit entfernen?

[HolgerCW]

Das in dem TImage nichts mehr angezeigt wird. Soll heissen -> Wie kann ich nach Zuweisung eines BMP, dieses wieder rückgängig machen ?