(Excel) PostUrlEncoded Clarified

This example is intended to help clarify the behavior of the PostUrlEncoded method.

The intent of PostUrlEncoded is to send a POST request with the HTTP request parameters located in the HTTP request body using the x-www-form-urlencoded format. In many cases, the developer already has the desired request params in a typical GET URL format, where the params are specified in the URL (after the "?" character). For example:

https://www.chilkatsoft.com/blah/moreblah?key=ABC123&value=XYZ

The PostUrlEncoded method makes it possible to send this request as a POST, where the "key=ABC123&value=XYZ" is contained in the body of the request. The path part of the URL is "/blah/moreblah". Therefore, the POST request would look like this:

POST /blah/moreblah HTTP/1.1
Content-Type: application/x-www-form-urlencoded
Host: www.chilkatsoft.com
Content-Length: 20

key=ABC123&value=XYZ

Sometimes the desire is to send a POST, such that some (or all) request parameters are found in the path, and not in the request body. For example, let's say a program wants to send this request:

POST /blah/moreblah?key=ABC123 HTTP/1.1
Content-Type: application/x-www-form-urlencoded
Host: www.chilkatsoft.com
Content-Length: 10

value=XYZ

This can be done by calling SynchronousRequest. The SynchronousRequest method allows for the parts of the request to be explicitly built via the HTTP request object. (see the example code below).

Download Excel Class Modules

Chilkat Excel Class Modules

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' To see the exact HTTP request sent and the response, set the SessionLogFilename property:
http.SessionLogFilename = "/httpLogs/chilkatHttpLog.txt"

' Send the POST where all request parameters are located in the HTTP request body
' in the x-www-form-urlencoded format.  (We are passing a default/empty HTTP request object.
' The HTTP request object is where additional headers, or additional request parameters
' be added.)
Dim req As Chilkat.HttpRequest
Set req = Chilkat.NewHttpRequest

Set resp = http.PostUrlEncoded("https://www.chilkatsoft.com/blah/moreblah?key=ABC123&value=XYZ",req)
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Do whatever is desired with the response object...

' Show how to call SynchronousRequest to send a POST where "key=ABC123" is in the path 
' of the request, and the "value=XYZ" is in the request body.
Dim req2 As Chilkat.HttpRequest
Set req2 = Chilkat.NewHttpRequest
req2.Path = "/blah/moreblah?key=ABC123"
req2.AddParam "value","XYZ"
req2.HttpVerb = "POST"


bUseTls = True

domain = "www.chilkatsoft.com"

port = 443
Set resp = http.SynchronousRequest(domain,port,bUseTls,req2)
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Do whatever is desired with the response object...