|
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
(Classic ASP) GeoOp Exchange Refresh Token for New Access TokenDemonstrates how to use the /oauth2/token endpoint to exchange it for a new access token once the current access token has expired. Note: This example requires Chilkat v9.5.0.65 or greater.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example also assumes that OAuth2 access and refresh tokens were previously fetched. ' and saved in a JSON file. ' First get our previously obtained refresh token. ' { .... "refresh_token":"e6dqdG....mzjpT04w==", .... } ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/geoop.json") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect to GeoOp... bAutoReconnect = 1 success = rest.Connect("login.geoop.com",443,1,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Set the X-Version header. success = rest.AddHeader("X-Version","1.0") ' Provide the required form params to get the new access token Response.Write "<pre>" & Server.HTMLEncode( "refresh_token = " & jsonToken.StringOf("refresh_token")) & "</pre>" success = rest.AddQueryParam("refresh_token",jsonToken.StringOf("refresh_token")) success = rest.AddQueryParam("grant_type","refresh_token") success = rest.AddQueryParam("client_id","GEOOP-CLIENT-ID") success = rest.AddQueryParam("client_secret","GEOOP-CLIENT-SECRET") responseBody = rest.FullRequestFormUrlEncoded("POST","/oauth2/token") If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' If the response status code did not indicate success, then see what happened.. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Request Header: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.LastRequestHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") json.EmitCompact = 0 success = json.Load(responseBody) ' Show the full JSON response. It should contain the new access token... Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.