Bild aus DB auslesen und in TImage anzeigen

[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:
Image1.Picture.Bitmap := Bitmap;