(DataFlex) Example: Http.CloseAllConnections method

See more HTTP Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    String sUrl
    Variant vSbJson
    Handle hoSbJson
    Integer iStatusCode
    String sTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Demonstrate 
    Move "https://finnhub.io/api/v1/quote?symbol={$symbol}&token={$api_key}" To sUrl

    // When the request is sent, the {$symbol} is replaced with "MSFT"
    // and the {$api_key} is replaced with "1234567890ABCDEF"
    Get ComSetUrlVar Of hoHttp "symbol" "MSFT" To iSuccess
    Get ComSetUrlVar Of hoHttp "api_key" "1234567890ABCDEF" To iSuccess

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbJson
    If (Not(IsComObjectCreated(hoSbJson))) Begin
        Send CreateComObject of hoSbJson
    End
    Get pvComObject of hoSbJson to vSbJson
    Get ComQuickGetSb Of hoHttp sUrl vSbJson To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastStatus Of hoHttp To iStatusCode
    Get ComLastResponseHeader Of hoHttp To sTemp1
    Showln sTemp1

    // The response header contains this:

    // Date: Tue, 19 Aug 2025 12:18:56 GMT
    // Content-Type: application/json; charset=utf-8
    // Transfer-Encoding: chunked
    // Connection: keep-alive
    // Content-Encoding: gzip

    // The "Connection: keep-alive" header ensures the server keeps the connection open for subsequent requests.
    // If the server responds with a "Connection: close" header, it indicates the connection will be closed after the response. 
    // Consequently, Chilkat will also close the connection, requiring a new one to be established for any subsequent requests to the same server.

    // If your application uses the same HTTP object instance to send requests to a different server, a new connection will be established with that server.
    // Existing connections remain open, with Chilkat maintaining up to 10 open connections. 
    // If all 10 connections are in use, Chilkat will close the least recently used connection to connect to a new server.

    // Your application can explicitly close all open connections like this:
    Get ComCloseAllConnections Of hoHttp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure