DELPHI XE5如何在ANDROID中发送带有送达通知的短信

时间:2013-10-19 07:29:53

标签: android delphi

我知道如何从Android发送短信。这很简单:

var   
  smsTo: JString;
  smsManager: JSmsManager;
begin
  smsManager := TJSmsManager.JavaClass.getDefault;
  smsTo := StringToJString('number_xxx');
  smsManager.sendTextMessage(smsTo, nil, StringToJString('Test SMS'), nil, nil);

但问题是:如何向送货收件人发送短信?是否可以在Delphi XE5中使用?

感谢您的回答。 乔治

1 个答案:

答案 0 :(得分:1)

来自Android's documentation

  

参数

     
      
  • destinationAddress 将邮件发送到
  • 的地址   
  • scAddress 是服务中心地址,如果使用当前默认的SMSC,则为null
  •   
  • text 要发送的邮件正文
  •   
  • sentIntent 如果不是NULL,则在成功发送邮件或失败时广播此PendingIntent。结果代码将是   Activity.RESULT_OK表示成功,或者是其中一个错误:   RESULT_ERROR_GENERIC_FAILURE RESULT_ERROR_RADIO_OFF   RESULT_ERROR_NULL_PDU。基于每个应用程序的SMS控制检查   sentIntent。如果sentIntent为NULL,则将检查调用者   所有未知的应用程序,导致发送较少数量的SMS   在检查期间。
  •   
  • deliveryIntent 如果不为NULL,则在将邮件传递给收件人时广播此PendingIntent。原始pdu的状态   报告在扩展数据(“pdu”)中。
  •   

您显然错过了代码中的最后两个参数。

Here's如何在Java中实现这一点 - 这非常简单,但Delphi对我们来说有点困难。看看答案here。答案中最有趣的是the first link

基本上你需要使用JNI包装器直接与Java类通信,因为Delphi没有公开这里需要的功能 - 至少我什么都不知道。

祝你好运!