Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
TCP/IP Socket Connect to Remote Host:PortDemonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.
LOCAL loSocket LOCAL lnSuccess LOCAL lnSsl LOCAL lnMaxWaitMillisec LOCAL lcReceivedMsg loSocket = CreateObject('Chilkat.Socket') lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial") IF (lnSuccess <> 1) THEN =MESSAGEBOX("Failed to unlock component") QUIT ENDIF * 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". lnSsl = 0 lnMaxWaitMillisec = 20000 lnSuccess = loSocket.Connect("localhost",5555,lnSsl,lnMaxWaitMillisec) IF (lnSuccess <> 1) THEN =MESSAGEBOX(loSocket.LastErrorText) QUIT ENDIF * Set maximum timeouts for reading an writing (in millisec) loSocket.MaxReadIdleMs = 10000 loSocket.MaxSendIdleMs = 10000 * The server (in this example) is going to send a "Hello World!" * message. Read it: lcReceivedMsg = loSocket.ReceiveString() IF (lcReceivedMsg = NULL ) THEN =MESSAGEBOX(loSocket.LastErrorText) QUIT ENDIF * Close the connection with the server * Wait a max of 20 seconds (20000 millsec) loSocket.Close(20000) =MESSAGEBOX(lcReceivedMsg) |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.
Mail Component · .NET Email Component · ASP Mail Component · XML Parser