机动车出厂合格证信息论坛—国家机动车合格证数据中心主办机动车出厂合格证信息管理系统机动车合格证管理信息系统二次开发 关于使用VB6通过WebService方式上传数据申请

2  /  2  页   12 跳转页 查看:3857

关于使用VB6通过WebService方式上传数据申请

本主题由 超级版主 00x0 于 2009-11-13 11:06:40 执行 主题置顶/取消 操作
离线 ILYF
头像

  • 组别:新手上路
  • 性别:
  • 来自:
  • 积分:6
  • 帖子:6
  • 注册: 2009-12-04
2009-12-10 15:50 |
树型| 收藏| 小 中 大 11

回复: 关于使用VB6通过WebService方式上传数据申请

版主提供的这个代码在 VB6 中不能正常执行，也返回：

[全项填写方式的车辆分类应该为 乘用车及客车、货车、半挂牵引车、半挂车、两轮摩托车和两轮轻便摩托车、三轮摩托车和三轮轻便摩托车、三轮汽车、低速货车、专用汽车、非《公告》车辆产品 ],[燃料种类的格式应该为 汽油 ， 汽油/天然气 ， 汽油/天然气/混合动力 燃料种类的取值应该为 汽油、柴油、电、混合油、天然气、液化石油气、甲醇、乙醇、太阳能、混合动力 ],[后轮距不能为空]

内容已经补充完整，可能是中文解码不一致。希望版主能够指点一下。

