0

我正在为支付网关使用 Web 服务。我写了下面的代码。它在 Windows XP 操作系统中运行。

但是当我在“Windows Embedded System(操作系统)”中运行此应用程序时,它显示为“系统错误-2147467259”。

我无法追踪错误。请帮我。

这是代码: Dim vXML Set httpReq = CreateObject("Microsoft.XMLHTTP") vXML = BuildXML() vXML = SoapWrapper(vXML)

httpReq.open "POST", webServiceUrl, False
httpReq.setRequestHeader "Content-Type", "text/xml"
httpReq.setRequestHeader "Connection", "close"
httpReq.setRequestHeader "SOAPAction", transactionUrl
httpReq.send vXML

我在“httpReq.send vXML”行中遇到错误。

谢谢

4

1 回答 1

0

尝试这个

httpReq.send pvToByteArray(vXML)
...

Private Function pvToByteArray(sText As String) As Byte()
    pvToByteArray = StrConv(sText, vbFromUnicode)
End Function

您可能以某种方式在 XML 字符串中包含“特殊”字符。

于 2013-01-14T15:36:41.930 回答