4

我正在使用 Delphi 10.3 Community Edition 编写一个简单的 Android 应用程序并尝试调用本机设备摄像头,但出现错误。

我正在关注 Delphi 官方指南

在表单设计器上,选择按钮(用于拍照)。在 Object Inspector 中,选择 Action 属性的下拉列表。选择新标准动作 | 媒体库 | TtakePhotoFromCameraAction:

在事件选项卡上,展开操作节点,然后双击 OnDidFinishTaking 事件。

将以下代码添加到 OnDidFinishTaking 事件处理程序:

procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  Image1.Bitmap.Assign(Image);
end;

此代码将从移动设备相机拍摄的图片分配给 TImage 组件的 Bitmap 属性。

我已验证该项目 | 选项 | 使用权限 - 相机设置设置为true。我也在申请启动应用所需的权限。在 Debug 或 Release 中运行没有区别。

然而有一个问题。单击按钮时,我收到以下错误消息:

java.lang.NullPointerException:尝试在空对象引用上调用虚拟方法 'android.content.res.XmlResourceParser android.content.pm.PackageItemInfo.loadXmlMetaData(android.content.pm.PackageManager, java.lang.String)'。

这是我为最简单的测试应用程序编写的代码:

unit Unit1;
interface
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Permissions,
  FMX.StdCtrls, FMX.MediaLibrary, FMX.Platform, System.Messaging, FMX.Objects,
  System.Actions, FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions,
  FMX.Controls.Presentation;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ActionList1: TActionList;
    TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
    procedure FormCreate(Sender: TObject);
  private
    procedure PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
    procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
  end;

var
  Form1: TForm1;

implementation
uses
{$IFDEF ANDROID}
  Androidapi.Helpers,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Os,
{$ENDIF}
  FMX.DialogService;

{$R *.fmx}

procedure TForm1.PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
  // 3 permission involved
  if (Length(AGrantResults) = 3)
  and (AGrantResults[0] = TPermissionStatus.Granted)
  and (AGrantResults[1] = TPermissionStatus.Granted)
  and (AGrantResults[2] = TPermissionStatus.Granted) then
  else
    ShowMessage('Required permission has not been granted') ;
end;

procedure TForm1.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
begin
  TDialogService.ShowMessage('Need to access the camera',
    procedure(const AResult: TModalResult)
    begin
      APostRationaleProc;
    end);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  permCam, permRead, permWrite: string;
begin
  // Request permissions
  permCam := JStringToString(TJManifest_permission.JavaClass.CAMERA);
  permRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  permWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
  PermissionsService.RequestPermissions([permCam, permRead, permWrite], PermissionRequestResult, DisplayRationale);
end;

end.

如何使本机相机 TTakePhotoFromCameraAction 工作?

4

3 回答 3

12

检查项目选项 > 权利列表 > 安全文件共享选项是否设置为true

于 2018-12-18T15:32:22.970 回答
2

对于将项目从旧版本移植到 10.3 的任何人,请确保您的 AndroidManifest.xml 在 <%application-meta-data%> 标记上方包含 <%provider%> 标记。

我在其他方面发现了很多评论,这里建议可以在这里找到这个文件:

C:\Users\(yourusername)\AppData\Roaming\Embarcadero\BDS\20.0\AndroidManifest.xml

但如果这不起作用,那么您的源目录AndroidManifest.template.xml中可能已经有一个文件。如果是这种情况,那么编译器将使用此模板文件并忽略 AppData 文件夹中的文件!

于 2020-03-12T12:05:53.437 回答
2

我遇到了 Android 9 可以工作但某些运行 Android 10 的设备不能工作的问题。我需要执行上面列出的答案中的步骤,但我的仍然无法正常工作,直到我添加:

android:requestLegacyExternalStorage="true"

到我的 AndroidManifest.template.xml 的应用程序部分

于 2020-12-29T18:44:56.487 回答