Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
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.
use chilkat; $listenSocket = new chilkat::CkSocket(); $success = $listenSocket->UnlockComponent("Anything for 30-day trial"); if ($success != 1) { print "Failed to unlock component" . "\n"; exit; } # 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. $success = $listenSocket->BindAndListen(5555,25); if ($success != 1) { print $listenSocket->lastErrorText() . "\n"; exit; } # Get the next incoming connection # Wait a maximum of 20 seconds (20000 millisec) $connectedSocket = $listenSocket->AcceptNextConnection(20000); if ($connectedSocket eq null ) { print $listenSocket->lastErrorText() . "\n"; exit; } # Set maximum timeouts for reading an writing (in millisec) $connectedSocket->put_MaxReadIdleMs(10000); $connectedSocket->put_MaxSendIdleMs(10000); # Send a "Hello World!" message to the client: $success = $connectedSocket->SendString("Hello World!"); if ($success != 1) { print $connectedSocket->lastErrorText() . "\n"; exit; } # Close the connection with the client. # Wait a max of 20 seconds (20000 millsec) $connectedSocket->Close(20000); print "success!" . "\n"; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.