如何在Delphi中使用Intent进行调用？

Question

我怎么能像下面的代码一样，但使用Delphi？

Intent intent = new Intent(Intent.ACTION_DIAL);
intent.setData(Uri.parse("tel:[phone]"))
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;