(PowerBuilder) Twitter - Tweet with Multiple Images

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

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

integer li_rc
oleobject loo_Json
integer li_Success
oleobject loo_Rest
oleobject loo_Oauth1
integer li_BAutoReconnect
string ls_TweetContent
string ls_Resp
oleobject loo_JsonResponse

// 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..
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Json.LoadFile("qa_data/tokens/twitter.json")

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

loo_Oauth1 = create oleobject
// Use "Chilkat_9_5_0.OAuth1" for versions of Chilkat < 10.0.0
li_rc = loo_Oauth1.ConnectToNewObject("Chilkat.OAuth1")

loo_Oauth1.ConsumerKey = "TWITTER_CONSUMER_KEY"
loo_Oauth1.ConsumerSecret = "TWITTER_CONSUMER_SECRET"
loo_Oauth1.Token = loo_Json.StringOf("oauth_token")
loo_Oauth1.TokenSecret = loo_Json.StringOf("oauth_token_secret")
loo_Oauth1.SignatureMethod = "HMAC-SHA1"
loo_Oauth1.GenNonce(16)

loo_Rest.SetAuthOAuth1(loo_Oauth1,0)

li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("api.twitter.com",443,1,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Json
    destroy loo_Rest
    destroy loo_Oauth1
    return
end if

// This ends the initial setup...
// ----------------------------------------------------------------------

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

// Send a tweet...
loo_Rest.ClearAllQueryParams()
loo_Rest.AddQueryParam("status",ls_TweetContent)

// 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.
loo_Rest.AddQueryParam("media_ids","793137045996646400,793192201392041984")

ls_Resp = loo_Rest.FullRequestFormUrlEncoded("POST","/1.1/statuses/update.json")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Json
    destroy loo_Rest
    destroy loo_Oauth1
    return
end if

loo_JsonResponse = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonResponse.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonResponse.EmitCompact = 0
loo_JsonResponse.Load(ls_Resp)

if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug loo_JsonResponse.Emit()
    destroy loo_Json
    destroy loo_Rest
    destroy loo_Oauth1
    destroy loo_JsonResponse
    return
end if

// Show the successful response:
Write-Debug loo_JsonResponse.Emit()
Write-Debug "Success."


destroy loo_Json
destroy loo_Rest
destroy loo_Oauth1
destroy loo_JsonResponse