Visual FoxPro

Twitter - Get Single Tweet (by ID)

Demonstrates how to fetch a single tweet given an ID. This example uses application-only OAuth2 authentication.

This example is deprecated and no longer valid.

Visual FoxPro

LOCAL loHttp
LOCAL lcUrl
LOCAL lcStrJson
LOCAL loJson

*  It requires the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

*  This application uses application-only authentication.
*  It uses the token previously obtained as shown in this example:  Twitter Application-Only Authentication

loHttp = CreateObject('Chilkat.Http')

*  Set the OAuth2 token previously obtained via application-only authentication.
loHttp.AuthToken = "TWITTER_OAUTH2_TOKEN"

*  A sample GET looks like this:
*  GET https://api.twitter.com/1.1/statuses/show.json?id=210462857140252672
lcUrl = "https://api.twitter.com/1.1/statuses/show.json?id=TWEET_ID"
lcStrJson = loHttp.QuickGetStr(lcUrl)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
loJson.Load(lcStrJson)

? loJson.Emit()

*  A sample JSON response is shown below.
*  To generate JSON parsing code, paste the sample JSON response into
*  Generate JSON Parsing Source Code

*  {
*    "created_at": "Mon Aug 27 23:35:55 +0000 2018",
*    "id": 1034223013313404928,
*    "id_str": "1034223013313404928",
*    "text": "The v9.5.0.75 release is underway.  Alpine Linux and OpenBSD will be included in this release..",
*    "truncated": false,
*    "entities": {
*      "hashtags": [
*      ],
*      "symbols": [
*      ],
*      "user_mentions": [
*      ],
*      "urls": [
*      ]
*    },
*    "source": "\u003ca href=\"http:\/\/twitter.com\" rel=\"nofollow\"\u003eTwitter Web Client\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": 112,
*      "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": 62,
*      "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\/785893001012744195\/clLweDSg_normal.jpg",
*      "profile_image_url_https": "https:\/\/pbs.twimg.com\/profile_images\/785893001012744195\/clLweDSg_normal.jpg",
*      "profile_link_color": "1DA1F2",
*      "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": null,
*      "follow_request_sent": null,
*      "notifications": null,
*      "translator_type": "none"
*    },
*    "geo": null,
*    "coordinates": null,
*    "place": null,
*    "contributors": null,
*    "is_quote_status": false,
*    "retweet_count": 0,
*    "favorite_count": 2,
*    "favorited": false,
*    "retweeted": false,
*    "lang": "en"
*  }
*

RELEASE loHttp
RELEASE loJson