Xbase++

QuickGetObj Example

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

LOCAL nSuccess
LOCAL oHttp
LOCAL oResp
LOCAL nStatusCode

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Send a GET request to download a PDF into an HTTP response object.
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("GET", "https://www.chilkatsoft.com/hello.pdf", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Get the response status
nStatusCode := oResp:StatusCode
? "Response status: " + Str(nStatusCode)

//  In this example, we want a 200 status code.
IF (nStatusCode == 200)
    //  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.
    nSuccess := oResp:SaveBodyBinary("qa_output/hello.pdf")
    IF (nSuccess == 0)
        ? "Failed to write output file."
    ELSE
        ? "Wrote hello.pdf"
    ENDIF

ELSE
    //  Perhaps we have response body with an error message..
    ? oResp:BodyStr

ENDIF

oHttp:destroy()
oResp:destroy()