Bild aus Datenbank in TImage Komponente

[DeddyH]

Sind es denn auch JPEGs in der Datenbank?

[edit] Müssen es wohl, sonst würde der Umweg über die Datei ja nicht funktionieren. Evtl. muss man vor dem LoadFromStream noch die Position setzen. Wie sieht es so aus?

Delphi-Quellcode:

 if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          try
            pngBild := TJPEGImage.Create; // Grafik im JPEG Format erstellen
            try
              qryGetDAtaBild.SaveToStream(stBild);
              stBild.Position := 0;
              pngBild.LoadFromStream(stBild); // BLOB Inhalt reinladen (SaveToStream in LoadFromStream geändert)
              Frames.Image1.Picture.Assign(pngBild); // Image zuweisen
            finally
              pngBild.Free;
            end;
          finally
            stBild.Free;
          end;
        end;

[/edit]