Delphi에서 Android로 사진 찍기 Firemonkey XE5 app

Question

누구든지 Delphi Firemonkey XE5로 작성된 앱에서 Android 카메라로 사진을 찍을 수 있습니까? 비디오 캡쳐는 어때?

이것은 프레임 워크의 버그이거나 설명서에 대한 설명서가 누락 된 버그로 간주됩니다.

왜 코드 울부 짖기가 작동하지 않거나 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;