FrieMonkey获取手机的IMSI等信息

[delphi] view plain copy
 
  1. procedure THeaderFooterForm.FormCreate(Sender: TObject);  
  2. var  
  3.   TelephonyManager: JTelephonyManager;  
  4.   TelephonyServiceNative: JObject;  
  5. begin  
  6.   TelephonyServiceNative := SharedActivityContext.getSystemService  
  7.     (TJContext.JavaClass.TELEPHONY_SERVICE);  
  8.   if Assigned(TelephonyServiceNative) then  
  9.     TelephonyManager := TJTelephonyManager.Wrap  
  10.       ((TelephonyServiceNative as ILocalObject).GetObjectID);  
  11.   LabelIMEI.Text    := LabelIMEI.Text   + JStringToString(TelephonyManager.getDeviceId) ;//取IMEI  
  12.   LabelMsiSdn.Text  := LabelMsiSdn.Text + JStringToString(TelephonyManager.getLine1Number) ;//取MSISDN  手机号,大部分SIM卡中不会写入这个信息  
  13.   LabelIccid.Text   := LabelIccid.Text  + JStringToString(TelephonyManager.getSimSerialNumber) ;//取ICCID  
  14.   LabelImsi.Text    := labelimsi.Text   + JStringToString(TelephonyManager.getSubscriberId) ; //取IMSI  运营商实际上是用这个查询的他那张对应电话号码的表  
  15.   //还有很多方法,具体请查看JTelephonyManager的声明  
  16.   
  17.   
  18.   
  19.   
  20.   
  21.   
  22. end;  

http://blog.csdn.net/warrially/article/details/37810237

 

posted @ 2017-02-01 06:11  findumars  Views(635)  Comments(0)  Edit  收藏  举报