(PureBasic) CardConnect Test API Credentials

To test and validate site-level credentials, you can make a GET request with no body to the base URL.

Chilkat PureBasic Module Download

Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    ; The CardConnect REST Web Service base URL includes a protocol, host, port and servlet specification.
    ; 
    ; For example:
    ; https://<site>.cardconnect.com:<port>/cardconnect/rest/
    ; 
    ; This represents an HTTPS request to the REST web service base URL. 
    ; The servlet name is fixed within the application; the host and port are assigned by CardConnect. 

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkBasicAuth(http, 1)
    CkHttp::setCkLogin(http, "API_USERNAME")
    CkHttp::setCkPassword(http, "API_PASSWORD")

    url.s = "https://<site>.cardconnect.com:<port>/cardconnect/rest/"
    responseStr.s = CkHttp::ckQuickGetStr(http,url)

    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; If we get a 200 response status and an HTML response saying "CardConnect REST Servlet", then our credentials are correct.
    Debug "response status code = " + Str(CkHttp::ckLastStatus(http))

    Debug "response string:"
    Debug responseStr

    ; Sample output:

    ; response status code = 200
    ; response string:
    ; <html lang="en"><body><h1>CardConnect REST Servlet</h1></body></html


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure