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

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
 8   FMX.StdCtrls, FMX.Edit,
 9   FMX.Platform,//需要引入
10   FMX.PhoneDialer;//需要引入
11 
12 type
13   TForm1 = class(TForm)
14     Button1: TButton;
15     lblCarrierName: TEdit;
16     lblISOCountryCode: TEdit;
17     Button2: TButton;
18     edtTelephoneNumber: TEdit;
19     lblCallState: TEdit;
20     Label1: TLabel;
21     Label2: TLabel;
22     Label3: TLabel;
23     procedure Button1Click(Sender: TObject);
24     procedure Button2Click(Sender: TObject);
25   private
26     //电话服务
27     PhoneDialerService: IFMXPhoneDialerService;
28     { Private declarations }
29   public
30     //需要覆盖
31     constructor Create(AOwner: TComponent); override;
32     { Public declarations }
33   end;
34 
35 var
36   Form1: TForm1;
37 
38 implementation
39 
40 {$R *.fmx}
41 {$R *.NmXhdpiPh.fmx ANDROID}
42 
43 { TForm1 }
44 
45 //获取电话服务
46 constructor TForm1.Create(AOwner: TComponent);
47 begin
48   inherited Create(AOwner);
49   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
50 end;
51 
52 //获取运营商
53 procedure TForm1.Button1Click(Sender: TObject);
54 begin
55  { test whether the PhoneDialer services are supported on your device }
56   if Assigned(PhoneDialerService) then
57   begin
58     { if yes, then update the labels with the retrieved information }
59     lblCarrierName.Text := ‘Carrier Name:  ‘  + PhoneDialerService.GetCarrier.GetCarrierName;
60     lblISOCountryCode.Text := ‘ISO Country Code: ‘ + PhoneDialerService.GetCarrier.GetIsoCountryCode;
61   end;
62 end;
63 
64 end.

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
 8   FMX.StdCtrls, FMX.Edit,
 9   FMX.Platform,//需要引入
10   FMX.PhoneDialer;//需要引入
11 
12 type
13   TForm1 = class(TForm)
14     Button1: TButton;
15     lblCarrierName: TEdit;
16     lblISOCountryCode: TEdit;
17     Button2: TButton;
18     edtTelephoneNumber: TEdit;
19     lblCallState: TEdit;
20     Label1: TLabel;
21     Label2: TLabel;
22     Label3: TLabel;
23     procedure Button1Click(Sender: TObject);
24     procedure Button2Click(Sender: TObject);
25   private
26     //电话服务
27     PhoneDialerService: IFMXPhoneDialerService;
28     { Private declarations }
29   public
30     //需要覆盖
31     constructor Create(AOwner: TComponent); override;
32     { Public declarations }
33   end;
34 
35 var
36   Form1: TForm1;
37 
38 implementation
39 
40 {$R *.fmx}
41 {$R *.NmXhdpiPh.fmx ANDROID}
42 
43 { TForm1 }
44 //获取电话服务
45 constructor TForm1.Create(AOwner: TComponent);
46 begin
47   inherited Create(AOwner);
48   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
49 end;
50 
51 //打电话功能
52 procedure TForm1.Button2Click(Sender: TObject);
53 begin
54  { test whether the PhoneDialer services are supported on your device }
55   if Assigned(PhoneDialerService) then
56   begin
57     { if the Telephone Number is entered in the edit box then make the call, else
58       display an error message }
59     if edtTelephoneNumber.Text <> ‘‘ then
60       PhoneDialerService.Call(edtTelephoneNumber.Text)
61     else
62     begin
63       ShowMessage(‘Please type-in a telephone number.‘);
64       edtTelephoneNumber.SetFocus;
65     end;
66   end;
67 end;
68 
69 end.

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation,
 8   FMX.StdCtrls, FMX.Edit,
 9   FMX.Platform,//需要引入
10   FMX.PhoneDialer;//需要引入
11 
12 type
13   TForm1 = class(TForm)
14     Button1: TButton;
15     lblCarrierName: TEdit;
16     lblISOCountryCode: TEdit;
17     Button2: TButton;
18     edtTelephoneNumber: TEdit;
19     lblCallState: TEdit;
20     Label1: TLabel;
21     Label2: TLabel;
22     Label3: TLabel;
23     procedure Button1Click(Sender: TObject);
24     procedure Button2Click(Sender: TObject);
25   private
26     //电话服务
27     PhoneDialerService: IFMXPhoneDialerService;
28     //定义方法
29     procedure MyOnCallStateChanged(const ACallID: String; const ACallState: TCallState);
30     { Private declarations }
31   public
32     //需要覆盖
33     constructor Create(AOwner: TComponent); override;
34     { Public declarations }
35   end;
36 
37 var
38   Form1: TForm1;
39 
40 implementation
41 
42 {$R *.fmx}
43 {$R *.NmXhdpiPh.fmx ANDROID}
44 
45 { TForm1 }
46 
47 //获取电话服务
48 constructor TForm1.Create(AOwner: TComponent);
49 begin
50   inherited Create(AOwner);
51   TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService));
52   if Assigned(PhoneDialerService) then
53     PhoneDialerService.OnCallStateChanged := MyOnCallStateChanged;
54 end;
55 
56 //检测呼叫状态的变化
57 procedure TForm1.MyOnCallStateChanged(const ACallID: String;
58   const ACallState: TCallState);
59 var outText: String;
60 begin
61   case ACallState of
62        FMX.PhoneDialer.TCallState.None:         outText := ‘No calls‘;
63        FMX.PhoneDialer.TCallState.Connected:    outText := ‘Connected‘;
64        FMX.PhoneDialer.TCallState.Incoming:     outText := ‘Incoming call‘;
65        FMX.PhoneDialer.TCallState.Dialing:      outText := ‘Dialing‘;
66        FMX.PhoneDialer.TCallState.Disconnected: outText := ‘Disconnected‘;
67   end;
68   lblCallState.Text := outText;
69 end;
70 
71 end.