delphi for android 獲取手機號
阿新 • • 發佈:2018-10-07
cti content tex BL1 string tlab man ria sender
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 ((TelephonyServiceNativeas ILocalObject).GetObjectID); lbl1.Text:=JStringToString(TelephonyManager.getLine1Number);//取得手機號 end; ---------------------
delphi for android 獲取手機號