Как сделать звонок с помощью Intent в Delphi?

Question

Как я могу сделать то же, что и следующий код, но с использованием Delphi?

Intent intent = new Intent(Intent.ACTION_DIAL);
intent.setData(Uri.parse("tel:0987654321"))
startActivity(intent);

Answer 1

Это может помочь:

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

procedure Dial(const ANumber: string);
var
  LIntent: JIntent;
begin
  LIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_DIAL);
  if LIntent.resolveActivity(TAndroidHelper.Context.getPackageManager) <> nil then
  begin
    LIntent.setData(TJnet_Uri.JavaClass.parse(StringToJString('tel:' + ANumber)));
    TAndroidHelper.Context.startActivity(LIntent);
  end
  else
    ShowMessage('Cannot dial!');
end;