(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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
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