Delphi XE5讀出Android IMEI ID

首先要uses
[pascal]
uses
FMX.Platform.Android,
Androidapi.JNI.Telephony,
Androidapi.JNI.Provider ,
Androidapi.JNIBridge,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.JavaTypes,
FMX.Helpers.Android;
[/pascal]
接著放上Button，在Click事件打上
[pascal]
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);

[/pascal]

作者: 林壽山

林壽山 目前任職於軟體公司研究開發部門主管，主要採用.net core/.net 5/6 開發，收銀機pos系統開發，第三方支付設計（綠界、馬來西亞epay/happypay、台新one碼)，金流設計，行動支付設計(悠遊卡/一卡通)，支付寶，微信，街口支付，信用卡機(聯合信用卡)，擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計、ASP.net MVC、LINE串接、API串接設計 檢視「林壽山」的全部文章