Delphi Firemonkey XE5アプリからAndroidで写真を撮る

Question

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; 

権限が正しく設定されています。

Answer 1

このコードは正常に動作します：

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;