delphi11 TImage 生成并保存到缓存中

在 Delphi 11 中，您可以使用 TBitmap 类型生成图像并将其保存到缓存中。以下是一个示例代码：

uses
  System.Types, System.UITypes, System.UIConsts, FMX.Graphics; // 导入图像和颜色单元

// ...

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  FileName: string;
begin
  // 创建 TBitmap 对象
  Bitmap := TBitmap.Create;

  try
    // 设置图像大小和格式
    Bitmap.SetSize(Image1.Width, Image1.Height);
    Bitmap.Clear(TAlphaColors.White);

    // 在 TBitmap 上绘制图像
    Bitmap.Canvas.BeginScene;
    try
      Bitmap.Canvas.DrawBitmap(Image1.Bitmap, TRectF.Create(0, 0, Image1.Width, Image1.Height), TRectF.Create(0, 0, Image1.Bitmap.Width, Image1.Bitmap.Height), 1.0);
    finally
      Bitmap.Canvas.EndScene;
    end;

    // 保存图像到缓存
    FileName := TPath.Combine(TPath.GetCachePath, 'MyImage.png');
    Bitmap.SaveToFile(FileName);

    // 处理图像，例如发送到服务器
    // ...
  finally
    // 释放 TBitmap 对象
    Bitmap.Free;
  end;
end;

在此示例中，我们创建了一个 TBitmap 对象，并设置了其大小和格式。然后，我们使用 TBitmap.Canvas.DrawBitmap 在 TBitmap 上绘制 TImage 控件中的图像。接下来，我们将 TBitmap 保存到缓存中，并使用文件名进行后续处理，例如发送到服务器。请注意，此示例将图像保存为 PNG 格式，并将其保存到缓存路径。您可以根据需要更改这些设置。