Фотосъемка на Android от приложения Delphi Firemonkey XE5

Кто-нибудь мог снимать с камеры на Android из приложения, написанного на Delphi Firemonkey XE5? Как насчет видеозахвата?

Это считается либо ошибкой в ​​рамках, либо просто отсутствием документации.

Может ли кто-нибудь сказать, почему приведенный ниже код не работает / не извлекает изображения с камеры на Android?

Выбросил TCameraComponent в форме и компонент TImage, и ничего не происходит.

procedure TCameraComponentForm.OnCreate(Sender: TObject); begin CameraComponent1.Kind := FMX.Media.TCameraKind.ckFrontCamera; CameraComponent1.FlashMode := FMX.Media.TFlashMode.fmFlashOff; CameraComponent1.Active := True; end; procedure TCameraComponentForm.CameraComponent1SampleBufferReady( Sender: TObject; const ATime: Int64); begin CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, True); Image1.Width := Image1.Bitmap.Width; Image1.Height := Image1.Bitmap.Height; end; 

Разрешения установлены правильно.

Этот код отлично работает:

 procedure TfrmPrincipal.SampleBufferSync; begin cmcPrincipal.SampleBufferToBitmap(imgFoto.Bitmap, true); end; procedure TfrmPrincipal.cmcPrincipalSampleBufferReady(Sender: TObject; const ATime: Int64); begin TThread.Synchronize(TThread.CurrentThread, SampleBufferSync); // CameraComponent1.SampleBufferToBitmap(imgFoto.Bitmap, True); // imgFoto.Width := imgFoto.Bitmap.Width; // imgFoto.Height := imgFoto.Bitmap.Height; end; procedure TfrmPrincipal.FormShow(Sender: TObject); begin cmcPrincipal.Kind := FMX.Media.TCameraKind.ckBackCamera; try cmcPrincipal.FlashMode := FMX.Media.TFlashMode.fmFlashOff; except end; cmcPrincipal.Active := True; end;