(Visual Basic 6.0) Send HTTPS POST with XML Body

Demonstrates how to send an HTTP (or HTTPS) POST where the body of the request is XML.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp

Dim strXml As String
strXml = "<TransactionSetup xmlns=""https://xyz.com""><Credentials><AccountID>XXX</AccountID></Credentials></TransactionSetup>"

'  Choose a content-type.  Typical content types for XML POSTs are "application/xml" or "text/xml".
http.SetRequestHeader "Content-Type","text/xml"

'  Maybe you need other headers?
http.SetRequestHeader "Accept","text/xml"

Dim resp As ChilkatHttpResponse
Set resp = http.PostXml("https://www.somewebsite.com/",strXml,"utf-8")
If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

'  Examine the response status code:
Debug.Print "response status code = " & resp.StatusCode

'  Examine the response body:
Debug.Print "response body: " & resp.BodyStr