代码如下：
Private Sub Command1_Click()
WebServiceURL = "http://127.0.0.1:9901/CertificateRequestService.asmx"              '调用URL（URI）
WebMethodName = "http://service.vidc.info/certificaterequest/UploadInsert_Ent"      'SOAP Action
'soap请求，需要根据具体WEB SERVICES web方法更改
sentRequest = "<?xml version='1.0' encoding='utf-8'?>" _
& "<soap:Envelope xmlnssi='http://www.w3.org/2001/XMLSchema-instance' xmlnssd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" _
& "<soap:Body>" _
& "<UploadInsert_Ent xmlns='http://service.vidc.info/certificaterequest'>" _
& "<data>" _
& "  <CertificateInfo>" _
& "      <ZCHGZBH xmlns='http://www.vidc.info/certificate/operation/'>TEST8000000003</ZCHGZBH>" _
& "      <WZHGZBH xmlns='http://www.vidc.info/certificate/operation/'>TESTX8000000003</WZHGZBH>" _
& "      <DPHGZBH xmlns='http://www.vidc.info/certificate/operation/'></DPHGZBH>" _
& "      <FZRQ xmlns='http://www.vidc.info/certificate/operation/'>2009-12-09T00:00:00</FZRQ>" _
& "      <CLZZQYMC xmlns='http://www.vidc.info/certificate/operation/'>摩托车有限公司</CLZZQYMC>" _
& "      <QYID xmlns='http://www.vidc.info/certificate/operation/'>TEST1PH1</QYID>" _
& "      <CLLX xmlns='http://www.vidc.info/certificate/operation/'>两轮摩托车和两轮轻便摩托车</CLLX>" _
& "      <CLMC xmlns='http://www.vidc.info/certificate/operation/'>两轮摩托车</CLMC>" _
& "      <CLPP xmlns='http://www.vidc.info/certificate/operation/'>牌</CLPP>" _
& "      <CLXH xmlns='http://www.vidc.info/certificate/operation/'>JL100-5A</CLXH>" _
& "      <CSYS xmlns='http://www.vidc.info/certificate/operation/'>白</CSYS>" _
& "      <DPXH xmlns='http://www.vidc.info/certificate/operation/'></DPXH>" _
& "      <DPID xmlns='http://www.vidc.info/certificate/operation/'></DPID>" _
& "      <CLSBDH xmlns='http://www.vidc.info/certificate/operation/'>LB2XCG5A491023234</CLSBDH>" _
& "      <CJH xmlns='http://www.vidc.info/certificate/operation/'></CJH>" _
& "      <FDJH xmlns='http://www.vidc.info/certificate/operation/'>235647</FDJH>" _
& "      <FDJXH xmlns='http://www.vidc.info/certificate/operation/'>JL150FMG</FDJXH>" _
& "      <RLZL xmlns='http://www.vidc.info/certificate/operation/'>汽油</RLZL>" _
& "      <PFBZ xmlns='http://www.vidc.info/certificate/operation/'>GB14622-2002(国Ⅱ)</PFBZ>"
sentRequest = sentRequest & "      <PL xmlns='http://www.vidc.info/certificate/operation/'>97</PL>" _
& "      <GL xmlns='http://www.vidc.info/certificate/operation/'>4.6</GL>" _
& "      <ZXXS xmlns='http://www.vidc.info/certificate/operation/'>方向把</ZXXS>" _
& "      <QLJ xmlns='http://www.vidc.info/certificate/operation/'></QLJ>" _
& "      <HLJ xmlns='http://www.vidc.info/certificate/operation/'></HLJ>" _
& "      <LTS xmlns='http://www.vidc.info/certificate/operation/'>2</LTS>" _
& "      <LTGG xmlns='http://www.vidc.info/certificate/operation/'>2.50-17</LTGG>" _
& "      <GBTHPS xmlns='http://www.vidc.info/certificate/operation/'></GBTHPS>" _
& "      <ZJ xmlns='http://www.vidc.info/certificate/operation/'>1200</ZJ>" _
& "      <ZH xmlns='http://www.vidc.info/certificate/operation/'></ZH>" _
& "      <ZS xmlns='http://www.vidc.info/certificate/operation/'>2</ZS>" _
& "      <WKC xmlns='http://www.vidc.info/certificate/operation/'>1855</WKC>" _
& "      <WKK xmlns='http://www.vidc.info/certificate/operation/'>665</WKK>" _
& "      <WKG xmlns='http://www.vidc.info/certificate/operation/'>1100</WKG>" _
& "      <HXNBC xmlns='http://www.vidc.info/certificate/operation/'></HXNBC>" _
& "      <HXNBK xmlns='http://www.vidc.info/certificate/operation/'></HXNBK>" _
& "      <HXNBG xmlns='http://www.vidc.info/certificate/operation/'></HXNBG>" _
& "      <ZZL xmlns='http://www.vidc.info/certificate/operation/'>234</ZZL>" _
& "      <EDZZL xmlns='http://www.vidc.info/certificate/operation/'>140</EDZZL>" _
& "      <ZBZL xmlns='http://www.vidc.info/certificate/operation/'>94</ZBZL>" _
& "      <ZZLLYXS xmlns='http://www.vidc.info/certificate/operation/'></ZZLLYXS>" _
& "      <ZQYZZL xmlns='http://www.vidc.info/certificate/operation/'></ZQYZZL>" _
& "      <EDZK xmlns='http://www.vidc.info/certificate/operation/'>2</EDZK>" _
& "      <BGCAZZDYXZZL xmlns='http://www.vidc.info/certificate/operation/'></BGCAZZDYXZZL>" _
& "      <JSSZCRS xmlns='http://www.vidc.info/certificate/operation/'></JSSZCRS>"
sentRequest = sentRequest & "      <QZDFS xmlns='http://www.vidc.info/certificate/operation/'></QZDFS>" _
& "      <HZDFS xmlns='http://www.vidc.info/certificate/operation/'></HZDFS>" _
& "      <QZDCZFS xmlns='http://www.vidc.info/certificate/operation/'></QZDCZFS>" _
& "      <HZDCZFS xmlns='http://www.vidc.info/certificate/operation/'></HZDCZFS>" _
& "      <ZGCS xmlns='http://www.vidc.info/certificate/operation/'>75</ZGCS>" _
& "      <CLZZRQ xmlns='http://www.vidc.info/certificate/operation/'>2009-12-09T00:00:00</CLZZRQ>" _
& "      <BZ xmlns='http://www.vidc.info/certificate/operation/'></BZ>" _
& "      <QYBZ xmlns='http://www.vidc.info/certificate/operation/'>Q/JLJ619-2008《JL100-5A型两轮摩托车》 </QYBZ>" _
& "      <CPSCDZ xmlns='http://www.vidc.info/certificate/operation/'>厂址</CPSCDZ>" _
& "      <QYQTXX xmlns='http://www.vidc.info/certificate/operation/'></QYQTXX>" _
& "      <CZRQ xmlns='http://www.vidc.info/certificate/operation/'>2009-12-09T16:14:04</CZRQ>" _
& "      <CLSCDWMC xmlns='http://www.vidc.info/certificate/operation/'>摩托车有限公司</CLSCDWMC>" _
& "      <YH xmlns='http://www.vidc.info/certificate/operation/'></YH>" _
& "      <ZXZS xmlns='http://www.vidc.info/certificate/operation/'></ZXZS>" _
& "      <CDDBJ xmlns='http://www.vidc.info/certificate/operation/'></CDDBJ>" _
& "      <VERCODE xmlns='http://www.vidc.info/certificate/operation/'>sL7sEnOIMXtZK4XkFsMPO3n2e2pZQnYNwPEz5r4ivbVoD08Yzk8SIth6FH0qfS+avBpQ+bkaI3/aWCGGYPF7XYhmTU/fzXimJ6egLzOzje9axuu/le1hZ4x13zUhXFw8WCY8UAyNAd3ViuzIaTNyjkLQDzDYlEoMRnSvf0tP4rINKF479gDZMnaclDjoAbxwD0Nn3UQyPUtZesm79/XGul73ElKIsk0Ot2UkcN/CVFW2urSMA5VAykW8Yu234O3l</VERCODE>" _
& "      <CPH xmlns='http://www.vidc.info/certificate/operation/'>ME6JJ13H044</CPH>" _
& "      <PC xmlns='http://www.vidc.info/certificate/operation/'>66</PC>" _
& "      <GGSXRQ xmlns='http://www.vidc.info/certificate/operation/'>2004-04-20T00:00:00</GGSXRQ>" _
& "      <ZZBH xmlns='http://www.vidc.info/certificate/operation/'>0000</ZZBH>" _
& "      <DYWYM xmlns='http://www.vidc.info/certificate/operation/'>65EFF8FF2E134FAE996E816B02A31DB8</DYWYM>" _
& "      <CLZTXX xmlns='http://www.vidc.info/certificate/operation/'>QX</CLZTXX>" _
& "  </CertificateInfo>" _
& "</data>" _
sentRequest = sentRequest & "</UploadInsert_Ent>" _
& "</soap:Body>" _
& "</soap:Envelope>"

