(Visual FoxPro) HTTPS PUT application/x-www-form-urlencoded

Demonstrates two ways of sending an HTTPS PUT application/x-www-form-urlencoded request.

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

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcUrl
LOCAL loResp
LOCAL loReq

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* The 1st example sends a PUT with the query params in the URL.
* The body of the request will be empty.
lcUrl = "https://example.com/leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note"

* Sends the following request:

* PUT /leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note HTTP/1.1
* Host: example.com
* Accept: */*
* Accept-Encoding: gzip
* Content-Length: 0
* 

loResp = loHttp.PText("PUT",lcUrl,"","","application/x-www-form-urlencoded",0,0)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
ELSE

    ? "Response status code = " + STR(loResp.StatusCode)
    ? "Response body: " + loResp.BodyStr

    RELEASE loResp
ENDIF

* -----------------------------------------------------------------------
* Now we send the same request, but instead the query params are in the HTTP request body.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
loReq.HttpVerb = "PUT"
loReq.Path = "/leads/12345678"
loReq.AddParam("uid","XXXX")
loReq.AddParam("apikey","YYYYYY")
loReq.AddParam("notes","Test_Note")

* Sends the following request:

* POST /leads/12345678 HTTP/1.1
* Host: example.com
* Content-Type: application/x-www-form-urlencoded
* Content-Length: 38
* 
* uid=XXXX&apikey=YYYYYY&notes=Test_Note

loResp = loHttp.PostUrlEncoded("https://example.com/leads/12345678",loReq)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)
? "Response body: " + loResp.BodyStr

RELEASE loResp

RELEASE loHttp
RELEASE loReq