(Xojo Plugin) HTTP POST x-www-form-urlencoded

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM

Dim http As New Chilkat.Http

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

Dim req As New Chilkat.HttpRequest
//  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..

Dim resp As Chilkat.HttpResponse
resp = http.PostUrlEncoded("http://example.net/cirrus/connect/report",req)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

If (resp.StatusCode <> 200) Then
    System.DebugLog("Hey, I didn't receive the expected response status code!")
    System.DebugLog("status code = " + Str(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
System.DebugLog(responseBody)

Dim fac As New Chilkat.FileAccess
Dim filepath As String
filepath = "some file path"
Dim success As Boolean
success = fac.WriteEntireTextFile(filepath,responseBody,"utf-8",False)
If (success <> True) Then
    System.DebugLog(fac.LastErrorText)
End If