|
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) Emoji TweetDemonstrates posting a status update that includes an emoji character. This example is deprecated and no longer valid.
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-2025 Chilkat Software, Inc. All Rights Reserved.