![]() |
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) Twitter - Application Only AuthenticationDemonstrates how to get a Twitter OAuth2 token for application-only authentication. This example is deprecated and no longer valid.
LOCAL lcConsumerKey LOCAL lcConsumerSecret LOCAL loHttp LOCAL loReq LOCAL loResp LOCAL loJson * 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). lcConsumerKey = "TWITTER_CONSUMER_KEY" lcConsumerSecret = "TWITTER_CONSUMER_SECRET" * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') loHttp.BasicAuth = 1 loHttp.Login = lcConsumerKey loHttp.Password = lcConsumerSecret * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest') loReq = CreateObject('Chilkat.HttpRequest') loReq.AddParam("grant_type","client_credentials") loResp = loHttp.PostUrlEncoded("https://api.twitter.com/oauth2/token",loReq) IF (loHttp.LastMethodSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loReq CANCEL ENDIF ? "Response Status Code: " + STR(loResp.StatusCode) IF (loResp.StatusCode <> 200) THEN ? "Expected a 200 response status code for success." ? loResp.BodyStr RELEASE loHttp RELEASE loReq CANCEL ENDIF * We should get a JSON response like this: * { * "token_type":"bearer", * "access_token":"..." * } * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') loJson.Load(loResp.BodyStr) ? "Access token = " + loJson.StringOf("access_token") RELEASE loResp RELEASE loHttp RELEASE loReq RELEASE loJson |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.