Android实例-使用电话拨号器在移动设备上(官方)(XE8+小米2)

源文地址：

http://docwiki.embarcadero.com/RADStudio/XE5/en/Mobile_Tutorial:_Using_the_Phone_Dialer_on_Mobile_Devices_(iOS_and_Android)

1.获取运营商、国家代码

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
   FMX.StdCtrls, FMX.Edit,
   FMX.Platform,//需要引入
   FMX.PhoneDialer;//需要引入

 type
   TForm1 = class(TForm)
     Button1: TButton;
     lblCarrierName: TEdit;
     lblISOCountryCode: TEdit;
     Button2: TButton;
     edtTelephoneNumber: TEdit;
     lblCallState: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     //电话服务
     PhoneDialerService: IFMXPhoneDialerService;
     { Private declarations }
   public
     //需要覆盖
     constructor Create(AOwner: TComponent); override;
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 { TForm1 }

 //获取电话服务
 constructor TForm1.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
 end;

 //获取运营商
 procedure TForm1.Button1Click(Sender: TObject);
 begin
  { test whether the PhoneDialer services are supported on your device }
   if Assigned(PhoneDialerService) then
   begin
     { if yes, then update the labels with the retrieved information }
     lblCarrierName.Text := 'Carrier Name:  '  + PhoneDialerService.GetCarrier.GetCarrierName;
     lblISOCountryCode.Text := 'ISO Country Code: ' + PhoneDialerService.GetCarrier.GetIsoCountryCode;
   end;
 end;

 end.

2.实现打电话功能

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
   FMX.StdCtrls, FMX.Edit,
   FMX.Platform,//需要引入
   FMX.PhoneDialer;//需要引入

 type
   TForm1 = class(TForm)
     Button1: TButton;
     lblCarrierName: TEdit;
     lblISOCountryCode: TEdit;
     Button2: TButton;
     edtTelephoneNumber: TEdit;
     lblCallState: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     //电话服务
     PhoneDialerService: IFMXPhoneDialerService;
     { Private declarations }
   public
     //需要覆盖
     constructor Create(AOwner: TComponent); override;
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 { TForm1 }
 //获取电话服务
 constructor TForm1.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
 end;

 //打电话功能
 procedure TForm1.Button2Click(Sender: TObject);
 begin
  { test whether the PhoneDialer services are supported on your device }
   if Assigned(PhoneDialerService) then
   begin
     { if the Telephone Number is entered in the edit box then make the call, else
       display an error message }
     if edtTelephoneNumber.Text <> '' then
       PhoneDialerService.Call(edtTelephoneNumber.Text)
     else
     begin
       ShowMessage('Please type-in a telephone number.');
       edtTelephoneNumber.SetFocus;
     end;
   end;
 end;

 end.

3.检测呼叫状态的变化

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
   FMX.StdCtrls, FMX.Edit,
   FMX.Platform,//需要引入
   FMX.PhoneDialer;//需要引入

 type
   TForm1 = class(TForm)
     Button1: TButton;
     lblCarrierName: TEdit;
     lblISOCountryCode: TEdit;
     Button2: TButton;
     edtTelephoneNumber: TEdit;
     lblCallState: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     //电话服务
     PhoneDialerService: IFMXPhoneDialerService;
     //定义方法
     procedure MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
     { Private declarations }
   public
     //需要覆盖
     constructor Create(AOwner: TComponent); override;
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 { TForm1 }

 //获取电话服务
 constructor TForm1.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
   if Assigned(PhoneDialerService) then
     PhoneDialerService.OnCallStateChanged := MyOnCallStateChanged;
 end;

 //检测呼叫状态的变化
 procedure TForm1.MyOnCallStateChanged(const ACallID: String;
   const ACallState: TCallState);
 var outText: String;
 begin
   case ACallState of
        FMX.PhoneDialer.TCallState.None:         outText := 'No calls';
        FMX.PhoneDialer.TCallState.Connected:    outText := 'Connected';
        FMX.PhoneDialer.TCallState.Incoming:     outText := 'Incoming call';
        FMX.PhoneDialer.TCallState.Dialing:      outText := 'Dialing';
        FMX.PhoneDialer.TCallState.Disconnected: outText := 'Disconnected';
   end;
   lblCallState.Text := outText;
 end;

 end.

PS:

的 IFMXPhoneDialerService 接口提供了 OnCallStateChanged 事件,允许您处理呼叫状态的变化。 的 TCallState 枚举描述可能的电话状态。

下面的表描述的物品 TCallState 枚举(为每个平台支持的州是标有“+”)。 

项	描述	iOS	安卓
csNone	没有呼叫状态。	+	- - - - - -
csConnected	电话调用者与被调用方。	+	+
csIncoming	传入的电话。	+	+
csDialing	手机在拨号状态。	+	- - - - - -
csDisconnected	调用断开连接。	+	+