Xbase++

Twitter OAuth -- Tweet to Your Own Account

See more HTTP Examples

Demonstrates how to send a tweet (status update) to your own Twitter account using pre-known credentials, which includes:

1. Consumer Key
2. Consumer Secret
3. Access Token
4. Token Secret

Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oReq
LOCAL oResp

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("Chilkat.Http")

oHttp:OAuth1 := 1
oHttp:OAuthVerifier := ""
oHttp:OAuthConsumerKey := "my-consumer-key"
oHttp:OAuthConsumerSecret := "my-consumer-secret"
oHttp:OAuthToken := "my-access-token"
oHttp:OAuthTokenSecret := "my-token-secret"

//  Send the same status update as shown in this example:
//  https://dev.twitter.com/docs/api/1.1/post/statuses/update

//  IMPORTANT: Make sure this app has read/write access.  
//  Otherwise it cannot post an update (i.e. tweet) to the Twitter account.

oReq := CreateObject("Chilkat.HttpRequest")
oReq:AddParam("status", "Maybe he'll finally find his keys. #peterfalk")

oReq:HttpVerb := "POST"
oReq:ContentType := "application/x-www-form-urlencoded"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpReq("https://api.twitter.com/1.1/statuses/update.json", oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

IF (oResp:StatusCode == 200)
    //  Display the JSON response.
    ? oResp:BodyStr
ELSE
    ? oHttp:LastErrorText
ENDIF

oHttp:destroy()
oReq:destroy()
oResp:destroy()