delphi for android 获取手机号

本文整理自网络，侵删。

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,Androidapi.JNI.GraphicsContentViewText,
    Androidapi.JNIBridge,  Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes,
     FMX.Helpers.Android, FMX.StdCtrls;


 type
   TForm1 = class(TForm)
     btn1: TButton;
     lbl1: TLabel;
     procedure btn1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   TelephonyManager: JTelephonyManager;
   TelephonyServiceNative: JObject;

implementation

{$R *.fmx}

procedure TForm1.btn1Click(Sender: TObject);
 begin
   TelephonyServiceNative := SharedActivityContext.getSystemService
     (TJContext.JavaClass.TELEPHONY_SERVICE);
   if Assigned(TelephonyServiceNative) then
     TelephonyManager := TJTelephonyManager.Wrap
       ((TelephonyServiceNative as ILocalObject).GetObjectID);
   lbl1.Text:=JStringToString(TelephonyManager.getLine1Number);//取得手机号

end;

 

相关阅读 >>

几个webbrowser相关的函数

Delphi怎么实现一定范围内的随机数呢？

Delphi的几种类型转换

Delphi x 的 y 次方

Delphi打开文件夹并定位到一个文件

Delphi cxgrid使用小结

Delphi 字符串连接

Delphi 获取本地网络连接

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi 一句话获取文件的最新修改时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi for android 获取手机号