(DataFlex) Use Socket Object for the Connection

The Chilkat Socket API provides many features for establishing connections, which includes the following:

• Connect through an HTTP proxy
• Connect through a SOCKS proxy
• Connect through an SSH tunnel
• Binding to a local IP address
• Client-side Certificates (two-way SSL/TLS)
• Public Key Pinning for TLS connections
• Controlling TLS ciphers

Rather than reproducing all of the properties and methods required for these features, the REST object can use a Socket object's connection by calling the UseConnection method. This allows for an application to use the features of the Socket API to establish the connection, and then use it from the REST API.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoRest
    Variant vSocket
    Handle hoSocket
    Boolean iBTls
    Integer iPort
    Integer iMaxWaitMs
    Boolean iSuccess
    Boolean iBAutoReconnect
    String sResponseJson
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    // This example shows how to use the Chilkat socket object's connection.
    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End
    Get Create (RefClass(cComChilkatSocket)) To hoSocket
    If (Not(IsComObjectCreated(hoSocket))) Begin
        Send CreateComObject of hoSocket
    End

    // Establish the connection using the socket object:
    Move True To iBTls
    Move 443 To iPort
    Move 5000 To iMaxWaitMs
    Get ComConnect Of hoSocket "www.alphavantage.co" iPort iBTls iMaxWaitMs To iSuccess
    If (iSuccess <> True) Begin
        Get ComConnectFailReason Of hoSocket To iTemp1
        Showln "Connect Failure Error Code: " iTemp1
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move True To iBAutoReconnect

    // Use the connection:
    Get pvComObject of hoSocket to vSocket
    Get ComUseConnection Of hoRest vSocket 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