DB ( Blob ) -> TImage

[ol1uw]

Hallo

Versuchmal

Delphi-Quellcode:

      jpg := TJPEGImage.Create;
      if (ADOQuery.FindField('BILD') as TBlobField).BlobSize > 0 then
      begin
        jpg.Assign(ADOQuery.FindField('BILD') as TBlobField);
        Bild.Picture.Bitmap.Assign(jpg);
      end;

oder eventuell mit

      ADOQuery.CreateBlobStream(ADOQuery.FindField('BILD'),bmRead); Gruß uwe