Sms PB9中的短信服务

你好

我正在使用Pb9，想知道是否可以从我的应用程序发送短信？ 我在这个论坛上找到了一篇关于pb11.5的相关文章，但对我帮助不大

如果可能的话，那么有人可以发布一些示例代码

提前谢谢。

---

Alex

这是我与我们的短信提供商一起使用的一个功能-Clickatell

公共函数布尔值wf_sendsms（字符串为_phonenbr，字符串为_message）；//发送短信

OLEObject objHTTP
字符串ls\u API、ls\u User、ls\u Pass、ls\u From
字符串ls\u URL，ls\u响应

ls_API=“？？？？？？？”
ls_User=“？？？？？？？”
ls_Pass=“？？？？？？？”
ls_From=“18887776666”

objHTTP=创建对象

如果objHTTP.ConnectToNewObject（“MSXML2.ServerXMLHTTP”）<0，则
返回False
如果结束

ls_URL=“？”
ls_URL+=“api_id=“+ls_api+”&user=“+ls_user
ls_URL+=“&password=“+ls_Pass+”&from=“+ls_from
ls_URL+=“&to=1”+as_phonenbr+“&mo=1”+”&text=“+as\u消息”

objHTTP.Open（“POST”，ls\u URL，False）
objHTTP.setRequestHeader（“内容类型”、“文本/xml”）
objHTTP.Send（）

ls_Response=objHTTP.responseText

mle_result.Text=ls_响应

objHTTP.DisconnectObject（）

销毁objHTTP

返回真值

---

结束功能

这里是我与我们的SMS提供商一起使用的一个功能-Clickatell

公共函数布尔值wf_sendsms（字符串为_phonenbr，字符串为_message）；//发送短信

OLEObject objHTTP
字符串ls\u API、ls\u User、ls\u Pass、ls\u From
字符串ls\u URL，ls\u响应

ls_API=“？？？？？？？”
ls_User=“？？？？？？？”
ls_Pass=“？？？？？？？”
ls_From=“18887776666”

objHTTP=创建对象

如果objHTTP.ConnectToNewObject（“MSXML2.ServerXMLHTTP”）<0，则
返回False
如果结束

ls_URL=“？”
ls_URL+=“api_id=“+ls_api+”&user=“+ls_user
ls_URL+=“&password=“+ls_Pass+”&from=“+ls_from
ls_URL+=“&to=1”+as_phonenbr+“&mo=1”+”&text=“+as\u消息”

objHTTP.Open（“POST”，ls\u URL，False）
objHTTP.setRequestHeader（“内容类型”、“文本/xml”）
objHTTP.Send（）

ls_Response=objHTTP.responseText

mle_result.Text=ls_响应

objHTTP.DisconnectObject（）

销毁objHTTP

返回真值

---

结束功能

谢谢。我会试试的。在我第一次发帖后，第一次回到这个话题。我已经实现了代码，但是得到一个“调用外部函数打开时出错…”当运行它时。。objHTTP.ConnectToNewObject（“MSXML2.ServerXMLHTTP”）返回0即成功。请提供任何线索。提前谢谢，谢谢。我会试试的。在我第一次发帖后，第一次回到这个话题。我已经实现了代码，但是得到一个“调用外部函数打开时出错…”当运行它时。。objHTTP.ConnectToNewObject（“MSXML2.ServerXMLHTTP”）返回0即成功。请提供任何线索。提前谢谢Alex