Bild aus DB lesen und an TImage via Stream übergeben

[joachimd]

Zitat von Berserker:

Ich würde aber gerne das Bild in einen Stream speichern und dann im TImage mit LoadFromStream wieder laden.

Ich habe es schon mit Assign probiert. Dies funktioniert auch, jedoch will er kein JPEG, GIF etc laden. Es kommt immer die Fehlermeldung "Bitmap ungülitg"

Du musst ein jpg erstellen und Deinen Stream dahinein laden.

Delphi-Quellcode:

var
 jpg:TJPEGImage;
 m:TMemoryStream;
begin
  jpg:=TJPEGImage.Create;
  m:=TMemoryStream.Create;
  try
    TBlobField(AdsTable1.FieldByName('BILD')).SaveToStream(m);
    m.Position:=0;
    jpg.LoadFromStream(m);
    Image1.Picture.Assign(jpg);
  finally
    FreeAndNil(m);
    FreeAndNil(jpg);
  end;
end;