Visual FoxPro

BrickLink OAuth1 using Chilkat REST

See more BrickLink Examples

Demonstrates sending an api.bricklink.com request with OAuth1 authentication using Chilkat REST.

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loOauth1
LOCAL loRest
LOCAL loSbResponse
LOCAL loJson

lnSuccess = 0

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

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"

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

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)

loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbResponse)
loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loOauth1
RELEASE loRest
RELEASE loSbResponse
RELEASE loJson