(Visual Basic) Send XMLHttpRequest and Get Response

Demonstrates how to send an HTTP XML request and retrieve the response.

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If

'  The XML sent in the body of the request is application
'  specified -- it should contain whatever the server-side
'  application is expecting..
Dim xmlStr As String
xmlStr = "<?xml version=""1.0"" encoding=""UTF-8""?><appXml><something>123</something></appXml>"

'  The PostXml method may be called to send the XMLHttpRequest
'  using the "POST" HTTP method (also known as "verb").
Dim urlEndpoint As String
urlEndpoint = "http://www.chilkatsoft.com/xmlEcho.asp"
Dim xmlCharset As String
xmlCharset = "utf-8"

Dim response As ChilkatHttpResponse
Set response = http.PostXml(urlEndpoint,xmlStr,xmlCharset)
If (response Is Nothing ) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If

'  The raw HTTP request sent by the above call is:
'  
POST /xmlEcho.asp HTTP/1.1
Content-Type: text/xml
User-Agent: Chilkat/1.0.0 (+http://www.chilkatsoft.com/ChilkatHttpUA.asp)
Host: www.chilkatsoft.com
Accept: */*
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip
Content-Length: 81

<?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>


'  Examine the Body of the HTTP response
'  This would be the XML response sent by the server.
Text1.Text = Text1.Text & response.BodyStr & vbCrLf