delphi11 Image1 获取生成图像文件名

在 Delphi 11 中，如果要从 TImage 中获取生成的图像文件名，您需要先将图像保存到文件，然后使用该文件名进行后续处理。以下是一个示例代码：

uses
  Vcl.Dialogs, Vcl.Imaging.jpeg; // 导入对话框和 JPEG 图像单元

// ...

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  // 使用对话框选择保存位置和文件名
  if SavePictureDialog1.Execute then
  begin
    FileName := SavePictureDialog1.FileName;

    // 保存图像到文件
    if ExtractFileExt(FileName) = '.jpg' then
      TJPEGImage(Image1.Picture.Graphic).SaveToFile(FileName)
    else
      Image1.Picture.SaveToFile(FileName);

    // 处理图像，例如发送到服务器
    // ...
  end;
end;

在此示例中，我们使用 SavePictureDialog1 打开一个对话框，以选择保存图像的位置和文件名。然后，我们保存图像到文件，并使用文件名进行后续处理，例如发送到服务器。请注意，此示例可以处理 JPEG 格式的图像和其他格式的图像。如果保存的图像是 JPEG 格式，则我们使用 TJPEGImage 类型进行保存。