B4X 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. B4X

Dim success As Boolean = False

'  Replace with your actual Finnhub API key.
Dim apiKey As String = "YOUR_FINNHUB_API_KEY"
Dim symbol As String = "AAPL"

Dim http As ChilkatHttp
http.Initialize("http")

'  This is the URL without params.
Dim urlWithoutParams As String = "https://finnhub.io/api/v1/quote"

Dim req As ChilkatHttpRequest
req.Initialize

'  Add params that will be sent in the URL.
req.AddParam("symbol", symbol)
req.AddParam("token", apiKey)

req.HttpVerb = "GET"

'  Send the request to get the JSON response.
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq(urlWithoutParams, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim json As ChilkatJsonObject
json.Initialize
resp.GetBodyJson(json)

Dim statusCode As Int = resp.StatusCode
Log("response status code: " & statusCode)

json.EmitCompact = False
Log(json.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 statusCode = 200 Then
    '  Add the symbol to the top of the result.
    json.AddStringAt(0, "symbol", symbol)

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

    Log(json.Emit)

Else
    Log("Failed")
End If