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

integer li_rc
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
integer li_Success
string ls_ResponseJson

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

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the REST server.
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("www.alphavantage.co",li_Port,li_BTls,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

// Get a stock quote:
// Sending GET request to https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=MSFT&apikey=my_api_key
li_Success = loo_Rest.AddQueryParam("function","TIME_SERIES_DAILY")
li_Success = loo_Rest.AddQueryParam("symbol","AAPL")
li_Success = loo_Rest.AddQueryParam("apikey","my_api_key")
ls_ResponseJson = loo_Rest.FullRequestNoBody("GET","/query")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

Write-Debug ls_ResponseJson

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


destroy loo_Rest