PB9.0 通过http协议以POST方式将XML发送到协议服务器

[KaedaRukawa]

最近接触了银企互联系统，现在需要将生成的xml发送至服务器。
我查看了pb的帮助文件，posturl可以实现该功能，但是pb提供的例子我有点看不懂，
哪位大侠帮忙解释解释。最好有个实例对照。

servicereference.PostURL ( urlname, urldata, headers, {serverport, } data )

Argument Description
servicereference Reference to the Internet service instance.
urlname String specifying the URL to post.
urldata Blob specifying arguments to the URL specified by urlname.
headers String specifying HTML headers. In Netscape, a newline (~n) is required after
each HTTP header and a final newline after all headers.
serverport (optional) Specifies the server port number for the request. The default value
for this argument is 0, which means that the port number is determined by the system
(port 80 for HTTP requests).
data InternetResult instance into which the function returns HTML.

主要问题提就是那个headers是干嘛用的，data又是怎么回事？


工行的开发手册是这么说的
企业按照工行提供的xml包格式进行打包，在局域网内通过http协议以POST方式将交易包发送到NetSafe Client的安全http协议服务器。
http请求格式：action=”http://客户端NetSafe Client的地址和加密端口号/servlet/ICBCCMPAPIReqServlet?userID=证书ID&PackageID=包序列ID &SendTime=请求时间”
请求数据格式（post方式）：Version=版本号（区分版本时间，暂定0.0.0.1) &TransCode=交易代码（区分交易类型，每个交易固定)&BankCode=客户的归属单位&GroupCIS=客户的归属编码&ID=客户的证书ID（无证书客户可空)&PackageID=客户的指令包序列号（由客户ERP系统产生，不可重复)&Cert=客户的证书公钥信息（进行BASE64编码；NC客户送空) &reqData=客户的xml请求数据

蓝字标出的部分应该是放到posturl参数的那一部分？

[yyoinge]

用这种方式来发送数据

OLEObject dom, http
String Http_Name,result

Http_Name = "http://... "

dom = CREATE OLEObject
http = CREATE OLEObject
//messagebox调试看是否成功
messagebox( 'http ',http.ConnectToNewObject( "Msxml2.XMLHTTP "))
messagebox( 'dom ',dom.ConnectToNewObject( "Msxml2.DOMDocument "))

dom.Load( "c:\xxx.xml ")
http.Open( "POST ", Http_Name, TRUE)
http.Send(dom.xml)
do While http.readyState <> 4 // ' 查询状态,延时
yield()
Loop

result = http.responseText //这个测试用! 你可不写
messagebox( 'result ',result)

[KaedaRukawa]

[Quote=引用 1 楼 yyoinge 的回复:]

用这种方式来发送数据

OLEObject dom, http
String Http_Name,result

Http_Name = "http://... "

dom = CREATE OLEObject
http = CREATE OL……
[/Quote]
我试了一下，提示连接失败啊，

[KaedaRukawa]

还有哪位大侠做过这种项目么？能否交流下？

[竹林依旧宁静]

PB9里面有Inet objects，看看帮助，可以试试PostURL函数，具体的参数帮助里面有

[otnto]

Blob lblb_args
String ls_header
String ls_url
String ls_args
long ll_length
integer li_rc

inet iinet_base,iinet
//internetresult ir
iinet_base = create inet
iinet = create inet

li_rc = GetContextService( "Internet", iinet_base )

IF li_rc = 1 THEN

ir = CREATE n_cst_internet

ls_url = "http://xxx.com/getinfo.asp?"

ls_args = "var1=tr&var2=tttt&var3=&var4=r&var5=&var6=&var7=tttt&var8=&var9=&var10=ttt&var11="

lblb_args = Blob( ls_args )

ll_length = Len( lblb_args )

ls_header = "Content-Type: " + &
"application/x-www-form-urlencoded~n" + &
"Content-Length: " + String( ll_length ) + "~n~n"

li_rc = iinet.PostURL( ls_url, lblb_args, ls_header, ir )

messagebox('',string(li_rc))

END IF

integer li_filenum
li_filenum = fileopen('c:\1.html',textmode!,write!,shared!,replace!,encodingUTF8!)
filewriteex(li_filenum,ir.is_data)
fileclose(li_filenum)


ole_1.object.navigate('c:\1.html')

destroy iinet_base
destroy iinet
destroy ir



ir 建个internetresult的standard class n_interresult作为接收返回值
ir = create n_interresult
n_interresult里 internetdata 加下面代码
is_data = string(data,encodingUTF8!)
return 1

[xhwly]

我用这种方法，返回-6，（用getURL正常，但因要把xml用流传送，所以不能用getURL),搜索了很多文档，说是只有支持cgi的网站才能用postURL,万一不支持cgi的怎么办呀！

[honsonjiang]

请问楼主解决了此问题吗？如有，可以共享一下你的源码吗？我的地址：[e-mail],谢谢！

[31737951]

直接socket最方便 稍微看下通讯协议就可以了 装个 commview 就可以查 tcp包了 照抄就完了 p89有分解xml的

[chenzuo]

我实现了了,但是服务器返回汉字时是乱码

[KaedaRukawa]

好久没来，忘了更新，已经实现了，多谢楼上各位帮助

[ican]

楼主，实现了就说说怎么实现的吧，我现在也在为这事烦恼呢，跪求呀……