在https的链接中vb使用post提交xml数据

　　由于工作需要，需要vb提交xml数据到服务器上，所以，需要找到一个好的方法。

　　之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得，而且链接是https形式的，于是就参照代码提交,写了下面这么一个函数，来进行操作

 1 Private Function CallAPI(url1 As String, filePath As String)
 2     'load file
 3     Dim document As MSXML2.DOMDocument
 4     Set document = CreateObject("MSXML2.DOMDocument")
 5     document.Load filePath  'load xml file
 6     'send data to server
 7     Dim xmlHttp As MSXML2.XMLHTTP
 8     Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
 9     xmlHttp.Open "POST", url1, False 'post method to
10     xmlHttp.setRequestHeader "Content-Type", "application/xml" 'xml type of http request xml，not text/xml
11     xmlHttp.send (document.xml)
12     'clear
13     Set xmlHttp = Nothing
14     Set document = Nothing
15 End Function

　　但是，提交总是失败，在下面的这句代码就被中断，一直找不到原因。

1     xmlHttp.send (document.xml)

　　突然想到http协议和https协议是不同的，可能在提交数据时有差异，猜测MSXML2.XMLHTTP对象应该不支持https，经过寻找找到另一个对象WinHttp.WinHttpRequest，于是有了下面的代码

 1 Private Function CallAPI(url1 As String, filePath As String)
 2     'load file
 3     Dim document As MSXML2.DOMDocument
 4     Set document = CreateObject("MSXML2.DOMDocument")
 5     document.Load filePath
 6 
 7     Dim xmlHttps As WinHttp.WinHttpRequest
 8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
 9     xmlHttps.Open "POST", url1, False
10     xmlHttps.setRequestHeader "Content-Type", "application/xml"
11 
12     xmlHttps.send document.xml
13  
14     DoEvents
15     
16 End Function

　　执行了上面的代码之后程序正常结束，但是远端的服务器中的数据没有变化，查看了xmlHttps.status之后发现，提示没有权限，嗯，服务器那边需要用户名和密码验证的，这边没有设置登录用户名和密码，于是加了一句

 1 Private Function CallAPI(url1 As String, filePath As String)
 2     'load file
 3     Dim document As MSXML2.DOMDocument
 4     Set document = CreateObject("MSXML2.DOMDocument")
 5     document.Load filePath
 6 
 7     Dim xmlHttps As WinHttp.WinHttpRequest
 8     Set xmlHttps = CreateObject("WinHttp.WinHttpRequest.5.1")
 9     xmlHttps.Open "POST", url1, False
10     xmlHttps.setRequestHeader "Content-Type", "application/xml"
11     xmlHttps.SetCredentials "用户名 ", "密码", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
12 
13     xmlHttps.send document.xml
14  
15     DoEvents
16     
17 End Function

　　执行了代码之后发现，xml对象的数据被正常提交。

总结：

　　1. MSXML2.XMLHTTP对象不能提交https数据到服务器上

　　2. WinHttp.WinHttpRequest对象需要显式的设置用户名和密码，在MSXML2.XMLHTTP对象使用的过程中，没有登录的话，会弹出用户名和密码输入框，而WinHttp.WinHttpRequest对象没有，直接提交数据后，提示没有权限

　　3. 提交xml对象时，设置的请求头部应该是"Content-Type", "application/xml"而不是"Content-Type", "text/xml"

其它对象也可以达到https提交的效果：

1 ...    
2     Dim serverxml As MSXML2.ServerXMLHTTP
3     Set serverxml = CreateObject("MSXML2.ServerXMLHTTP")
4     serverxml.Open "POST", url1, False, "用户名", "密码"
5     serverxml.setRequestHeader "Content-Type", "application/xml"
6     serverxml.send document.xml
7 ...

　　注：WinHttp.WinHttpRequest对象需要添加Microsoft WinHTTP Services, version 5.1组件的引用

　　　　MSXML2.XMLHTTP和MSXML2.ServerXMLHTTP需要添加Microsoft MsXml组件的引用

 

posted @ 2013-04-07 21:05  asdfzxcvqwer  阅读(3350)  评论(0)  编辑  收藏  举报