Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Get eBay Application TokenThis example shows how to request an eBay Application token.
integer li_rc oleobject loo_Http oleobject loo_Req string ls_EndPoint oleobject loo_Resp oleobject loo_Json string ls_AccessToken oleobject loo_DtExpire oleobject loo_Fac integer li_Success // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // See the Ebay documentation about Access token types // Also see the Ebay documentation about client credentials grant flow loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if // If using the sandbox, the target endpoint will be: // POST https://api.sandbox.ebay.com/identity/v1/oauth2/token // If using the production (live) system, the target endpoint will be: // POST https://api.ebay.com/identity/v1/oauth2/token // The eBay client_id and client_secret needs to be sent // in a Basic Authorization request header, which has this format: // Authorization: Basic <B64_encoded_oauth_credentials> // Chilkat takes care of it. You only need to set the Login = client_id, // and password = client_secret, and indicate you want "Basic" HTTP Authorization. loo_Http.Login = "EBAY_CLIENT_ID" loo_Http.Password = "EBAY_CLIENT_SECRET" loo_Http.BasicAuth = 1 // Let's do the following POST: // HTTP method: POST // URL (Sandbox): https://api.sandbox.ebay.com/identity/v1/oauth2/token // // HTTP headers: // Content-Type = application/x-www-form-urlencoded // Authorization = Basic <B64-encoded-oauth-credentials> // // Request body (wrapped for readability): // grant_type=client_credentials& // redirect_uri=<RuName-value>& // scope=<SPACE separated list of scopes> // // Create an HttpRequest object to hold the request params. loo_Req = create oleobject li_rc = loo_Req.ConnectToNewObject("Chilkat_9_5_0.HttpRequest") loo_Req.HttpVerb = "POST" loo_Req.AddParam("grant_type","client_credentials") // The scope query param indicates the access to be provided by the token. // Multiple scopes can be specified by separating each with a SPACE char. // See the Ebay OAuth scopes documentation loo_Req.AddParam("scope","https://api.ebay.com/oauth/api_scope") // (The PostUrlEncoded method automatically sets the Content-Type header equal to "application/x-www-form-urlencoded") ls_EndPoint = "https://api.sandbox.ebay.com/identity/v1/oauth2/token" loo_Resp = loo_Http.PostUrlEncoded(ls_EndPoint,loo_Req) if loo_Http.LastMethodSuccess <> 1 then Write-Debug loo_Http.LastErrorText destroy loo_Http destroy loo_Req return end if // The response is JSON.. loo_Json = create oleobject li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject") loo_Json.Load(loo_Resp.BodyStr) loo_Json.EmitCompact = 0 // If the response status code is not 200, then it failed. Write-Debug "Response status code = " + string(loo_Resp.StatusCode) if loo_Resp.StatusCode <> 200 then Write-Debug loo_Json.Emit() Write-Debug "Failed." destroy loo_Http destroy loo_Req destroy loo_Json return end if // We successfully retrieved an eBay access token. // The actual access token string can be parsed from the JSON like this: ls_AccessToken = loo_Json.StringOf("access_token") // This application token is only valid for 7200 seconds (2 hours). We'll want to refresh // it before it expires. (There is an online example for that..) // For now, let's save the JSON to a file for our application to use. // But before doing that, let's add to the JSON an expiration timestamp // so we know when to refresh the token. loo_DtExpire = create oleobject li_rc = loo_DtExpire.ConnectToNewObject("Chilkat_9_5_0.CkDateTime") loo_DtExpire.SetFromCurrentSystemTime() loo_DtExpire.AddSeconds(loo_Json.IntOf("expires_in")) loo_Json.AppendString("expire_time",loo_DtExpire.GetAsTimestamp(0)) // Persist the JSON to a file. loo_Fac = create oleobject li_rc = loo_Fac.ConnectToNewObject("Chilkat_9_5_0.FileAccess") li_Success = loo_Fac.WriteEntireTextFile("qa_data/tokens/ebay.json",loo_Json.Emit(),"utf-8",0) if li_Success <> 1 then Write-Debug loo_Fac.LastErrorText Write-Debug "Failed to save eBay Application token to file." destroy loo_Http destroy loo_Req destroy loo_Json destroy loo_DtExpire destroy loo_Fac return end if Write-Debug loo_Json.Emit() Write-Debug "Success." // The output of this example is: // { // "access_token": "v^1.1#i^1#p^1#I^3#r^0# ... Ajp1BQhJDgAA", // "token_type": "Application Access Token", // "expires_in": 7200, // "refresh_token": "N/A", // "expire_time": "2017-04-16T14:44:20Z" // } // // Success. // destroy loo_Http destroy loo_Req destroy loo_Json destroy loo_DtExpire destroy loo_Fac |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.