(DataFlex) TCP/IP Socket Connect to Remote Host:Port

Demonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSocket
    Boolean iSsl
    Integer iMaxWaitMillisec
    Boolean iSuccess
    String sReceivedMsg
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatSocket)) To hoSocket
    If (Not(IsComObjectCreated(hoSocket))) Begin
        Send CreateComObject of hoSocket
    End

    // Connect to port 5555 of localhost.
    // The string "localhost" is for testing on a single computer.
    // It would typically be replaced with an IP hostname, such
    // as "www.chilkatsoft.com".
    Move False To iSsl
    Move 20000 To iMaxWaitMillisec
    Get ComConnect Of hoSocket "localhost" 5555 iSsl iMaxWaitMillisec To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Set maximum timeouts for reading an writing (in millisec)
    Set ComMaxReadIdleMs Of hoSocket To 10000
    Set ComMaxSendIdleMs Of hoSocket To 10000

    // Pretend, for the sake of the example, that the
    // ficticious server is going to send a "Hello World!" 
    // after accepting the connection.  
    // Note: Technically, the ReceiveString may not receive the
    // complete string, although it's highly probable given the short
    // length of the "Hello World!" message. 
    // See this Chilkat blog post for more information:
    // http://www.cknotes.com/?p=302
    Get ComReceiveString Of hoSocket To sReceivedMsg
    Get ComLastMethodSuccess Of hoSocket To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Close the connection with the server
    // Wait a max of 20 seconds (20000 millsec)
    Get ComClose Of hoSocket 20000 To iSuccess

    Showln sReceivedMsg


End_Procedure