delphi for android 获取手机号

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;
 
---------------------