XML HTTP Post

Download Chilkat XML ActiveX

Demonstrates the use of the ChilkatXml HttpPost method.

Private Sub Go_Click()

    Dim xmlIn As ChilkatXml
    Set xmlIn = New ChilkatXml
    
    ' Load the XML from the text box
    ' return 1 for success, 0 for failed.
    Dim success As Long
    success = xmlIn.LoadXml(XmlRequest.Text)
    
    Dim xmlOut As ChilkatXml
    Set xmlOut = xmlIn.HttpPost(UrlText.Text)
    
    If (Not (xmlOut Is Nothing)) Then
        XmlResponse.Text = xmlOut.GetXml()
    End If
    
    xmlIn.SaveXmlLog ("log.xml")

    ' THIS IS THE xmlEcho.asp Web Page
    ' It accepts the XMLHTTP Post Request and echos the document back
    ' to the caller.
    
    ' <%@ language=javascript %>
    ' <%
    ' Response.Expires = -1000;
    ' var doc = Server.CreateObject("Msxml2.DOMDocument");
    ' doc.load(Request);
    ' Response.ContentType = "text/xml";
    ' doc.save(Response);
    ' %>
    
End Sub