Visual Basic 6.0

HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple x-www-form-urlencoded POST. Visual Basic 6.0

Dim success As Long
success = 0

Dim http As New ChilkatHttp

Dim jsonStr As String
jsonStr = "{ some json ... }"

Dim req As New ChilkatHttpRequest
' This query parameter just happens to be named "json" and contains JSON text.
req.AddParam "json",jsonStr

' We can optionally add more query parameters. 
req.AddParam "abc","123"
req.AddParam "xml","<abc>123</abc>"

' Note: Just because we passed a query param named "json" or "xml" means nothing special.  It's still just
' a name=value query parameter..

req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

Dim resp As New ChilkatHttpResponse
success = http.HttpReq("http://example.com/xyz/connect/report",req,resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

If (resp.StatusCode <> 200) Then
    Debug.Print "Hey, I didn't receive the expected response status code!"
    Debug.Print "status code = " & resp.StatusCode
End If

' Could be error text if the status code wasn't what we expected, or could be the response
' body you're seeking..
Dim responseBody As String
responseBody = resp.BodyStr
Debug.Print responseBody

Dim fac As New CkFileAccess
Dim filepath As String
filepath = "some file path"
success = fac.WriteEntireTextFile(filepath,responseBody,"utf-8",0)
If (success <> 1) Then
    Debug.Print fac.LastErrorText
End If