Aufnehmen von Bildern auf Android von Delphi Firemonkey XE5 App

Question

Hat jemand Fotos von der Kamera auf Android aus der App in Delphi FireMonkey XE5 fotografieren können? Wie wäre es mit der Videoaufnahme?

Es wird davon ausgegangen, dass dies entweder ein Fehler in einem Framework oder einfach etwas mit fehlenden Dokumentationen dazu ist.

Kann jemand sagen, warum der Code unten funktioniert nicht/ein beliebiges Bild von einer Kamera auf Android abrufen?

Hat eine TCameraComponent in einem Formular und eine TImage-Komponente ebenfalls gelöscht, und nichts passiert.

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; 

Berechtigungen sind richtig eingestellt.

Answer 1

Dieser Code funktioniert:

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;