![]() |
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.
load ./chilkat.dll # 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 != 1} then { puts [CkSocket_lastErrorText $listenSocket] delete_CkSocket $listenSocket exit } # Get the next incoming connection # Wait a maximum of 20 seconds (20000 millisec) # connectedSocket is a CkSocket set connectedSocket [CkSocket_AcceptNextConnection $listenSocket 20000] if {[CkSocket_get_LastMethodSuccess $listenSocket] == 0} then { puts [CkSocket_lastErrorText $listenSocket] delete_CkSocket $listenSocket 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 $connectedSocket delete_CkSocket $listenSocket 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 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.