(Lianja) BrickLink OAuth1 using Chilkat HTTP
Demonstrates sending an api.bricklink.com request with OAuth1 authentication using Chilkat HTTP.Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://www.bricklink.com/v3/api.page?page=auth
llSuccess = .F.
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
loHttp = createobject("CkHttp")
loHttp.OAuth1 = .T.
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("CkHttpResponse")
llSuccess = loHttp.HttpNoBody("GET","https://api.bricklink.com/api/store/v1/orders?direction=in",loResp)
if (llSuccess = .F.) then
? loHttp.LastErrorText
release loHttp
release loResp
return
endif
? "Response status code = " + str(loResp.StatusCode)
loJson = createobject("CkJsonObject")
loResp.GetBodyJson(loJson)
loJson.EmitCompact = .F.
? loJson.Emit()
release loHttp
release loResp
release loJson
|