Anna Blanca

Thank you, that's works. Normal compile. Truly, when i'm writing next code: procedure TForm1.Button1Click(Sender: TObject); var I : Integer; SoName : THandle; ExportFunc : function(X, Y : Integer) : Integer; begin SoName := LoadLibrary('/storage/emulated/0/Documents/libTestLibrary.so'); if SoName <> 0 then begin ExportFunc := GetProcAddress(SoName, 'Launch'); I := ExportFunc(3, 5); Label1.Text := IntToStr(I); end; end; Nothing not happens....Even when i writed wrong library name, app not fired out with error.

Hi. I'm trying getting permission from Android in my app, i'm using standart code for this: procedure TForm1.GetPermission; begin if not PermissionsService.IsPermissionGranted(JStringToString(TJManifest_permission.JavaClass.VIBRATE)) then PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.VIBRATE)], procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) begin if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then ShowMessage('Access granted') else ShowMessage('Access denied'); end); end; But that not works. My app not asking permission on the launch this code, it just sending message 'Access denied'. What's wrong and how fix it? Also, when i'm using this code for getting permission WRITE_EXTERNAL_STORAGE, all working right.

Oh, thank you, vibrations working. But why application not asking permission for vibrate from user? Usually, when you not pushed button for get access, app cant't working....

When i making it, my app not asking permission. It's just silent and dead.