Was hältst du davon?
Delphi-Quellcode:
procedure TfrmAddImages.btnLoadImagesFromDBClick(Sender: TObject);
var
fstream: TMemoryStream;
begin
fstream := TMemoryStream.Create;
tblImagepng32.SaveToStream(fstream);
fstream.Position := 0; // Nicht vergessen ;-)
Image1.Picture.Graphic.LoadFromStream(fstream); // das müsste reichen ...
fstream.Free;
end;
Zum anzeigen eines Bildes von einer Tabelle, verwende ich meistens einfach eine dbImage Komponente. Dort entfällt dann die Laderoutine, das macht dann die Komponente selbst. Versuche es mal damit.
Der Fehler JPEG#41 bedeutet nichts anderes, als das der stream leer ist. (Position auf 0 stellen vergessen, deswegen leer)
Ausschnitt aus der jerror.h Datei aus der Source von der JPEG Komponente.
Der 41. ENUM Wert.
JMESSAGE(JERR_INPUT_EMPTY, "Empty input file")
JPEG-Fehler: #41
Gruß
Matze
[EDIT: Link hinzugefügt]