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;
http://blog.csdn.net/syndicater/article/details/19325305
|
请发表评论