主题：HTTPRequest怎么接收XML格式的数据

他是直接把XML转成了MAP了

甜老师如果可以的话，您看能不能提供一个端口，我把这个API指向给您看一下

测试 Select Case e.Path
    Case "test.htm"
        Dim s As String
        If Forms("窗口2").Opened Then
            Forms("窗口2").Controls("TextBox1").Text = Forms("窗口2").Controls("TextBox1").Text & "正文数据长度  " & e.Request.ContentLength64

end if
    End  Select

 

 

通过     e.Request.ContentLength64       获取的正文长度是完整的   

此主题相关图片如下：qq截图20180715101029.png

1、发送过来的数据是否经过了加密或者编码的处理？

 

2、发送过来的数据，你用别的工具测试接收，source的值是什么？xml的值是什么？

甜老师数据没有经过加密  source的值也就是XML的值跟之前的开发文档显示是一样的。不知道这种情况是否是因为缺少键导致的。

 

<?xml version="1.0" encoding="utf-8" ?>
<event type="extensionstatus">
<ext>801</ext>
<ip>192.168.7.38</ip>
<status>Idle</status>
<mac>00:0c:29:67:e7:68</mac>
<checksum>7c7af9453714dcacf9d8a04971b96510</checksum>
</event>

如果单独只是发送xml数据过来，那就使用e.PlainText可以获取的。

 

你可以msgbox(e.PlainText)看结果。我如下测试没问题

 

1、httprequest事件

 

Select Case e.Path
    Case "test.htm", ""
        msgbox(e.PlainText)
End Select

 

2、调用代码

 

Dim hc As New HttpClient("http://127.0.0.1/test.htm")
hc.Content = "<?xml version=""1.0"" encoding=""utf-8"" ?><xml><a>123</a></xml>"
Dim ret As String = hc.GetData()

甜老师e.PlainText测试过获取不到数据是空白的，e.postValues 的键能获取到<?xml version   值能获取到"1.0" encoding。在等于号后面就没有任何值了。测试了好多方法都无法正确获取实际信息

如果用postValues获取，那么你得到的key是什么弹出来看看。

 

请确定你发送过来的数据是什么，不然无法调试测试。

发送的数据是没有Key的。但是通过e.PlainText 又获取不到任何数据。同事用JAVA测试数据确实是完整的。自己也测试过HTTPClient的content属性传输下列数据没问题。但是就是接收不到API传输过来的数据

你既然可以用postvalues获取值，那么key是什么？msgbox(key)弹出什么？

 

你同事用java，弹出请求的信息看看（头信息、正文内容）