Visual Basic

DATASET.READXML(FILE.XML, XMLREADMODE.AUTO)<br />
DATAGRIDVIEW.DATASOURCE = DATASET

   Private Function sendReceiveTCP(ByVal message As String) As String<br />
        Try<br />
            ' Translate the passed message into ASCII and store it as a Byte array.<br />
            Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)<br />
<br />
            ' Get a client stream for reading and writing.<br />
            '  Stream stream = client.GetStream();<br />
            Dim stream As System.net.Sockets.NetworkStream = msocket.GetStream()<br />
<br />
            ' Send the message to the connected TcpServer. <br />
            stream.Write(data, 0, data.Length)<br />
<br />
            Console.WriteLine("Sent: {0}", message)<br />
<br />
            ' Receive the TcpServer.response.<br />
            ' Buffer to store the response bytes.<br />
            data = New [Byte](100000) {}<br />
<br />
            ' String to store the response ASCII representation.<br />
            Dim responseData As [String] = [String].Empty<br />
<br />
            ' Read the first batch of the TcpServer response bytes.<br />
            Dim bytes As Int64 = stream.Read(data, 0, data.Length)<br />
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)<br />
            Console.WriteLine("Received: {0}", responseData)<br />
<br />
            Return responseData<br />
        Catch ex As ArgumentNullException<br />
            Console.WriteLine("ArgumentNullException: {0}", ex)<br />
        Catch ex As System.Net.Sockets.SocketException<br />
            Console.WriteLine("SocketException: {0}", ex)<br />
        End Try<br />
    End Function<br />

<br />
 Dim bytes As Int64 = stream.Read(data, 0, data.Length)<br />