delphi for android 获取手机号

最新推荐文章于 2025-05-19 10:25:41 发布

转载最新推荐文章于 2025-05-19 10:25:41 发布 · 3.3k 阅读

文章标签：

#Delphi xe5 #android开发

Delphi xe5 for android 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个简单的Delphi FMX应用程序，演示如何通过Android API在运行时获取设备的电话号码。程序使用了TJTelephonyManager类来访问电信服务并读取电话号码。

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;