如何将 FMX.TImage 分配给 VCL.TBitmap？

Question

我尝试这样做：

BMP.Assign(Image1.Bitmap);

Image1 是一个 FMX 对象。
BMP 是标准 (VCL.Graphics) 位图。

我得到的错误是：

Project Project1.exe raised exception class EConvertError with message
'Cannot assign a TBitmapOfItem to a TBitmap'.

Answer 1

您不能将 FMX TBitmap 分配给 VCL TBitmap。它们彼此不兼容（您甚至不应该在同一个项目中混合使用 VCL 和 FMX，它们并非设计为一起使用）。

您必须将 FMX TBitmap 保存为 BMP 格式的流/文件，然后将其加载到 VCL TBitmap。

使用文件很简单：

Image1.Bitmap.SaveToFile('file.bmp');
BMP.LoadFromFile('file.bmp');

但是，当使用流代替时，FMX 的TBitmap.SaveToStream() 仅以 PNG 格式保存，因此您必须使用 TBitmapCodecManager.SaveToStream() 以 BMP 格式保存，例如：

Strm := TMemoryStream.Create;
try
  Surface := TBitmapSurface.Create;
  try
    Surface.Assign(Image1.Bitmap);
    TBitmapCodecManager.SaveToStream(Strm, Surface, '.bmp');
  finally
    Surface.Free;
  end;
  Strm.Position := 0;
  BMP.LoadFromStream(Strm);
finally
  Strm.Free;
end;