![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Vonage UC Extend OAuth2Get an OAuth2 access token for a desktop application for Vonage. Note: This example requires Chilkat v10.1.2 or greater.
LOCAL loOauth2 LOCAL lcUrl LOCAL lnSuccess LOCAL lnNumMsWaited LOCAL loJson LOCAL loFac * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth2') loOauth2 = CreateObject('Chilkat.OAuth2') * This should be the port in the localhost callback URL for your app. * The callback URL would look like "http://localhost:3800/" if the port number is 3017. loOauth2.ListenPort = 3800 loOauth2.AuthorizationEndpoint = "https://api.vonage.com/authorize" loOauth2.TokenEndpoint = "https://api.vonage.com/token" * Replace these with actual values. loOauth2.ClientId = "CLIENT_ID" loOauth2.ClientSecret = "CLIENT_SECRET" loOauth2.CodeChallenge = 0 loOauth2.Scope = "openid" * Begin the OAuth2 Authorization code flow. This returns a URL that should be loaded in a browser. lcUrl = loOauth2.StartAuth() IF (loOauth2.LastMethodSuccess <> 1) THEN ? loOauth2.LastErrorText RELEASE loOauth2 CANCEL ENDIF ? "url = " + lcUrl * Launch the default browser on the system and navigate to the url. * The LaunchBrowser method was added in Chilkat v10.1.2. lnSuccess = loOauth2.LaunchBrowser(lcUrl) IF (lnSuccess = 0) THEN ? loOauth2.LastErrorText RELEASE loOauth2 CANCEL ENDIF * Wait for the user to approve or deny authorization in the browser. lnNumMsWaited = 0 DO WHILE (lnNumMsWaited < 90000) AND (loOauth2.AuthFlowState < 3) loOauth2.SleepMs(100) lnNumMsWaited = lnNumMsWaited + 100 ENDDO * If the browser does not respond within the specified time, AuthFlowState will be: * * 1: Waiting for Redirect - The OAuth2 background thread is waiting for the browser's redirect request. * 2: Waiting for Final Response - The thread is awaiting the final access token response. * In either case, cancel the background task initiated by StartAuth. IF (loOauth2.AuthFlowState < 3) THEN loOauth2.Cancel() ? "No response from the browser!" RELEASE loOauth2 CANCEL ENDIF * Check AuthFlowState to determine if authorization was granted, denied, or failed: * * 3: Success - OAuth2 flow completed, the background thread exited, and the successful response is in AccessTokenResponse. * 4: Access Denied - OAuth2 flow completed, the background thread exited, and the error response is in AccessTokenResponse. * 5: Failure - OAuth2 flow failed before completion, the background thread exited, and error details are in FailureInfo. IF (loOauth2.AuthFlowState = 5) THEN ? "OAuth2 failed to complete." ? loOauth2.FailureInfo RELEASE loOauth2 CANCEL ENDIF IF (loOauth2.AuthFlowState = 4) THEN ? "OAuth2 authorization was denied." ? loOauth2.AccessTokenResponse RELEASE loOauth2 CANCEL ENDIF IF (loOauth2.AuthFlowState <> 3) THEN ? "Unexpected AuthFlowState:" + STR(loOauth2.AuthFlowState) RELEASE loOauth2 CANCEL ENDIF ? "OAuth2 authorization granted!" ? "Access Token = " + loOauth2.AccessToken * Get the full JSON response: * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') loJson.Load(loOauth2.AccessTokenResponse) loJson.EmitCompact = 0 ? loJson.Emit() * The JSON response looks like this: * { * "access_token": "XXXXXXXX-XXX-XXXX-XXXX-XXXXXXXXXXXX", * "refresh_token": "XXXXXXXX-XXX-XXXX-XXXX-XXXXXXXXXXXX", * "scope": "openid", * "id_token": "eyJ4NXQiOiJNem ... hA9tbDCiQRhdI4T0", * "token_type": "Bearer", * "expires_in": 3600 * } * Save the JSON to a file for future requests. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess') loFac = CreateObject('Chilkat.FileAccess') loFac.WriteEntireTextFile("qa_data/tokens/vonage_uc_extend.json",loJson.Emit(),"utf-8",0) RELEASE loOauth2 RELEASE loJson RELEASE loFac |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.