delphi - 如何从 Delphi 中的 Blob 字段中提取 jpg 并显示在 TImage 中？

Question

我有以下代码，但它没有在 TImage 中显示 jpg:

  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;

为什么这不起作用？我在涉及的两种形式的uses子句中都有jpeg。但图像中什么也没有显示......

Answer 1

您是否必须先将其流式传输为 TJPEG，然后将其分配给 TImage？我这里没有方便的代码(尽管可以稍后将其挖掘出来)，但是当我过去完成此操作时，我很确定我必须做类似的事情

MyJPeg.LoadFromStream

后跟

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