delphi xe5 android 开发实现手机打电话和发短信
转载自 http://www.raysoftware.cn/
其实都可以通过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' ); //播放音乐 |
最后别忘了配置权限.Android程序是需要权限的.
另外补充一点,做Android开发最好还是有点java开发经验,这样对Android的体系可以有一个比较具体的了解,最起码知道调用的概念.其他平台同理. 先了解多各个平台的概念,然后用XE5开发.XE5解决的是实际工作的时候为了一套代码多个平台使用.
delphi xe5 android 开发实现手机打电话和发短信的更多相关文章
- XE5 Android 开发实现手机打电话和发短信 [转]
其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍. 1.短信息.很简单 方法a.不使用Intent ...
- android开发学习:打电话和发短信
1.新建一个android项目 File--New--Other--android application project 填写application name(就是应用的名字.比方:天天酷跑) 填写 ...
- IOS 开发,调用打电话,发短信,打开网址
IOS 开发,调用打电话,发短信,打开网址 1.调用 自带mail [[UIApplication sharedApplication] openURL:[NSURL URLWithString: ...
- Android调用系统的打电话和发短信界面(1.将消息内容带过去2.实现群发)
package com.example.myapi.sms; import android.app.Activity; import android.content.Intent; import an ...
- Android实例-打电话、发短信和邮件,取得手机IMEI号(XE8+小米2)
结果: 1.不提示发短信卡住,点击没有反映,我猜想,可能是因为我用的是小米手机吧. 2.接收短信报错,我猜想可能是我改了里面的方法吧(哪位大神了解,求指教). 3.project -->opti ...
- 代码控制打电话、发短信、发邮件、打开手机app等操作
很多时候我们需要利用我门自己的app进行一些打电话.发短信等的操作,那么如何利用代码实现呢,下面就介绍一些简单的方法来实现这些操作. 一.打电话: <1>最简单.最直接的方法----直接跳 ...
- 打电话、发短信、web以及发邮件
#import "ViewController.h" #import <MessageUI/MessageUI.h> //导入信息UI库 @interface View ...
- iOS学习笔记(十四)——打电话、发短信
电话.短信是手机的基础功能,iOS中提供了接口,让我们调用.这篇文章简单的介绍一下iOS的打电话.发短信在程序中怎么调用. 1.打电话 [[UIApplication sharedApplicatio ...
- iOS10打电话、发短信、发邮件等小功能
注意:iOS10.0以后,使用openURL会有延迟,需要使用 openURL: options: completionHandler: 一.概要 本文中主要就是介绍在iOS中实现打电话.发短信.发邮 ...
随机推荐
- vim中的一些高级命令的使用
现在一般在windows下面对txt文档操作的时候,我一般使用gvim软件来操作,虽然没有unix/linu下面的正宗,并且很多命令没有,但是还是有很多方便之处的 下面是重温vim命令时,我我自己以前 ...
- iOS开发UI篇-实现tableView的层级显示
进来要实现一个tableView 的cell层级显示,网上找的思路都各不相同.下面说一下我的实现思路. 根据根标题存储cell的展开状态,添加到字典中. 话不多说,直接上代码. #define S ...
- [Form Builder]:CREATE_GROUP Built-in
Description Creates a non-query record group with the given name. The new record group has no colum ...
- Oracle 流式制造功能培训
转自百度文库: http://wenku.baidu.com/link?url=dRyll_P7C3fepoUp5dggYVzw6lVmifwEJMLvis1CN58m09WYF1unY3Ddn9Lq ...
- [置顶] linux第二天,g++,gcc,ps,cat,sort,grep,kill,less,ls -l ,
33.less sample.txt 分页输出文件内容到屏幕 34./search content (搜索内容) 可以将文档中有searchcontent 的行输出到屏幕 35.grep scienc ...
- IE下onchange事件不立即执行
做前端开发免不了为浏览器的兼容而劳神,所以坚持把发现的浏览器兼容问题做做总结,是很有意义的. 比如IE8及以下的浏览器的onchange事件实在该控件失去焦点之后才执行的,也就是要点一下空白的地方,才 ...
- Nagios-配置版
1 概念(简介) Nagios是插件式的结构,它本身没有任何监控功能,所有的监控都是通过插件进行的,因此其是高度模块化和富于弹性的.Nagios监控的对象可分为两类:主机和服务.主机通常指的是物理主 ...
- ios 可变参数(va_list,va_start,va_end)
例如:UIAlertView的init方法中的otherButtonTitles:(NSString *)otherButtonTitles, ...等多个可变参数. ios实现传递不定长的多个参数的 ...
- c语言中结构体的定义、初始化及内存分配
#include <stdio.h> struct person { char *name; int age; }; int main() { //结构体可以定义在函数内,也可以定义到函数 ...
- Codevs 5059 一起去打CS
5059 一起去打CS 时间限制: 1 s 空间限制: 32000 KB 题目等级 : 钻石 Diamond 题目描述 Description 早就和lyk约好了去打cs,一直没找着时间,终于今天我家 ...