Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) 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.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim listenSocket As Chilkat.Socket Set listenSocket = Chilkat.NewSocket ' 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 <> True) Then Debug.Print listenSocket.LastErrorText Exit Sub End If ' Get the next incoming connection ' Wait a maximum of 20 seconds (20000 millisec) Set connectedSocket = listenSocket.AcceptNextConnection(20000) If (listenSocket.LastMethodSuccess = False) Then Debug.Print listenSocket.LastErrorText Exit Sub End If ' Set maximum timeouts for reading an writing (in millisec) connectedSocket.MaxReadIdleMs = 10000 connectedSocket.MaxSendIdleMs = 10000 ' Send a "Hello World!" message to the client: success = connectedSocket.SendString("Hello World!") If (success <> True) Then Debug.Print connectedSocket.LastErrorText Exit Sub End If ' Close the connection with the client. ' Wait a max of 20 seconds (20000 millsec) success = connectedSocket.Close(20000) Debug.Print "success!" |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.