![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) Accept Connection on SocketDemonstrates how to create a TCP/IP socket, listen on a port, accept an incoming connection, and send a "Hello World" message to the client. Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll set success 0 # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set listenSocket [new_CkSocket] # Bind to a port and listen for incoming connections: # This example will listen at port 5555 and allows for a backlog # of 25 pending connection requests. set success [CkSocket_BindAndListen $listenSocket 5555 25] if {$success == 0} then { puts [CkSocket_lastErrorText $listenSocket] delete_CkSocket $listenSocket exit } # Get the next incoming connection # Wait a maximum of 20 seconds (20000 millisec) set connectedSocket [new_CkSocket] set success [CkSocket_AcceptNext $listenSocket 20000 $connectedSocket] if {$success == 0} then { puts [CkSocket_lastErrorText $listenSocket] delete_CkSocket $listenSocket delete_CkSocket $connectedSocket exit } # Set maximum timeouts for reading an writing (in millisec) CkSocket_put_MaxReadIdleMs $connectedSocket 10000 CkSocket_put_MaxSendIdleMs $connectedSocket 10000 # Send a "Hello World!" message to the client: set success [CkSocket_SendString $connectedSocket "Hello World!"] if {$success != 1} then { puts [CkSocket_lastErrorText $connectedSocket] delete_CkSocket $listenSocket delete_CkSocket $connectedSocket exit } # Close the connection with the client. # Wait a max of 20 seconds (20000 millsec) set success [CkSocket_Close $connectedSocket 20000] puts "success!" delete_CkSocket $listenSocket delete_CkSocket $connectedSocket |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.