Wie die post XML-Dokument mit HTTP VB.Net

Ich bin auf der Suche nach Hilfe bei der Einstellung meiner XML-Dokument um eine url VB.NET. Hier ist, was ich habe, so weit ...

  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())

Dies ist, wo die Dinge schief gehen:

Möchte ich post von xml, und drucken Sie dann die Ergebnisse an die Konsole.

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

        Dim response As WebResponse = req.GetResponse()
        Console.WriteLine(response.ToString())
 End Sub
Sehen Sie sich bitte die link
Ich habe gesehen, dass dies, aber ich nicht vollständig Folgen. xml.Länge nicht funktioniert. Was ist byteArray?

InformationsquelleAutor doremi | 2011-02-19

  1. 1

    Dies ist im wesentlichen das, was ich wurde nach:

    xml.Save(req.GetRequestStream())

    InformationsquelleAutor doremi

  2. 0

    Wenn Sie nicht wollen, zu kümmern, über die Länge, es ist auch möglich, den WebClient.UploadData-Methode.

    Angepasst ich das snippet etwas in dieser Art und Weise.

    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
    xml.Speichern(req.GetRequestStream()) ist jetzt Warnung: Bytes in den stream geschrieben überschreiten der Content-Length-bytes angegebene Größe
    Ich änderte ein wenig die ursprüngliche Verwendung des WebClient-Objekts.
    Content-length ist wie erforderlich-header für diese API.

    InformationsquelleAutor Alain Pannetier

Schreibe einen Kommentar