Search code examples
delphicamerafiremonkey

Delphi - TakePhotoFromCameraAction - photo resolution

This is what my code looks like for saving photos in Firemonkey on Android. The photos save, but in very poor quality. Despite the fact that the camera is set to max resolution, I get photos that are 462px x 1000px.
Does anyone know how to change this ?

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;
Solution

  • I found a solution. Too bad it's not in the documentation.

    TTakePhotoFromCameraAction has MaxWidth and MaxHeight properties.