Visual FoxPro

Twitter Simple Tweet (Post Status Update)

Demonstrates sending a simple Twitter status update (tweet).

This example is deprecated and no longer valid.

Visual FoxPro

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

lnSuccess = 0

*  It 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."

*  Send a tweet...
loRest.ClearAllQueryParams()
loRest.AddQueryParam("status",lcTweetContent)
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."

*  A successful JSON response looks like this:

*  	{
*  	  "created_at": "Tue Oct 18 01:58:44 +0000 2016",
*  	  "id": 788111589581114111,
*  	  "id_str": "788111189585711352",
*  	  "text": "This is a test tweet.",
*  	  "truncated": false,
*  	  "entities": {
*  	    "hashtags": [
*  	    ],
*  	    "symbols": [
*  	    ],
*  	    "user_mentions": [
*  	    ],
*  	    "urls": [
*  	    ]
*  	  },
*  	  "source": "\u003ca href=\"https:\/\/www.chilkatsoft.com\/\" rel=\"nofollow\"\u003eChilkatTestApp\u003c\/a\u003e",
*  	  "in_reply_to_status_id": null,
*  	  "in_reply_to_status_id_str": null,
*  	  "in_reply_to_user_id": null,
*  	  "in_reply_to_user_id_str": null,
*  	  "in_reply_to_screen_name": null,
*  	  "user": {
*  	    "id": 85647455,
*  	    "id_str": "85647455",
*  	    "name": "Chilkat Software",
*  	    "screen_name": "chilkatsoft",
*  	    "location": "",
*  	    "description": "",
*  	    "url": "https:\/\/t.co\/hSTR4sOuis",
*  	    "entities": {
*  	      "url": {
*  	        "urls": [
*  	          {
*  	            "url": "https:\/\/t.co\/hSTR4sOuis",
*  	            "expanded_url": "http:\/\/www.chilkatsoft.com",
*  	            "display_url": "chilkatsoft.com",
*  	            "indices": [
*  	              0,
*  	              23
*  	            ]
*  	          }
*  	        ]
*  	      },
*  	      "description": {
*  	        "urls": [
*  	        ]
*  	      }
*  	    },
*  	    "protected": false,
*  	    "followers_count": 36,
*  	    "friends_count": 0,
*  	    "listed_count": 4,
*  	    "created_at": "Tue Oct 27 19:56:13 +0000 2009",
*  	    "favourites_count": 0,
*  	    "utc_offset": null,
*  	    "time_zone": null,
*  	    "geo_enabled": false,
*  	    "verified": false,
*  	    "statuses_count": 6,
*  	    "lang": "en",
*  	    "contributors_enabled": false,
*  	    "is_translator": false,
*  	    "is_translation_enabled": false,
*  	    "profile_background_color": "C0DEED",
*  	    "profile_background_image_url": "http:\/\/abs.twimg.com\/images\/themes\/theme1\/bg.png",
*  	    "profile_background_image_url_https": "https:\/\/abs.twimg.com\/images\/themes\/theme1\/bg.png",
*  	    "profile_background_tile": false,
*  	    "profile_image_url": "http:\/\/pbs.twimg.com\/profile_images\/115893001012741111\/clLweDSg_normal.jpg",
*  	    "profile_image_url_https": "https:\/\/pbs.twimg.com\/profile_images\/115893001012741111\/clLweDSg_normal.jpg",
*  	    "profile_link_color": "0084B4",
*  	    "profile_sidebar_border_color": "C0DEED",
*  	    "profile_sidebar_fill_color": "DDEEF6",
*  	    "profile_text_color": "333333",
*  	    "profile_use_background_image": true,
*  	    "has_extended_profile": false,
*  	    "default_profile": true,
*  	    "default_profile_image": false,
*  	    "following": false,
*  	    "follow_request_sent": false,
*  	    "notifications": false
*  	  },
*  	  "geo": null,
*  	  "coordinates": null,
*  	  "place": null,
*  	  "contributors": null,
*  	  "is_quote_status": false,
*  	  "retweet_count": 0,
*  	  "favorite_count": 0,
*  	  "favorited": false,
*  	  "retweeted": false,
*  	  "lang": "en"
*  	}
*

RELEASE loJson
RELEASE loRest
RELEASE loOauth1
RELEASE loJsonResponse