|
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
(Visual FoxPro) Emoji TweetDemonstrates posting a status update that includes an emoji character.
LOCAL loJson LOCAL lnSuccess LOCAL loRest LOCAL loOauth1 LOCAL lnBAutoReconnect LOCAL loSbText LOCAL lcResp LOCAL loJsonResponse * This requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * ---------------------------------------------------------------------- * This initial setup, which involves setting the OAuth1 properties and connecting * to api.twitter.com, is only required once at the beginning. Once connected, the same * object instance may be re-used, and if necessary, it will automatically reconnect * as needed. * Assume we've previously obtained an access token and saved it to a JSON file.. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') lnSuccess = loJson.LoadFile("qa_data/tokens/twitter.json") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest') loRest = CreateObject('Chilkat.Rest') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth1') loOauth1 = CreateObject('Chilkat.OAuth1') loOauth1.ConsumerKey = "TWITTER_CONSUMER_KEY" loOauth1.ConsumerSecret = "TWITTER_CONSUMER_SECRET" loOauth1.Token = loJson.StringOf("oauth_token") loOauth1.TokenSecret = loJson.StringOf("oauth_token_secret") loOauth1.SignatureMethod = "HMAC-SHA1" loOauth1.GenNonce(16) loRest.SetAuthOAuth1(loOauth1,0) lnBAutoReconnect = 1 lnSuccess = loRest.Connect("api.twitter.com",443,1,lnBAutoReconnect) IF (lnSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJson RELEASE loRest RELEASE loOauth1 CANCEL ENDIF * This ends the initial setup... * ---------------------------------------------------------------------- * For this example, I've pre-created a text file containing two emoji * characters (the "ghost" emoji, and a "face savouring delicious food" emoji). * This text file was saved using the utf-8 encoding. * The utf-8 bytes for the ghost emoji are 0x9f 0x91 0xbb. (Note: This is the utf-8 * representation that does not use surrogate pairs.) * * The utf-8 bytes for the "face savouring delicious food" emoji are \xF0\x9F\x98\x8B. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbText = CreateObject('Chilkat.StringBuilder') loSbText.LoadFile("qa_data/txt/ghost_emoji.txt","utf-8") loSbText.Prepend("Test tweet using two emoji chars: ") * Send a tweet... loRest.ClearAllQueryParams() loRest.AddQueryParam("status",loSbText.GetAsString()) lcResp = loRest.FullRequestFormUrlEncoded("POST","/1.1/statuses/update.json") IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJson RELEASE loRest RELEASE loOauth1 RELEASE loSbText CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJsonResponse = CreateObject('Chilkat.JsonObject') loJsonResponse.EmitCompact = 0 loJsonResponse.Load(lcResp) IF (loRest.ResponseStatusCode <> 200) THEN ? loJsonResponse.Emit() RELEASE loJson RELEASE loRest RELEASE loOauth1 RELEASE loSbText RELEASE loJsonResponse CANCEL ENDIF * Show the successful response: ? loJsonResponse.Emit() ? "Success." RELEASE loJson RELEASE loRest RELEASE loOauth1 RELEASE loSbText RELEASE loJsonResponse |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.