Bild aus DB auslesen und in TImage anzeigen

[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 ?