How to pull jpg from a Blob Field in Delphi and display in a TImage?

Question

I have the following code, but it doesn't display the jpg in the TImage:

  sf := TfrmSplash.Create(nil);
  ms := TMemoryStream.Create;
  try
    bf := TBlobField(dbfuncs.tblBlobs.FieldByName('BBlob'));
    bf.SaveToStream(ms);
    ms.Position := 0;
    sf.imgDisplay.Picture.Graphic.LoadFromStream(ms);
    sf.Show;
    Sleep(2000);
  finally
    ms.Free;
    sf.Free;
  end;

Why doesn't this work? I have jpeg in the uses clause of both forms involved. But nothing is displayed in the image.....

Answer 1

Don't you have to stream it into a TJPEG first, then assign that into the TImage? I don't have code handy here (though can dig it out later) but when I've done this in the past I'm pretty sure I have to do something like

MyJPeg.LoadFromStream

followed by

MyPicture.Graphic.Bitmap.Assign(MyJPeg)...?

Answer 2

USES ... DB;

TBlobField(dbfuncs.tblBlobs.FieldByName('BBlob')).LoadFromFile('file name'); TBlobField(dbfuncs.tblBlobs.FieldByName('BBlob')).LoadFromStream();