delphi11 tbitmap代码

以下是 Delphi 11 中使用 TBitmap 的示例代码：

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile('example.bmp'); // 从文件加载位图
    bmp.Canvas.Pen.Color := clRed; // 设置画笔颜色为红色
    bmp.Canvas.Brush.Color := clYellow; // 设置画刷颜色为黄色
    bmp.Canvas.Rectangle(0, 0, bmp.Width, bmp.Height); // 绘制一个矩形
    bmp.SaveToFile('example_modified.bmp'); // 保存修改后的位图到文件
  finally
    bmp.Free; // 释放位图对象
  end;
end;

以上代码加载一个位图文件，然后修改位图的画笔和画刷颜色，并在位图上绘制一个矩形，最后将修改后的位图保存到文件。请根据实际需求修改代码。

相关问题

delphi11 TBitMap 获取大小

要获取 TBitmap 对象的大小，可以使用其 Width 和 Height 属性。例如，以下代码将创建一个名为 Bitmap 的 TBitmap 对象，并在控制台上显示其宽度和高度：

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('example.bmp');
    Writeln('Bitmap width: ', Bitmap.Width);
    Writeln('Bitmap height: ', Bitmap.Height);
  finally
    Bitmap.Free;
  end;
end;

delphi11 TBitMap获取图片自TImage

在 Delphi 11 中，您可以使用 TImage 控件的 Bitmap 属性获取图像，并将其转换为 TBitmap 对象。以下是一个示例代码：

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 格式，并将其保存到缓存路径。您可以根据需要更改这些设置。