Как осуществить набор номера?

[MashovetsAnton]

Добрый день. Как осуществить программно вызов (набор) номера? Необходимо для iOS и Android.

[sinuke]

Android без дополнительных разрешений и с показом экрана набора номера:

//uses Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText;

var
  Intent: JIntent;
begin
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  Intent.setData(StrToJURI('tel:' + somePhoneNumber));
  SharedActivity.startActivity(Intent);
end;

А для прямого осуществления вызова (с разрешениями) есть пример стандратный в папке:

c:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Object Pascal\Mobile Snippets\PhoneDialer\

Изменено 16 июня, 2017 пользователем sinuke

[MashovetsAnton]

Большое спасибо!!!

 

[afors]

Можно без показа экрана набора номера:

procedure TForm1.Button1Click(Sender: TObject);
// Uses FMX.Dialogs, FMX.PhoneDialer, FMX.Platform
var
  PhoneDialerService: IFMXPhoneDialerService;

begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService,
    IInterface(PhoneDialerService)) then
      PhoneDialerService.Call('+71234567890') Else ShowMessage ('Вызовы не поддерживаются');
end;