delphi - 使用 TCameraComponent

Question

我正在尝试使用以下代码调整捕获的 TCameraComponent 图像的大小:

procedure TForm1.GetImage;
begin
  imagec.SampleBufferToBitmap(img.Bitmap, True);

  with resizedimg.Bitmap do // Resize the image to another bitmap
  begin
    SetSize(300, 160);
    if Canvas.BeginScene then
    try
      Canvas.DrawBitmap(img.Bitmap, TRectF.Create(0, 0, 300, 160), TRectF.Create(0, 0, 300, 160), 1.0);
    finally
      Canvas.EndScene;
    end;
  end;
end;

但是，每次我关闭相机并重新打开它时，调整大小的图像都会捕获实际 TImage 的缩放部分。为什么会发生这种行为？我做错了什么？

目标是调整 img.Bitmap 大小以适应 300x160 像素。

Answer 1

DrawBitmap() 的第二个参数应该是正在绘制的 img.Bitmap 的原始大小，而不是您尝试调整大小的大小。

Canvas.DrawBitmap(img.Bitmap, TRectF.Create(0, 0, img.Bitmap.Width, img.Bitmap.Height), TRectF.Create(0, 0, 300, 160), 1.0);

在柏林及更高版本中，TBitmap 有一个 BoundsF 属性，您可以使用它来代替。

Canvas.DrawBitmap(img.Bitmap, img.Bitmap.BoundsF, TRectF.Create(0, 0, 300, 160), 1.0);