Lianja Requires Chilkat v11.4.0+

Finnhub API - Get Stock Quote

See more AI Examples

Demonstrates how to get a stock quote from the Finnhub API. Lianja

llSuccess = .F.

//  Replace with your actual Finnhub API key.
lcApiKey = "YOUR_FINNHUB_API_KEY"
lcSymbol = "AAPL"

loHttp = createobject("CkHttp")

//  This is the URL without params.
lcUrlWithoutParams = "https://finnhub.io/api/v1/quote"

loReq = createobject("CkHttpRequest")

//  Add params that will be sent in the URL.
loReq.AddParam("symbol",lcSymbol)
loReq.AddParam("token",lcApiKey)

loReq.HttpVerb = "GET"

//  Send the request to get the JSON response.
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq(lcUrlWithoutParams,loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    release loResp
    return
endif

loJson = createobject("CkJsonObject")
loResp.GetBodyJson(loJson)

lnStatusCode = loResp.StatusCode
? "response status code: " + str(lnStatusCode)

loJson.EmitCompact = .F.
? loJson.Emit()

//  Sample result:

//  {
//    "c": 248.8,
//    "d": -4.09,
//    "dp": -1.6173,
//    "h": 255.493,
//    "l": 248.07,
//    "o": 253.9,
//    "pc": 252.89,
//    "t": 1774641600
//  }

if (lnStatusCode = 200) then
    //  Add the symbol to the top of the result.
    loJson.AddStringAt(0,"symbol",lcSymbol)

    //  Rename members for clarification.
    loJson.Rename("c","currentPrice")
    loJson.Rename("d","change")
    loJson.Rename("dp","percentChange")
    loJson.Rename("h","high")
    loJson.Rename("l","low")
    loJson.Rename("o","open")
    loJson.Rename("pc","prevClose")
    loJson.Rename("t","unixTime")

    ? loJson.Emit()

else
    ? "Failed"
endif



release loHttp
release loReq
release loResp
release loJson