我試圖通過android設備的攝像頭獲取影像，使用actionList，我總是收到以下錯誤。我哪里錯了？
這是我的代碼：
procedure TMain.BtnTakePhotoClick(Sender: TObject);
var
Service: IFMXCameraService;
Params : TParamsPhotoQuery;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService,Service) then
begin
Params.Editable := True;
// Specifies whether to save a picture to device Photo Library
Params.NeedSaveToAlbum := True;
Params.RequiredResolution := TSize.Create(640, 640);
Params.OnDidFinishTaking := TakePhotoFromCameraAction1DidFinishTaking;
Service.TakePhoto(BtnTakePhoto, Params);
end
else
ShowMessage('This device does not support the camera service');
end;
OnformCreate Permission:
procedure TMain.FormCreate(Sender: TObject);
var
VCam, VRead, VWrite: string;
begin
// Request permissions
VCam := JStringToString(TJManifest_permission.JavaClass.CAMERA);
VRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
VWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
PermissionsService.RequestPermissions([VCam, VRead, VWrite], PermissionRequestResult, DisplayRationale);
end;
I always receive: There is no overloaded version of 'RequestPermission'.
Waht i'm doing wrong?
Thank you.
uj5u.com熱心網友回復：
您可能已經使用過舊的宣告，如下所示：
PROCEDURE PermissionRequestResult( Sender : TObject;
const APermissions : TClassicStringDynArray;
const AGrantResults : TClassicPermissionStatusDynArray);
PROCEDURE DisplayRationale( Sender : TObject;
const APermissions : TClassicStringDynArray;
const APostRationaleProc : TProc);
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/433779.html
上一篇：IdThreadSafe.pas中TIdCriticalSection.Create的記憶體泄漏
下一篇：運行時和設計時組件流式傳輸的差異