(Visual FoxPro) Simple REST Example

Demonstrates a very simple RESTful API call to get a stock time series daily (quotes) from Alpha Vantage.

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

LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL lcResponseJson

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect to the REST server.
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.alphavantage.co",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* Get a stock quote:
* Sending GET request to https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=MSFT&apikey=my_api_key
lnSuccess = loRest.AddQueryParam("function","TIME_SERIES_DAILY")
lnSuccess = loRest.AddQueryParam("symbol","AAPL")
lnSuccess = loRest.AddQueryParam("apikey","my_api_key")
lcResponseJson = loRest.FullRequestNoBody("GET","/query")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

? lcResponseJson

* Sample response:
* {
*     "Meta Data": {
*         "1. Information": "Daily Prices (open, high, low, close) and Volumes",
*         "2. Symbol": "AAPL",
*         "3. Last Refreshed": "2019-12-06",
*         "4. Output Size": "Compact",
*         "5. Time Zone": "US/Eastern"
*     },
*     "Time Series (Daily)": {
*         "2019-12-06": {
*             "1. open": "267.4800",
*             "2. high": "271.0000",
*             "3. low": "267.3000",
*             "4. close": "270.7100",
*             "5. volume": "25447644"
*         },
*         "2019-12-05": {
*             "1. open": "263.7900",
*             "2. high": "265.8900",
*             "3. low": "262.7300",
*             "4. close": "265.5800",
*             "5. volume": "18661343"
*         },
*         "2019-12-04": {
*             "1. open": "261.0700",
*             "2. high": "263.3100",
*             "3. low": "260.6800",
*             "4. close": "261.7400",
*             "5. volume": "16810388"
*         },
* ...
*         "2019-07-18": {
*             "1. open": "204.0000",
*             "2. high": "205.8800",
*             "3. low": "203.7000",
*             "4. close": "205.6600",
*             "5. volume": "18582161"
*         }
*     }
* }

RELEASE loRest