Bild aus Datenbank in TImage Komponente

[Metallicwar]

*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