(Visual FoxPro) QuickGetObj Example

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

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

LOCAL loHttp
LOCAL loResp
LOCAL lnStatusCode
LOCAL lnSuccess

* 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')

* Send a GET request to download a PDF into an HTTP response object.
loResp = loHttp.QuickGetObj("https://www.chilkatsoft.com/hello.pdf")
IF (loHttp.LastMethodSuccess = 0) THEN
    * This will happen if the request could not be sent, or if no response was received.
    ? loHttp.LastErrorText
    RELEASE loHttp
    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 loResp

RELEASE loHttp