Click here to Skip to main content
15,885,985 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
I have a device that I can connect to using HyperTerminal and send strings and receive back the data I need but I cannot get it to work in VB.Net. In VB I can connect and send a string but the data a get back is garbage. I have tried every possible way to write the code but below is the way I have it currently written.

VB
Dim tcpClient As New System.Net.Sockets.TcpClient()
tcpClient.Connect(SERVER_ADDR, SERVER_PORT)
Using networkStream As NetworkStream = tcpClient.GetStream()
    If networkStream.CanWrite And networkStream.CanRead Then
        ' Do a simple write.
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("?LEAK")
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        ' Read the NetworkStream into a byte buffer.
        Dim bytes(tcpClient.ReceiveBufferSize) As Byte
        networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
        ' Output the data received from the host to the console.
        Dim returndata As String = Encoding.ASCII.GetString(bytes)
        Console.WriteLine(("Host returned: " + returndata))
    Else
        If Not networkStream.CanRead Then
            Console.WriteLine("cannot not write data to this stream")
            tcpClient.Close()
        Else
            If Not networkStream.CanWrite Then
                Console.WriteLine("cannot read data from this stream")
                tcpClient.Close()
            End If
        End If
    End If
End Using
Console.ReadLine()


All I did to setup HyperTerminal was IP Address, Port Number and TCP/IP (Winsock). Any help would be greatly appreciated.
Posted

1 solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900