Bild aus Datenbank in TImage Komponente

[xZise]

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