(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loOauth1
LOCAL lnSuccess
LOCAL loRest
LOCAL loSbResponse
LOCAL loJson

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth1')
loOauth1 = CreateObject('Chilkat.OAuth1')

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

loRest.SetAuthOAuth1(loOauth1,0)

lnSuccess = loRest.Connect("api.bricklink.com",443,1,1)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loOauth1
    RELEASE loRest
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/api/store/v1/orders?direction=in",loSbResponse)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loOauth1
    RELEASE loRest
    RELEASE loSbResponse
    CANCEL
ENDIF

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbResponse)
loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loOauth1
RELEASE loRest
RELEASE loSbResponse
RELEASE loJson