Xojo Plugin

ETrade Renew Access Token

See more ETrade Examples

Renews an ETrade OAuth access token. Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

http.OAuth1 = True
http.OAuthVerifier = ""
http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY"
http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET"

// Load the access token previously obtained via the OAuth1 Authorization
Dim jsonToken As New Chilkat.JsonObject
success = jsonToken.LoadFile("qa_data/tokens/etrade.json")
If (success <> True) Then
    System.DebugLog("Failed to load OAuth1 token")
    Return
End If

http.OAuthToken = jsonToken.StringOf("oauth_token")
http.OAuthTokenSecret = jsonToken.StringOf("oauth_token_secret")

Dim resp As New Chilkat.HttpResponse
success = http.HttpNoBody("GET","https://api.etrade.com/oauth/renew_access_token",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// Make sure a successful response was received.
If (resp.StatusCode <> 200) Then
    System.DebugLog(resp.StatusLine)
    System.DebugLog(resp.Header)
    System.DebugLog(resp.BodyStr)
    Return
End If

// If successful, the resp.BodyStr contains something like this:
// oauth_token=%3TiQRgQCRGPo7Xdk6G8QDSEzX0Jsy6sKNcULcDavAGgU%3D&oauth_token_secret=%7RrC9scEpzcwSEMy4vE7nodSzPLqfRINnTNY4voczyFM%3D
System.DebugLog(resp.BodyStr)

Dim sbRespBody As New Chilkat.StringBuilder
success = resp.GetBodySb(sbRespBody)
If (sbRespBody.ContentsEqual("Access Token has been renewed",False)) Then
    // The documentation at https://apisb.etrade.com/docs/api/authorization/renew_access_token.html
    // indicates that the response should be as described above.  However, the response received when
    // trying to refresh a non-expired token was "Access Token has been renewed"
    System.DebugLog("Keeping the same access token, but it's renewed...")
    Return
End If

Dim hashTab As New Chilkat.Hashtable
success = hashTab.AddQueryParams(resp.BodyStr)

Dim accessToken As String
accessToken = hashTab.LookupStr("oauth_token")
Dim accessTokenSecret As String
accessTokenSecret = hashTab.LookupStr("oauth_token_secret")

// The access token + secret is what should be saved and used for
// subsequent REST API calls.
System.DebugLog("Access Token = " + accessToken)
System.DebugLog("Access Token Secret = " + accessTokenSecret)

// Save this access token for future calls.
// Just in case we need user_id and screen_name, save those also..
Dim json As New Chilkat.JsonObject
success = json.AppendString("oauth_token",accessToken)
success = json.AppendString("oauth_token_secret",accessTokenSecret)

Dim fac As New Chilkat.FileAccess
success = fac.WriteEntireTextFile("qa_data/tokens/etrade.json",json.Emit(),"utf-8",False)

System.DebugLog("Success.")