在这篇文章中,我们将编写一个带有Delphi 10.3 Rio的Android应用程序,能够捕获设备的IMEI。
运行时权限
Android的一个进化点是请求在运行时使用资源的权限。实际上,应用程序在执行时应该要求用户授权使用Android认为“危险”的功能。
在Delphi 10.3是第一个版本,以配备原生机制,满足Android的这一要求。因此,从Delphi 10.3 Rio开始,新的Android权限模型应该是我们的代码。
IMEI设备ID
IMEI是一个缩写,移动设备识别码 (国际移动设备识别码)。这是每个设备的唯一数字序列和特殊字符。这个想法非常类似于网卡的MAC地址。这使得每月在市场上的数百个设备中定位特定设备变得容易。
创建Mobile Delphi 10.3应用程序
谈到移动APP,确保只有授权的“人员”APP才能查看公司信息是至关重要的。在Delphi 10.3中创建一个新的Mobile项目,在源代码中,我们将在uses子句中添加以下引用:
uses
FMX.Platform.Android,
Androidapi.JNI.Telephony,
Androidapi.JNI.Provider ,
Androidapi.JNIBridge,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.JavaTypes,
Androidapi.Helpers;
在表单中,我们将添加一个Button,将其Text属性更改为“Capture IMEI” ,将Name属性更改为btnCaptureIMEI。
让我们编写你的onClick事件,如下所示:
procedure TForm1.btnCapturarIMEIClick(Sender: TObject);
var
obj: JObject;
tm: JTelephonyManager;
IMEI: String;
begin
obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
if obj <> nil then
begin
tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
if tm <> nil then
IMEI := JStringToString(tm.getDeviceId);
end;
if IMEI = '' then
IMEI := JStringToString(TJSettings_Secure.JavaClass.getString( SharedActivity.getContentResolver, TJSettings_Secure.JavaClass.ANDROID_ID));
ShowMessage('IMEI :' + #13 + IMEI);
end;
容易......非常容易......
运行APP并单击按钮,将显示设备的IMEI。
欢迎加入Delphi知识局QQ群:32422310 一起学习业界最领先的跨平台开发工具Delphi