如何使用 VB.Net 将 XML 文档发布到 HTTP

Question

我正在寻求有关将 XML 文档发布到 VB.NET 中的 URL 的帮助。这是我到目前为止所做的...

  Public Shared xml As New System.Xml.XmlDocument()

    Public Shared Sub Main()

        Dim root As XmlElement
        root = xml.CreateElement("root")
        xml.AppendChild(root)

        Dim username As XmlElement
        username = xml.CreateElement("username")
        username.InnerText = _username
        root.AppendChild(username)

        xml.Save(Console.Out)

        Dim url = "https://mydomain.com"
        Dim req As WebRequest = WebRequest.Create(url)
        req.Method = "POST"
        req.ContentType = "application/xml"
        req.Headers.Add("Custom: API_Method")

        Console.WriteLine(req.Headers.ToString())

这就是事情出错的地方：

我想发布 xml，然后将结果打印到控制台。

        Dim newStream As Stream = req.GetRequestStream()
        xml.Save(newStream)

        Dim response As WebResponse = req.GetResponse()
        Console.WriteLine(response.ToString())
 End Sub

Answer 1

这本质上就是我所追求的：

xml.Save(req.GetRequestStream())

Answer 2

如果您不想关心长度，也可以使用 WebClient.UploadData 方法。

我以这种方式稍微修改了你的片段。

Imports System.Xml
Imports System.Net
Imports System.IO

Public Module Module1

    Public xml As New System.Xml.XmlDocument()

    Public Sub Main()

        Dim root As XmlElement
        root = xml.CreateElement("root")
        xml.AppendChild(root)

        Dim username As XmlElement
        username = xml.CreateElement("username")
        username.InnerText = "user1"
        root.AppendChild(username)

        Dim url = "http://mydomain.com"
        Dim client As New WebClient

        client.Headers.Add("Content-Type", "application/xml")
        client.Headers.Add("Custom: API_Method")
        Dim sentXml As Byte() = System.Text.Encoding.ASCII.GetBytes(xml.OuterXml)
        Dim response As Byte() = client.UploadData(url, "POST", sentXml)

        Console.WriteLine(response.ToString())

    End Sub

End Module