Tcp Sockets

[campster]

I'm connecting to a remote PC via a TCP socket. I can connect fine but I only seem to get one chunck of data.

I thought that the code below would continuously request data from the remote PC and, for now, dump the data to a message box. This works the first time through, kind of.

Here's what happens: I'm asking for 1000 bytes of data (The remote PC sends more that 1000 bytes). I get this data and it is displayed properly. I thought that my second request for data would overwrite the existing buffer, instead what I get is the second 1000 bytes of the first request. This happens until the original buffer is empty then my message box appears with no text (only the OK button os visible).

Can any one see what I'm missing? This is my first attempt at sockets so most of my code is cut and paste. Still trying to decipher what it all means.

'Not really using this IP Address
    Private pierAddress as String = "127.0.0.1"
    Private telnetPort as Integer = 23
    Private tcp as New TcpClient
 
    Private SubRefreshPlotData
        Dim Done as Boolean = False
 
        Do While Not Done
            getKrData()
            Thread.CurrentThread.Sleep(500)
        Loop
    End Sub
 
    Private Sub getKrData()
        Dim address As IPAddress = IPAddress.Parse(pierAddress)
        Dim ipEndPoint As New IPEndPoint(address, telnetPort)
        Dim data As Byte()
        Dim responseData As String = String.Empty
 
        data = New Byte(999) {}
 
        Try
            tcp.Connect(ipEndPoint)
            Dim stream As NetworkStream = tcp.GetStream()
            Dim bytes As Int32 = stream.Read(data, 0, data.Length)
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
        Catch e As Exception
            Console.WriteLine(e.ToString())
        End Try
 
        MessageBox.Show(responseData)
 
        tcp.Close()
    End Sub