'''''''''''''''''''''''''''''''''''''''''''''''
Set requestHTTP = CreateObject("Microsoft.XMLHTTP")
requestHTTP.open "POST", WebServiceURL, False
requestHTTP.setrequestheader "Content-Type", "text/xml"
requestHTTP.setrequestheader "charset", "utf-8"
requestHTTP.setrequestheader "SOAPAction", WebMethodName
requestHTTP.SEND sentRequest
MsgBox ("请求已经送出.  HTTP 请求处理状态= " & requestHTTP.Status)
'服务反馈请求结果
MsgBox (requestHTTP.responseXML.xml)
'附加示例,处理反馈文档
ReturnCode = 1
Set objXml = CreateObject("MSXML2.DOMDocument")
Dim Result, Name As String
Result = ""
If objXml.loadXML(requestHTTP.responseXML.xml) Then
  ReturnCode = objXml.getElementsByTagName("ResultCode")(0).firstChild.Data
  For i = 0 To (objXml.getElementsByTagName("NameValuePair").length - 1)
      Name = objXml.getElementsByTagName("NameValuePair")(i).childNodes(0).Text
      Value = objXml.getElementsByTagName("NameValuePair")(i).childNodes(1).Text
      Result = Result + vbCrLf + Name + ":" + Value
  Next
  MsgBox ("操作结果:" + ReturnCode + vbCrLf + "反馈结果:" + Result)
End If
End Sub
gototop
 
离线 00x0
头像
00x0

  • 组别:超级版主
  • 性别:
  • 来自:
  • 积分:10281
  • 帖子:274
  • 注册: 2008-05-06
Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8Medal No.9Medal No.10Medal No.11Medal No.12Medal No.13Medal No.14Medal No.15
2009-12-10 23:22 | 只看楼主
树型| 收藏| 小 中 大 12

回复：关于使用VB6通过WebService方式上传数据申请

如遇到编码问题可调整代码
requestHTTP.setrequestheader "Content-Type", "text/xml"
requestHTTP.setrequestheader "charset", "utf-8"

为

requestHTTP.setrequestheader "Content-Type", "text/xml; charset=utf-8"

其他使用细节可参考Microsoft.XMLHTTP相关说明或使用其他替代类库
gototop
 
离线 ILYF
头像

  • 组别:新手上路
  • 性别:
  • 来自:
  • 积分:6
  • 帖子:6
  • 注册: 2009-12-04
2009-12-11 09:43 |
树型| 收藏| 小 中 大 13

回复：关于使用VB6通过WebService方式上传数据申请

改了代码也不行，是不是中文编码问题只是猜测。监测了 Winsock 中传送的 XML 内容，确认已经是被编码成了 utf-8 字符的。
gototop
 
离线 00x0
头像
00x0

  • 组别:超级版主
  • 性别:
  • 来自:
  • 积分:10281
  • 帖子:274
  • 注册: 2008-05-06
Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8Medal No.9Medal No.10Medal No.11Medal No.12Medal No.13Medal No.14Medal No.15
2009-12-14 17:22 | 只看楼主
树型| 收藏| 小 中 大 14

回复: 关于使用VB6通过WebService方式上传数据申请



引用:
原帖由 ILYF 于 2009-12-11 9:43:00 发表
改了代码也不行，是不是中文编码问题只是猜测。监测了 Winsock 中传送的 XML 内容，确认已经是被编码成了 utf-8 字符的。



系开发问题,请对照附件中的示例代码,自行修改解决

附件附件:

您所在的用户组无法下载或查看附件

gototop
 
<<上一主题|下一主题>>
2  /  2  页   12 跳转页

版权所有 www.vidc.info  国家机动车合格证数据中心网

Powered by Discuz!NT 2.0.1214 (Licensed)    Copyright © 2001-2012 Comsenz Inc.
Processed in 0.0625 second(s) , 6 queries. 京ICP备06025868号
返顶部