[Media Library] [TTakePhotoFromCameraAction] Как получить фото высокого качества с использованием TTakePhotoFromCameraAction?

[Ufomaster]

Как получить Image максимального качества из стандартного экшена на Android?

 

Делаю вот так 

procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
  fst: TMemoryStream;
begin
  if not IdTCPClient1.Connected then
    IdTCPClient1.Connect;
  fst := TMemoryStream.Create;
  Image.SaveToStream(fst);
  IdTCPClient1.Socket.WriteLn(IntToStr(fst.Size));
  IdTCPClient1.Socket.Write(fst);
  IdTCPClient1.Disconnect;
  fst.Free;
end;

передает фото в формате PNG. Как получить оригинал jpg  (100 % сжатия) ?

Изменено 21 октября, 2015 пользователем Brovin Yaroslav

[Ufomaster]

Разобрался. Перед  использованием нужно установить   TakePhotoFromCameraAction1.MaxHeight ,  TakePhotoFromCameraAction1.MaxWidth  под вашу камеру.