(Visual FoxPro) ETrade OAuth1 Authorization (3-legged) Step 1

Demonstrates the first step in 3-legged OAuth1 authorization for the ETrade REST API. This example sends an HTTP request to the "request token URL" to get a request token that begins the OAuth1 process. (See https://apisb.etrade.com/docs/api/authorization/request_token.html )

This example uses the sandbox request token URL. The live request token URL would be "https://api.etrade.com/oauth/request_token".

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

LOCAL lcConsumerKey
LOCAL lcConsumerSecret
LOCAL lcRequestTokenUrl
LOCAL loHttp
LOCAL lnSuccess
LOCAL loResp
LOCAL loHashTab
LOCAL lcRequestToken
LOCAL lcRequestTokenSecret
LOCAL loJson
LOCAL loFac
LOCAL lcAuthorizeUrl
LOCAL loSbUrlForBrowser
LOCAL lcUrl

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

lcConsumerKey = "ETRADE_CONSUMER_KEY"
lcConsumerSecret = "ETRADE_CONSUMER_SECRET"

* Note: This example uses the sandbox request token URL.
* The live Get Request Token Request URL is:
* https://api.etrade.com/oauth/request_token
* This example will use the Sandbox Token Request URL:
lcRequestTokenUrl = "https://apisb.etrade.com/oauth/request_token"

loHttp = CreateObject('Chilkat_9_5_0.Http')
lnSuccess = 1

loHttp.OAuth1 = 1
loHttp.OAuthConsumerKey = lcConsumerKey
loHttp.OAuthConsumerSecret = lcConsumerSecret
loHttp.OAuthCallback = "oob"

loResp = loHttp.QuickGetObj(lcRequestTokenUrl)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* If successful, the resp.BodyStr contains something like this:  
* oauth_token=-Wa_KwAAAAAAxfEPAAABV8Qar4Q&oauth_token_secret=OfHY4tZBX2HK4f7yIw76WYdvnl99MVGB&oauth_callback_confirmed=true
? loResp.BodyStr

loHashTab = CreateObject('Chilkat_9_5_0.Hashtable')
loHashTab.AddQueryParams(loResp.BodyStr)

lcRequestToken = loHashTab.LookupStr("oauth_token")
lcRequestTokenSecret = loHashTab.LookupStr("oauth_token_secret")
loHttp.OAuthTokenSecret = lcRequestTokenSecret

RELEASE loResp

? "oauth_token = " + lcRequestToken
? "oauth_token_secret = " + lcRequestTokenSecret

* Save this request token for the next step..
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.AppendString("oauth_token",lcRequestToken)
loJson.AppendString("oauth_token_secret",lcRequestTokenSecret)

loFac = CreateObject('Chilkat_9_5_0.FileAccess')
loFac.WriteEntireTextFile("qa_data/tokens/etrade_request_token.json",loJson.Emit(),"utf-8",0)

* ---------------------------------------------------------------------------

* The next step is to form a URL to send to the authorizeUrl
* This is an HTTP GET that we load into a popup browser.
lcAuthorizeUrl = "https://us.etrade.com/e/t/etws/authorize"

loSbUrlForBrowser = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbUrlForBrowser.Append(lcAuthorizeUrl)
loSbUrlForBrowser.Append("?key=")
loSbUrlForBrowser.Append(lcConsumerKey)
loSbUrlForBrowser.Append("&token=")
loSbUrlForBrowser.Append(lcRequestToken)
lcUrl = loSbUrlForBrowser.GetAsString()

* At this point, your application should load the URL in a browser.
* For example, 
* in C#: System.Diagnostics.Process.Start(url);
* in Java: Desktop.getDesktop().browse(new URI(url));
* in VBScript: Set wsh=WScript.CreateObject("WScript.Shell")
*              wsh.Run url
* in Xojo: ShowURL(url)  (see http://docs.xojo.com/index.php/ShowURL)
* The Microsoft account owner would interactively accept or deny the authorization request.

* Add the code to load the url in a web browser here...
* Add the code to load the url in a web browser here...
* Add the code to load the url in a web browser here...

* The ETrade account owner will login and grant access to the application.
* A short verifier code will be displayed (as shown below), and this must be copy-and-pasted
* into the next step to Complete the 3-legged OAuth1 Authorization 

* Note: The browser will NOT automatically direct you to the next page.
* You should copy the verifier code, close the browser, and then paste the verifier
* code into your application.

* 

RELEASE loHttp
RELEASE loHashTab
RELEASE loJson
RELEASE loFac
RELEASE loSbUrlForBrowser