加载中…
个人资料
步惊云
步惊云
  • 博客等级:
  • 博客积分:0
  • 博客访问:10,636
  • 关注人气:3
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

获取Android手机IEMI

(2020-11-05 11:51:35)
分类: FMX$Datasnap

implementation

uses

Androidapi.Helpers,

FMX.Helpers.Android,

FMX.Platform,

FMX.Platform.Android,

Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNI.JavaTypes,

Androidapi.JNI.Os,

Androidapi.JNI.Telephony,

Androidapi.JNI.Net,

Androidapi.JNI, Androidapi.JNI.Provider,

Androidapi.JNIBridge,

System.Permissions;

{$R *.fmx}

{$IFDEF Android}

function GetAndroidID(): string;

var

JObj: JObject;

JTM: JTelephonyManager;

begin

try

JObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);

if Assigned(JObj) then begin

JTM := TJTelephonyManager.Wrap( (JObj as ILocalObject).GetObjectID );

if ASsigned(JTM) then begin

Result:= JStringToString(JTM.getDeviceId);

end;

end;

finally

if Result = '' then begin

showmessage('');

Result:= JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver, TJSettings_Secure.JavaClass.ANDROID_ID));

end;

end;

end;

{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:= GetAndroidID;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

AStr:string;

begin

//程序启动时获得读取电话状态权限

AStr := JStringToString(TJManifest_permission.JavaClass.READ_PHONE_STATE);

PermissionsService.RequestPermissions([AStr], nil, nil);

end;

end.

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有