Xbase++

QR Code Generator via api.qrserver.com REST API

See more HTTP Examples

Demonstrates how to generate a QR code using the api.qrserver.com REST API service. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oQueryParams
LOCAL oResp
LOCAL oBd

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Send the following GET request to get a binary response.
//  The body of the binary response contains the image data for the QR code.
//  https://api.qrserver.com/v1/create-qr-code/?data=[URL-encoded-text]&size=[pixels]x[pixels]

oQueryParams := CreateObject("Chilkat.JsonObject")
oQueryParams:UpdateString("data", "Hello World")
oQueryParams:UpdateString("size", "100x100")

//  Get a PNG file..
//  Possible formats are:
//  png
//  gif
//  jpeg
//  jpg
//  svg
//  eps
//  Case matters.  Use lowercase.
oQueryParams:UpdateString("format", "png")

//  Send the GET request to an endpoint.
//  Chilkat will add the url-encoded query params passed in the JSON.
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpParams("GET", "https://api.qrserver.com/v1/create-qr-code/", oQueryParams, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oQueryParams:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Did it succeed?
IF (oResp:StatusCode != 200)
    //  The response body, if anything, would not be the image data, but would likely be the error text (or HTML, or whatever...)
    ? oResp:BodyStr
    ? "Response status = " + Str(oResp:StatusCode)
    ? "Failed."
    oHttp:destroy()
    oQueryParams:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Success if we get here..
//  Save the binary body as the PNG file, or you can get the bytes of the PNG..
nSuccess := oResp:SaveBodyBinary("c:/temp/qa_output/qr_code.png")

//  Or get the bytes:
oBd := CreateObject("Chilkat.BinData")
oResp:GetBodyBd(oBd)
//  Use the bytes in bd...
//  See the online reference documentation for the function to access the bytes directly.

? "Success."

oHttp:destroy()
oQueryParams:destroy()
oResp:destroy()
oBd:destroy()