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
(Tcl) Google Photos OAuth2 Access TokenDemonstrates how to get a Google Photos OAuth2 access token from a desktop application or script.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set oauth2 [new_CkOAuth2] # For Google OAuth2, set the listen port equal to the port used # in the Authorized Redirect URL for the Client ID. # For example, in this case the Authorized Redirect URL would be http://localhost:3017/ # Your app should choose a port not likely not used by any other application. CkOAuth2_put_ListenPort $oauth2 3017 CkOAuth2_put_AuthorizationEndpoint $oauth2 "https://accounts.google.com/o/oauth2/v2/auth" CkOAuth2_put_TokenEndpoint $oauth2 "https://www.googleapis.com/oauth2/v4/token" # Replace these with actual values. CkOAuth2_put_ClientId $oauth2 "GOOGLE-CLIENT-ID" CkOAuth2_put_ClientSecret $oauth2 "GOOGLE-CLIENT-SECRET" CkOAuth2_put_CodeChallenge $oauth2 1 CkOAuth2_put_CodeChallengeMethod $oauth2 "S256" # This is a scope for Google Photos. See https://developers.google.com/photos/library/guides/authentication-authorization # This scope provides read/write access but not sharing. CkOAuth2_put_Scope $oauth2 "https://www.googleapis.com/auth/photoslibrary" # Begin the OAuth2 three-legged flow. This returns a URL that should be loaded in a browser. set url [CkOAuth2_startAuth $oauth2] if {[CkOAuth2_get_LastMethodSuccess $oauth2] != 1} then { puts [CkOAuth2_lastErrorText $oauth2] delete_CkOAuth2 $oauth2 exit } # At this point, your application should load the URL in a browser. # For example, # in C#: System.Diagnostics.Process.Start(url); # in Java: Desktop.getDesktop().browse(new URI(url)); # in VBScript: Set wsh=WScript.CreateObject("WScript.Shell") # wsh.Run url # in Xojo: ShowURL(url) (see http://docs.xojo.com/index.php/ShowURL) # in Dataflex: Runprogram Background "c:\Program Files\Internet Explorer\iexplore.exe" sUrl # The Google account owner would interactively accept or deny the authorization request. # Add the code to load the url in a web browser here... # Add the code to load the url in a web browser here... # Add the code to load the url in a web browser here... # Now wait for the authorization. # We'll wait for a max of 120 seconds. set numMsWaited 0 while {expr [$numMsWaited < 120000] && [[CkOAuth2_get_AuthFlowState $oauth2] < 3]} { CkOAuth2_SleepMs $oauth2 100 set numMsWaited [expr $numMsWaited + 100] } # If there was no response from the browser within 120 seconds, then # the AuthFlowState will be equal to 1 or 2. # 1: Waiting for Redirect. The OAuth2 background thread is waiting to receive the redirect HTTP request from the browser. # 2: Waiting for Final Response. The OAuth2 background thread is waiting for the final access token response. # In that case, cancel the background task started in the call to StartAuth. if {[CkOAuth2_get_AuthFlowState $oauth2] < 3} then { CkOAuth2_Cancel $oauth2 puts "No response from the browser!" delete_CkOAuth2 $oauth2 exit } # Check the AuthFlowState to see if authorization was granted, denied, or if some error occurred # The possible AuthFlowState values are: # 3: Completed with Success. The OAuth2 flow has completed, the background thread exited, and the successful JSON response is available in AccessTokenResponse property. # 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, and the error JSON is available in AccessTokenResponse property. # 5: Failed Prior to Completion. The OAuth2 flow failed to complete, the background thread exited, and the error information is available in the FailureInfo property. if {[CkOAuth2_get_AuthFlowState $oauth2] == 5} then { puts "OAuth2 failed to complete." puts [CkOAuth2_failureInfo $oauth2] delete_CkOAuth2 $oauth2 exit } if {[CkOAuth2_get_AuthFlowState $oauth2] == 4} then { puts "OAuth2 authorization was denied." puts [CkOAuth2_accessTokenResponse $oauth2] delete_CkOAuth2 $oauth2 exit } if {[CkOAuth2_get_AuthFlowState $oauth2] != 3} then { puts "Unexpected AuthFlowState:[CkOAuth2_get_AuthFlowState $oauth2]" delete_CkOAuth2 $oauth2 exit } # Save the full JSON access token response to a file. set sbJson [new_CkStringBuilder] CkStringBuilder_Append $sbJson [CkOAuth2_accessTokenResponse $oauth2] CkStringBuilder_WriteFile $sbJson "qa_data/tokens/googlePhotos.json" "utf-8" 0 # The saved JSON response looks like this: # { # "access_token": "ya29.GlamBqWR6cp8lEfJMmTHVEua45912XLKoq4djyHl_Z3CEIzsPLIZkJSGie5oOrbaggy1rjJHn1zW5bjqSesGr5MEYIp9Hx-0CuvjVYf8srg2jeaDMwMACvzemp43", # "expires_in": 3600, # "refresh_token": "1/rl6k16nysDl9Bp1EhRH9F1WyRIoiSQAvko49Z4yY694MT5V1QXLj2ibNZGaRgek0", # "scope": "https://www.googleapis.com/auth/photoslibrary", # "token_type": "Bearer" # } puts "OAuth2 authorization granted!" puts "Access Token = [CkOAuth2_accessToken $oauth2]" delete_CkOAuth2 $oauth2 delete_CkStringBuilder $sbJson |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.