Visual FoxPro

BrickLink OAuth1 using Chilkat HTTP

See more BrickLink Examples

Demonstrates sending an api.bricklink.com request with OAuth1 authentication using Chilkat HTTP. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJson

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

loHttp.OAuth1 = 1
loHttp.OAuthConsumerKey = "Your Consumer Key"
loHttp.OAuthConsumerSecret = "Your Consumer Secret"
loHttp.OAuthToken = "Your OAuth1 Token"
loHttp.OAuthTokenSecret = "Your Token Secret"
loHttp.OAuthSigMethod = "HMAC-SHA1"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://api.bricklink.com/api/store/v1/orders?direction=in",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)

loJson = CreateObject('Chilkat.JsonObject')
loResp.GetBodyJson(loJson)

loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loHttp
RELEASE loResp
RELEASE loJson