(Lianja) BrickLink OAuth1 using Chilkat REST

See more BrickLink Examples

Note: This example requires Chilkat v9.5.0.91 or greater (due to adjustments made within Chilkat to support bricklink OAuth1 needs).

For more information, see https://www.bricklink.com/v3/api.page?page=auth

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loOauth1 = createobject("CkOAuth1")

loOauth1.ConsumerKey = "Your Consumer Key"
loOauth1.ConsumerSecret = "Your Consumer Secret"
loOauth1.Token = "Your OAuth1 Token"
loOauth1.TokenSecret = "Your Token Secret"
loOauth1.SignatureMethod = "HMAC-SHA1"

loRest = createobject("CkRest")

loRest.SetAuthOAuth1(loOauth1,.F.)

llSuccess = loRest.Connect("api.bricklink.com",443,.T.,.T.)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loOauth1
    release loRest
    return
endif

loSbResponse = createobject("CkStringBuilder")
llSuccess = loRest.FullRequestNoBodySb("GET","/api/store/v1/orders?direction=in",loSbResponse)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loOauth1
    release loRest
    release loSbResponse
    return
endif

? "Response status code = " + str(loRest.ResponseStatusCode)

loJson = createobject("CkJsonObject")
loJson.LoadSb(loSbResponse)
loJson.EmitCompact = .F.
? loJson.Emit()


release loOauth1
release loRest
release loSbResponse
release loJson