AW: Bild aus Datenbank in TImage Komponente
Zitat:
Zitat von Metallicwar
(Beitrag 1049207)
*bin zu doof* :*(
Delphi-Quellcode:
stBild: TStream;
jpgBild: TJPEGImage;
Delphi-Quellcode:
if qryGetDAtaBild.BlobSize > 0 then
begin
stBild := TMemoryStream.Create;
jpgBild := TJPEGImage.Create; // Grafik im JPEG Format erstellen
try
qryGetDAtaBild.SaveToStream(stBild);
pngBild.SaveToStream(stBild); // BLOB Inhalt reinladen
Frames.Image1.Picture := jpgBild; // Image zuweisen
finally
stBild.Free;
end;
end;
Inkompatible Typen Picture und JPEGImage
|
Was macht diese Zeile ( pngBild.SaveToStream(stBild); // BLOB Inhalt reinladen) genau? Sie speichert in den Stream, wo das Bild bereits drin ist, ein png Bild. Das soll vermutlich jpgBild und LoadFromStream. Außerdem nicht direkt zuweisen sondern nur über Assign danke :) (Ansonsten dürfte es glaub ich ein Speicherleck geben).
MfG
Fabian
|