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

2011-10-19 05:07:17 2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python爬虫抖音个人资料仅供学习参考切勿用于商业本文仅供学习参考切勿用于商业本次爬取使用fiddler+模拟器(下载抖音APP)+pycharm 1. 下载最新版本的fiddler（自行百度下载），以及相关配置 1.1.依次点击，菜单栏-Tools-Options-HTTPS，如图1红框打钩，HTTPS旁边Connections配置，如图2红框打钩 1.2.再次点击HTTPS栏，点击Actions选择第二个…to ... 阅读详情

最近接触了银企互联系统，现在需要将生成的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参数的那一部分？

...全文

树莓派用网线连着电脑，但是找不到它的ip 以及设置静态IP 第一次的话，树莓派默认是没有ssh的。需要把内存卡取出来，新建一个ssh文件，这个简单，新建一个txt文件重命名就好了。如果前面配置了连接wifi的conf文件，它是会自动去连接wifi的，wifi连不上，它才会去尝试有线连接。所以把它的wifi关了，才会自动用网线连接。另外，建议设置静态ip连接，这样避免网络连接突然中断。具体在etc/dhcpcd.conf文件中，把这几行前面的#去掉，然后后面的信息改成自己的就好了。具体改法: 第一行是ip地址，这个找到自己电脑的ip段，然后改后面两个数字就好了阅读详情

KaedaRukawa

脚本语言 743 成员 8,037 内容

+ 关注 + 加入社区

切换为时间正序

ican 2012-12-27

打赏
举报

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

KaedaRukawa 2012-08-27

打赏
举报

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

chenzuo 2012-08-26

打赏
举报

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

31737951 2012-08-13

打赏
举报

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

honsonjiang 2012-08-11

打赏
举报

请问楼主解决了此问题吗？如有，可以共享一下你的源码吗？我的地址：honson_jiang@126.com,谢谢！

xhwly 2012-08-02

打赏
举报

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

otnto 2011-12-15

打赏
举报

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

竹林依旧宁静 2011-12-15

打赏
举报

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

KaedaRukawa 2011-11-18

打赏
举报

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

KaedaRukawa 2011-10-20

打赏
举报

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

用这种方式来发送数据

OLEObject dom, http
String Http_Name,result

Http_Name = "http://... "

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

yyoinge 2011-10-19

打赏
举报

用这种方式来发送数据

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)

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

相关推荐