Dart.Sockets Namespace > Server Class > Start Method : Start(ConnectThreadStart,Int32,Object) Method |
'Declaration Public Overloads Sub Start( _ ByVal callback As ConnectThreadStart, _ ByVal localPort As Integer, _ ByVal state As Object _ )
'Usage Dim instance As Server Dim callback As ConnectThreadStart Dim localPort As Integer Dim state As Object instance.Start(callback, localPort, state)
private void button1_Click(object sender, EventArgs e) { //Start the echo server on port 7 server1.Start(server1_NewConnection, 7, null); } private void server1_NewConnection(Tcp client, object state) { //Read first data sent by client byte[] buffer = new byte[1024]; client.ReadAsync(buffer, 0, buffer.Length, client_ReadAsyncCompleted, null); } private void client_ReadAsyncCompleted(TcpBase client, Data data, Exception ex, object state) { //Echo data received back to client. //Data is null if client is not connected. if (data != null) client.WriteAsync(data.Buffer, data.Offset, data.Count, client_WriteAsyncCompleted, null); } private void client_WriteAsyncCompleted(TcpBase client, Data data, Exception ex, object state) { //Read for more data. client.ReadAsync(data.Buffer, 0, data.Buffer.Length, client_ReadAsyncCompleted, null); }
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) 'Start the echo server on port 7 server1.Start(AddressOf server1_NewConnection, 7, Nothing) End Sub Private Sub server1_NewConnection(ByVal client As Tcp, ByVal state As Object) 'Read first data sent by client Dim buffer(1023) As Byte client.ReadAsync(buffer, 0, buffer.Length, AddressOf client_ReadAsyncCompleted, Nothing) End Sub Private Sub client_ReadAsyncCompleted(ByVal client As TcpBase, ByVal data As Data, ByVal ex As Exception, ByVal state As Object) 'Echo data received back to client. 'Data is null if client is not connected. If data IsNot Nothing Then client.WriteAsync(data.Buffer, data.Offset, data.Count, AddressOf client_WriteAsyncCompleted, Nothing) End If End Sub Private Sub client_WriteAsyncCompleted(ByVal client As TcpBase, ByVal data As Data, ByVal ex As Exception, ByVal state As Object) 'Read for more data. client.ReadAsync(data.Buffer, 0, data.Buffer.Length, AddressOf client_ReadAsyncCompleted, Nothing) End Sub