sqlite - 如何适应从 Delphi 10.1 Berlin TImageViewer 中的 sqlite blob 字段加载的图像？

Question

我正在尝试使用 Delphi 的TImageViewer 组件在 blob 字段中显示以前保存的图像。我正在使用 Delphi 10.1 Berlin 进行开发。

图像不适合TImageViewer组件，即使使用BestFit命令，如下所示。图像大于组件。但如果图像不是来自数据库字段，则它适合组件。

这是我的代码：

BlobStream := qryFoto.CreateBlobStream(qryFoto.FieldByName('image'), TBlobStreamMode.bmRead);
Image1.Bitmap.LoadFromStream(BlobStream);
Image1.BestFit;
BlobStream.Free;

怎么装？