![]() |
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. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL lcConsumerKey LOCAL lcConsumerSecret LOCAL loHttp LOCAL loReq LOCAL loResp LOCAL loJson lnSuccess = 0 * 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" loHttp = CreateObject('Chilkat.Http') loHttp.BasicAuth = 1 loHttp.Login = lcConsumerKey loHttp.Password = lcConsumerSecret loReq = CreateObject('Chilkat.HttpRequest') loReq.AddParam("grant_type","client_credentials") loReq.HttpVerb = "POST" loReq.ContentType = "application/x-www-form-urlencoded" loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpReq("https://api.twitter.com/oauth2/token",loReq,loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loReq RELEASE loResp 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 RELEASE loResp CANCEL ENDIF * We should get a JSON response like this: * { * "token_type":"bearer", * "access_token":"..." * } loJson = CreateObject('Chilkat.JsonObject') loJson.Load(loResp.BodyStr) ? "Access token = " + loJson.StringOf("access_token") RELEASE loHttp RELEASE loReq RELEASE loResp RELEASE loJson |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.