Delphi TakePhotoFromCameraAction - 照片分辨率

Question

这就是我在 Android 上的 Firemonkey 中保存照片的代码。 照片保存了，但质量很差。尽管相机设置为最大分辨率，我还是得到了 462 像素 x 1000 像素的照片。
有谁知道如何改变这个吗？

procedure TMainForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
   path: string;
   jpgQuality : TBitmapCodecSaveParams;
begin
   //memo1.lines.Add(inttostr(image.Width) +  '  '   +  inttostr(image.Height) ) // I get 462 x1000
   jpgQuality.Quality:= 100;
   path := TPath.Combine(TPath.GetSharedPicturesPath, 'test' + '.jpg' );

Image.SaveToFile(path, @jpgQuality);

end;

Answer 1

我找到了解决办法。太糟糕了，它不在文档中。

TTakePhotoFromCameraAction 具有 MaxWidth 和 MaxHeight 属性。