delphi11 TBitMap获取图片自TImage
时间: 2023-09-07 21:14:52 浏览: 59
在 Delphi 11 中,您可以使用 TImage 控件的 Bitmap 属性获取图像,并将其转换为 TBitmap 对象。以下是一个示例代码:
```delphi
uses
FMX.Graphics; // 导入图像单元
// ...
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
FileName: string;
begin
// 创建 TBitmap 对象
Bitmap := TBitmap.Create;
try
// 从 TImage 中获取图像
Bitmap.Assign(Image1.Bitmap);
// 保存图像到文件
FileName := TPath.Combine(TPath.GetCachePath, 'MyImage.png');
Bitmap.SaveToFile(FileName);
// 处理图像,例如发送到服务器
// ...
finally
// 释放 TBitmap 对象
Bitmap.Free;
end;
end;
```
在此示例中,我们创建了一个 TBitmap 对象,并使用 Bitmap.Assign(Image1.Bitmap) 将 TImage 控件中的图像复制到 TBitmap 对象中。接下来,我们将 TBitmap 保存到缓存中,并使用文件名进行后续处理,例如发送到服务器。请注意,此示例将图像保存为 PNG 格式,并将其保存到缓存路径。您可以根据需要更改这些设置。