Android Kamerazugriff java.lang.NullPointerException error

[zeras]

Ich habe einmal dein Beispiel genutzt. Die Fehlermeldung kommt auch bei mir, aber ich kann ein Foto aufnehmen.
Geht das auch bei dir?

[zeras]

Da du 3 Berechtigungen haben möchtest, musst du diese auch entsprechend abfragen, siehe weiter unten:

Delphi-Quellcode:

  FPermissionCamera := JStringToString(TJManifest_permission.JavaClass.CAMERA);
  FPermissionReadStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  FPermissionWriteStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);

  PermissionsService.RequestPermissions([FPermissionCamera,FPermissionReadStorage,FPermissionWriteStorage],
   procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
   begin
//        if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
     if (Length(AGrantResults) = 3)
     and (AGrantResults[0] = TPermissionStatus.Granted)
     and (AGrantResults[1] = TPermissionStatus.Granted)
     and (AGrantResults[2] = TPermissionStatus.Granted) then

          TDialogService.ShowMessage('permission granted')
        else
        begin
          TDialogService.ShowMessage('permission not granted');
        end;
      end
  );
end;

[lereis]

Zitat von zeras:

Da du 3 Berechtigungen haben möchtest, musst du diese auch entsprechend abfragen, siehe weiter unten:

Delphi-Quellcode:

  FPermissionCamera := JStringToString(TJManifest_permission.JavaClass.CAMERA);
  FPermissionReadStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  FPermissionWriteStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);

  PermissionsService.RequestPermissions([FPermissionCamera,FPermissionReadStorage,FPermissionWriteStorage],
   procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
   begin
//        if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
     if (Length(AGrantResults) = 3)
     and (AGrantResults[0] = TPermissionStatus.Granted)
     and (AGrantResults[1] = TPermissionStatus.Granted)
     and (AGrantResults[2] = TPermissionStatus.Granted) then

          TDialogService.ShowMessage('permission granted')
        else
        begin
          TDialogService.ShowMessage('permission not granted');
        end;
      end
  );
end;

Das ist ein guter Einwand. Ich weiss nicht wie mir das nicht auffallen konnte. Habe es angepasst und jetzt prüft er zumindest schonmal die Berechtigungen richtig. Vielen Dank.