XE5开发Android程序调用电话相关功能(短信息和电话) [转]-优快云博客

本文介绍了如何在Android平台上实现短信发送与电话拨打的功能，包括直接发送短信、使用Intent调用系统短信程序以及通过Intent调用电话功能，并强调了权限配置的重要性。

其实都可以通过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;
        
         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'
         );