(PureBasic) Client Certificate in REST

Demonstrates how to use a client certificate with a REST connection.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkRest.pb"
IncludeFile "CkSocket.pb"

Procedure ChilkatExample()

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

    ; This example shows how to use the Chilkat socket object's connection.
    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    ; Set the certificate to be used for mutual TLS authentication
    ; (i.e. sets the client-side certificate for two-way TLS authentication)
    ; Note: There are other ways to set the client certificate using Chilkat.
    ; For example, on Windows systems, a Chilkat certificate object could be loaded with certificate
    ; pre-installed (with private key) in a Windows certificate store, and then socket.SetSslClientCert could be called.
    success.i = CkSocket::ckSetSslClientCertPfx(socket,"/home/bob/pfxFiles/myClientSideCertWithPrivateKey.pfx","pfxPassword")
    If success <> 1
        Debug CkSocket::ckLastErrorText(socket)
        CkRest::ckDispose(rest)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    ; Note: The certificate used for the client-side of TLS mutual authentication
    ; must have the associated private key available. (.pfx/.p12 files typically store both
    ; the certificate and associated private key.)

    ; Establish the connection using the socket object (with client certificate authentication).
    bTls.i = 1
    port.i = 443
    maxWaitMs.i = 5000
    success = CkSocket::ckConnect(socket,"www.example.com",port,bTls,maxWaitMs)
    If success <> 1
        Debug "Connect Failure Error Code: " + Str(CkSocket::ckConnectFailReason(socket))
        Debug CkSocket::ckLastErrorText(socket)
        CkRest::ckDispose(rest)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    bAutoReconnect.i = 1

    ; Use the connection:
    success = CkRest::ckUseConnection(rest,socket,bAutoReconnect)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    ; At this point we are connected and can make REST calls...
    ; For example..
    responseJson.s = CkRest::ckFullRequestNoBody(rest,"GET","/someQuery")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf



    CkRest::ckDispose(rest)
    CkSocket::ckDispose(socket)


    ProcedureReturn
EndProcedure