(Lianja) Emoji Tweet

Demonstrates posting a status update that includes an emoji character.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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..
loJson = createobject("CkJsonObject")
llSuccess = loJson.LoadFile("qa_data/tokens/twitter.json")

loRest = createobject("CkRest")
loOauth1 = createobject("CkOAuth1")

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,.F.)

llBAutoReconnect = .T.
llSuccess = loRest.Connect("api.twitter.com",443,.T.,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loJson
    release loRest
    release loOauth1
    return
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.

loSbText = createobject("CkStringBuilder")
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 <> .T.) then
    ? loRest.LastErrorText
    release loJson
    release loRest
    release loOauth1
    release loSbText
    return
endif

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.EmitCompact = .F.
loJsonResponse.Load(lcResp)

if (loRest.ResponseStatusCode <> 200) then
    ? loJsonResponse.Emit()
    release loJson
    release loRest
    release loOauth1
    release loSbText
    release loJsonResponse
    return
endif

// Show the successful response:
? loJsonResponse.Emit()
? "Success."


release loJson
release loRest
release loOauth1
release loSbText
release loJsonResponse