![]() |
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
(DataFlex) Twitter - Application Only AuthenticationDemonstrates how to get a Twitter OAuth2 token for application-only authentication. This example is deprecated and no longer valid. Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess String sConsumerKey String sConsumerSecret Handle hoHttp Variant vReq Handle hoReq Variant vResp Handle hoResp Handle hoJson String sTemp1 Integer iTemp1 Move False To iSuccess // It requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Note: Define your Twitter apps at https://apps.twitter.com/ // We're going to send an HTTPS POST that looks like this: // POST /oauth2/token HTTP/1.1 // Host: api.twitter.com // User-Agent: My Twitter App v1.0.23 // Authorization: Basic eHZ6MWV2RlM0d0VFUFRHRUZQSEJvZzpMOHFxOVBaeVJn // NmllS0dFS2hab2xHQzB2SldMdzhpRUo4OERSZHlPZw== // Content-Type: application/x-www-form-urlencoded;charset=UTF-8 // Content-Length: 29 // Accept-Encoding: gzip // // grant_type=client_credentials // Update these values with your consumer key and secret (also known as API key and API secret). Move "TWITTER_CONSUMER_KEY" To sConsumerKey Move "TWITTER_CONSUMER_SECRET" To sConsumerSecret Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Set ComBasicAuth Of hoHttp To True Set ComLogin Of hoHttp To sConsumerKey Set ComPassword Of hoHttp To sConsumerSecret Get Create (RefClass(cComChilkatHttpRequest)) To hoReq If (Not(IsComObjectCreated(hoReq))) Begin Send CreateComObject of hoReq End Send ComAddParam To hoReq "grant_type" "client_credentials" Set ComHttpVerb Of hoReq To "POST" Set ComContentType Of hoReq To "application/x-www-form-urlencoded" Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoReq to vReq Get pvComObject of hoResp to vResp Get ComHttpReq Of hoHttp "https://api.twitter.com/oauth2/token" vReq vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComStatusCode Of hoResp To iTemp1 Showln "Response Status Code: " iTemp1 Get ComStatusCode Of hoResp To iTemp1 If (iTemp1 <> 200) Begin Showln "Expected a 200 response status code for success." Get ComBodyStr Of hoResp To sTemp1 Showln sTemp1 Procedure_Return End // We should get a JSON response like this: // { // "token_type":"bearer", // "access_token":"..." // } Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComBodyStr Of hoResp To sTemp1 Get ComLoad Of hoJson sTemp1 To iSuccess Get ComStringOf Of hoJson "access_token" To sTemp1 Showln "Access token = " sTemp1 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.