Question

我正在使用MSXML中的XMLHTTP对象通过HTTP Post从Access VBA向Web方法发送XML内容。这是守则。

Dim objXmlHttp As Object
Set objXmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "POST", webServicePath, False
objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Dim Response As String
objXmlHttp.send wrt.output

'OK status
If objXmlHttp.Status = 200 Then
    Response = objXmlHttp.responseText
End If
Set objXmlHttp = Nothing

我使用“＆amp; lt”和“＆amp; gt”而不是＆lt;来获取XML和＆gt;。如果我尝试进行URL编码，则所有内容都会在收件人端以ASCII文本形式接收。您能否指导我需要做些什么才能获得有效的XML格式。

Answer 1

您需要正确设置内容类型，请尝试以下方式：

objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=""utf-8"""

编码“＆lt;”和“＆gt;”通过HTTP Post发送XML

1 个答案: