(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRest
    Boolean iBTls
    Integer iPort
    Boolean iBAutoReconnect
    Boolean iSuccess
    String sResponseJson
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect to the REST server.
    Move True To iBTls
    Move 443 To iPort
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "www.alphavantage.co" iPort iBTls iBAutoReconnect To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get a stock quote:
    // Sending GET request to https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=MSFT&apikey=my_api_key
    Get ComAddQueryParam Of hoRest "function" "TIME_SERIES_DAILY" To iSuccess
    Get ComAddQueryParam Of hoRest "symbol" "AAPL" To iSuccess
    Get ComAddQueryParam Of hoRest "apikey" "my_api_key" To iSuccess
    Get ComFullRequestNoBody Of hoRest "GET" "/query" To sResponseJson
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sResponseJson

    // 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"
    //         }
    //     }
    // }


End_Procedure