XE5开发Android程序调用电话相关功能(短信息和电话)

其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍.

1.短信息.很简单

方法a.不使用Intent而是直接发短信.
smsManager对应的Delphi代码应该是:

uses
  Androidapi.JNI.JavaTypes,Androidapi.JNI.Telephony;
var
  j: JSmsManager;
begin
  j := tjsmsmanager.Create;
  j.sendTextMessage(stringtojstring('137114553XX'), nil, stringtojstring('测试短信'), nil, nil);
end;

至于双卡双待用哪个卡来发送这些我没有详细研究,有兴趣的朋友可以研究下.
方法b.使用Intent启动系统的短信程序:
我猜以后这种方式会和电话一样会合并到TPlatformServices中.

uses
  Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Net
var
  uri: Jnet_Uri;
  Intent: JIntent;
begin
  uri := StrToJURI('smsto:137114553XX');
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SENDTO, uri);
  Intent.putExtra(StringToJString('sms_body'), StringToJString('测试短信'));
  SharedActivityContext.startActivity(Intent);
end;

2.电话

uses
  FMX.Platform, FMX.PhoneDialer;
var
  phone : IFMXPhoneDialerService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(phone)) then
  begin
    phone.Call('137114553XX');
    //监听电话请用phone.OnCallStateChanged事件
  end;
end;

这段代码适用于iOS和Android.
Android平台上实际上电话的封装就是系统的Intent方式调用.

扩展说一下,怎么使用Intent和Action.

简单封装了一个函数.可以使用Intent调用各种系统程序.大家理解成Windows的ShellExecute即可.

uses
  Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Net;
//XE6的话要引用Androidapi.Helpers单元
procedure Call_URI(const AAction : JString;const AURI: string);
var
  uri: Jnet_Uri;
  Intent: JIntent;
begin
  uri := StrToJURI(AURI);
  Intent := TJIntent.JavaClass.init(AAction, uri);
  {Intent.putExtra()
  如果是要发短信等复杂的应用,需要传递各种其他的参数.要用到Intent.putExtra()传递多个参数.
  这里只封装最简单的,具体Intent.putExtra()的用法,可以查询Java的资料.大把的
  }
  SharedActivityContext.startActivity(Intent);
end;

//使用例子:
//打电话
Call_URI(TJIntent.JavaClass.ACTION_CALL, 'tel:137114553XX');
//打开地图显示某个坐标点
Call_URI(TJIntent.JavaClass.ACTION_VIEW, 'geo:38.899533,-77.036476');
//发送电子邮件
 Call_URI(TJIntent.JavaClass.ACTION_SENDTO, 'mailto:wr960204@126.com');
//播放音乐
Call_URI(TJIntent.JavaClass.ACTION_VIEW, 'file:///sdcard/download/最炫民族风.mp3');

最后别忘了配置权限.Android程序是需要权限的.

另外补充一点,做Android开发最好还是有点java开发经验,这样对Android的体系可以有一个比较具体的了解,最起码知道调用的概念.其他平台同理.
先了解多各个平台的概念,然后用XE5开发.XE5解决的是实际工作的时候为了一套代码多个平台使用.

此条目发表在Delphi, 未分类分类目录。将固定链接加入收藏夹。

XE5开发Android程序调用电话相关功能(短信息和电话)》有 17 条评论

  1. 王云永说:

    Delphi XE5开发android,怎么实现用摄像头读取二维码?

  2. lin说:

    请教一下,XE5的安卓怎么取程序运行的路径?比如当前目录下的资源文件?XE4中的代码ExtractFilePath(ParamStr(0))取出来是空的。

  3. MO说:

    请问如何挂断电话,还有如何判断电话的当前状态,如对方是否已经接电话?

    • admin说:

      是否接电话博客上不是说了可以用OnCallStateChanged来处理吗.
      至于用代码挂断电话我记得早期版本的Android是可以的,后来谷歌直接封死了.
      在Java里面现在一般这样处理,通过系统的反射(或者RTTI)获取到ITelephony接口.然后调用ITelephony的EndCall方法就可以挂断.至于在Delphi里怎么通过反射获取Java对象我还没研究那么深

  4. 匿名说:

    xe5 没有的到android.provider.Telephony.SMS_RECEIVED ,是不是不能接收短信。

  5. 匿名说:

    要是能给个例子就好了。谢谢

  6. hello, please answer call example code. Thank you.

  7. xej说:

    你好,请给接听电话的示例代码。非常感谢。

  8. sail2000说:

    武大侠,如何监控来电/挂断事件或者来电/挂断状态?
    我做的APP是播放器,在手机来电时,必须要暂停APP当前播放。等通话完毕挂断后,再恢复播放。

lin进行回复 取消回复

电子邮件地址不会被公开。

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

你必须启用JavaScript