DelphiXE5-FrieMonkey获取手机的IMSI等信息

来源：互联网发布：飞豆打印软件连打编辑：程序博客网时间：2024/04/30 09:58

procedure THeaderFooterForm.FormCreate(Sender: TObject);var  TelephonyManager: JTelephonyManager;  TelephonyServiceNative: JObject;begin  TelephonyServiceNative := SharedActivityContext.getSystemService    (TJContext.JavaClass.TELEPHONY_SERVICE);  if Assigned(TelephonyServiceNative) then    TelephonyManager := TJTelephonyManager.Wrap      ((TelephonyServiceNative as ILocalObject).GetObjectID);  LabelIMEI.Text    := LabelIMEI.Text   + JStringToString(TelephonyManager.getDeviceId) ;//取IMEI  LabelMsiSdn.Text  := LabelMsiSdn.Text + JStringToString(TelephonyManager.getLine1Number) ;//取MSISDN  手机号,大部分SIM卡中不会写入这个信息  LabelIccid.Text   := LabelIccid.Text  + JStringToString(TelephonyManager.getSimSerialNumber) ;//取ICCID  LabelImsi.Text    := labelimsi.Text   + JStringToString(TelephonyManager.getSubscriberId) ; //取IMSI  运营商实际上是用这个查询的他那张对应电话号码的表  //还有很多方法,具体请查看JTelephonyManager的声明end;

0 0