【发布时间】:2016-07-29 11:52:20
【问题描述】:
我有一个函数,它使用 MSXML 发布一个 XML 文档,尽管没有对代码进行任何更改,但该文档昨天开始失败。函数如下:
Public Function PostFile(ByVal address As String, ByVal data As Byte()) As xmldocument
Dim xmlHTTP As New MSXML2.XMLHTTP
Dim response As New XmlDocument
Dim xmlDoc As New MSXML2.DOMDocument
Try
xmlDoc.load(data)
xmlHTTP.open("post", address, False)
xmlHTTP.send(xmlDoc)
If xmlHTTP.responseXML.xml <> String.Empty Then
response.LoadXml(xmlHTTP.responseXML.xml)
Return response
Else
Dim result As String = "<NO_Response><Error>the post succeeded to " + address + " but there was no responce returned</Error><Hint>Check FireWall Settings</Hint></NO_Response>"
response.loadxml(result)
Return response
End If
Catch ex As Exception
'Error logging code removed
End Try
Return Nothing
End Function
XML 文档和传入的地址都是正确的 - 导致错误的行是 xmlHTTP.send(xmlDoc)。我在 2 台不同的机器上尝试过,每次都出现相同的错误,还尝试重新安装 MSXML3,但没有成功。
抛出的异常是:
InnerException: Nothing
Message: "The system cannot locate the resource specified. "
Source: "msxml3.dll"
StackTrace: " at MSXML2.XMLHTTPClass.send(Object varBody) at comms.HTTPHandler.PostFile(String address, Byte[] data) in D:\SCC\Main\Sender\Http.vb:line 42"
【问题讨论】:
-
在这里查看我的解决方案:stackoverflow.com/questions/46247627/…