读书人

这种短信HTTP通讯接口需要用什么函数来

发布时间: 2012-03-29 12:53:13 作者: rapoo

这种短信HTTP通讯接口需要用什么函数来发送HTTP请求

发送信息的HTTP请求格式

Get操作的格式为:
http://www.sms10000.com:8080/MT?id=param1&password=param2&mobile=param3&content=param4

请求字符串例子:
http://www.sms10000.com:8080/MT?id=002&password=2D732A5F09BCC1E78039C1099E60F701&mobile=13510665001,13510665002&content=testHTTP


参数说明:
参数名称说明
id企业ID号
password密码,MD5加密后的密文(大写)
mobile手机号码,同时发送给多个号码时,号码间用逗号分隔
content消息内容【使用URLEncoder.encode()进行字符标准化转码】


如何写代码?

[解决办法]
方法1:
$PBExportHeader$n_cst_internet.sru
forward
global type n_cst_internet from internetresult
end type
end forward

global type n_cst_internet from internetresult
end type
global n_cst_internet n_cst_internet

type variables
string is_data
end variables
forward prototypes
public function integer internetdata (blob data)
end prototypes

public function integer internetdata (blob data);is_data = string(data)
return 1
end function

on n_cst_internet.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_cst_internet.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
------------------------

把以上代码导入成一个对象 n_cst_internet
然后调用以下代码即可

string ls_result
integer li_rc
inet linet_main
n_cst_internet luo_data // as defined above

linet_main = CREATE inet
luo_data = CREATE n_cst_internet

SetPointer(HourGlass!)
li_rc = &
linet_main.GetURL("网页地址", luo_data)
SetPointer(Arrow!)
ls_result = luo_data.is_data
Messagebox("",ls_result)

DESTROY luo_data
DESTROY linet_main
return ls_result
[解决办法]
方法2,用oledb连接Microsoft 的xmlHttp 对象.
http = CREATE OLEObject
http.ConnectToNewObject("Microsoft.XMLHTTP")
....
具体自己查资料.
[解决办法]
方法1用了pb的Inet object 具体可以查看联机帮助. 好象是pb 8以上才支持

读书人网 >PB

热点推荐