Visual FoxPro

QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse object. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL lnStatusCode

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Send a GET request to download a PDF into an HTTP response object.
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://www.chilkatsoft.com/hello.pdf",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

* Get the response status
lnStatusCode = loResp.StatusCode
? "Response status: " + STR(lnStatusCode)

* In this example, we want a 200 status code.
IF (lnStatusCode = 200) THEN
    * Save the response body to a file.
    * Note: This is only for the sake of this example.
    * It's better to call the Download method to download directly to a file.
    lnSuccess = loResp.SaveBodyBinary("qa_output/hello.pdf")
    IF (lnSuccess = 0) THEN
        ? "Failed to write output file."
    ELSE
        ? "Wrote hello.pdf"
    ENDIF

ELSE
    * Perhaps we have response body with an error message..
    ? loResp.BodyStr

ENDIF

RELEASE loHttp
RELEASE loResp