Bild aus Datenbank in TImage Komponente

[DeddyH]

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          try
            qryGetDAtaBild.SaveToStream(stBild); //Stream statt File
            Frames.Image1.Picture.LoadFromStream(stBild); //s.o.
          finally
            stBild.Free;
          end;
        end;