Visual FoxPro

Twitter - Tweet with Multiple Images

Example to post a status update with multiple associated images/photos (or videos). Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL loRest
LOCAL loOauth1
LOCAL lnBAutoReconnect
LOCAL lcTweetContent
LOCAL lcResp
LOCAL loJsonResponse

lnSuccess = 0

* This example 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('Chilkat.JsonObject')
lnSuccess = loJson.LoadFile("qa_data/tokens/twitter.json")

loRest = CreateObject('Chilkat.Rest')
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...
* ----------------------------------------------------------------------

lcTweetContent = "This is a test tweet with multiple images."

* Send a tweet...
loRest.ClearAllQueryParams()
loRest.AddQueryParam("status",lcTweetContent)

* Add list of comma separated media_ids to associate with the Tweet. 
* You may include up to 4 photos or 1 animated GIF or 1 video in a Tweet.
* The image needs to have been previously uploaded.  The upload response gave us
* the media ID we'll use to associate this tweet with the image (or video)
* See Twitter Upload Media for sample code.
loRest.AddQueryParam("media_ids","793137045996646400,793192201392041984")

lcResp = loRest.FullRequestFormUrlEncoded("POST","/1.1/statuses/update.json")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJson
    RELEASE loRest
    RELEASE loOauth1
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.EmitCompact = 0
loJsonResponse.Load(lcResp)

IF (loRest.ResponseStatusCode <> 200) THEN
    ? loJsonResponse.Emit()
    RELEASE loJson
    RELEASE loRest
    RELEASE loOauth1
    RELEASE loJsonResponse
    CANCEL
ENDIF

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

RELEASE loJson
RELEASE loRest
RELEASE loOauth1
RELEASE loJsonResponse