delphi11 TBitMap由TImgae获取图像

你可以使用TImage组件加载图像文件并将其转换为TBitmap对象。以下是一个示例代码：

var
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  try
    // Load image from file
    Image1.Picture.LoadFromFile('image.jpg');
    
    // Assign the loaded image to the bitmap
    bitmap.Assign(Image1.Picture.Bitmap);

    // Use the bitmap object
    // ...
  finally
    bitmap.Free;
  end;
end;

在这个示例中，我们使用TImage组件将图像文件加载到画布上，然后使用Assign方法将其分配给TBitmap对象。最后，您可以使用TBitmap对象进行任何需要的操作。记得在使用完成后释放TBitmap对象。

相关问题

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