(Visual Basic) HTTP POST text/plain (not URL encoded params)

Demonstrates how to send an HTTP POST with params NOT URL-encoded.

Download Chilkat HTTP ActiveX

Dim req As New ChilkatHttpRequest
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

'  Build an HTTP POST Request:
req.ContentType = "text/plain"
req.HttpVerb = "POST"
req.Path = "/testPostHandler.asp"
req.AddParam "arg1","1.0"
req.AddParam "arg2","2.0"
req.AddParam "arg3","3.0"

'  Send the HTTP POST and get the response.
Dim domain As String
Dim port As Long
Dim ssl As Long
domain = "www.chilkatsoft.com"
port = 80
ssl = 0
Dim resp As ChilkatHttpResponse
Set resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else
    '  Display the HTML page returned.
    Text1.Text = Text1.Text & resp.BodyStr & vbCrLf

End If