Receive Error: Unable to Read Data From The Transport Connection

[Terrance]

I'm trying to create a small messenger program that uses the tcpclient and
tcplistenter objects. When I start the application and run the thread that
fires the tcplistener; once the client sends data then closes the stream and
the connection I receive the message Unable to read data from the transport
connection: An existing connection was forcibly closed by the remote host.
How can I keep the connection listener listening for new traffic?

Here is the code I have:

---------Button Click Event-----------------------------------
Dim t1 As New Thread(AddressO f StartListening)
If btnStartListeni ng.Text = "Start Listening" Then
t1.Name = "ListenThre ad"
t1.IsBackground = True
t1.Start()
ElseIf btnStartListeni ng.Text = "Stop Listening" Then
t1.Abort()
StopListening()
Dim server As TcpListener
server = Nothing
------------------------------------------------------------------------
Private Sub StartListening( )
Try

server = New TcpListener(ipL ocalEndPoint)
server.Start() 'Start listening for client request.
Dim showProgress As New ChangeFormStatu s(AddressOf ChangeStatus)
'Inform user that the app is now listening.

Me.Invoke(showP rogress, status.ONLINE)

Dim client As TcpClient
Dim Bufferbytes(102 4) As Byte 'Buffer for reading data.
Dim incomingMessage As String = Nothing 'Variable for incoming
message
Dim showMessage As New DisplayText(Add ressOf WriteToScreen)

While True

client = server.AcceptTc pClient() 'Perform blocking call to
accept requests.
Me.Invoke(showM essage, "Connection established.... ")

'Get a stream object for reading and writing.
Dim stream As NetworkStream = client.GetStrea m()

Dim intBytes As Int32
intBytes = stream.Read(Buf ferbytes, 0, Bufferbytes.Len gth)

While (intBytes <0)
'Translate data bytes to a ASCII string
incomingMessage =
System.Text.Enc oding.ASCII.Get String(Bufferby tes, 0, Bufferbytes.Len gth)
Me.Invoke(showM essage, String.Format(" Received message
from client: {0}", incomingMessage .ToString()))
Dim msg As Byte() =
System.Text.Enc oding.ASCII.Get Bytes(incomingM essage)
stream.Write(ms g, 0, msg.Length)

intBytes = stream.Read(Buf ferbytes, 0, Bufferbytes.Len gth)
End While
'shutdown the connection
client.Close()
End While
End Sub

I plan to put the server.Close() command under the Click the event for a
button and declare TcpListener as a global object.

--
TC

[Gineer]

I am having exactly the same problem. The interesting part is that I
wrote a app that works like a chat app with a sender and a receiver
class that work perfectly. When I now impliment the receiver class into
the enterprise solution we are building I get this error. On the same
machines, with the same configuration.

What's up with that?

I have disabled Windows Firewall on both machines. Could it be a
security issue?

Very dodgy! Any help would be much apreciated.

Thanks
David

Terrance wrote:

I'm trying to create a small messenger program that uses the tcpclient and
tcplistenter objects. When I start the application and run the thread that
fires the tcplistener; once the client sends data then closes the stream and
the connection I receive the message Unable to read data from the transport
connection: An existing connection was forcibly closed by the remote host.
How can I keep the connection listener listening for new traffic?

Here is the code I have:

---------Button Click Event-----------------------------------
Dim t1 As New Thread(AddressO f StartListening)
If btnStartListeni ng.Text = "Start Listening" Then
t1.Name = "ListenThre ad"
t1.IsBackground = True
t1.Start()
ElseIf btnStartListeni ng.Text = "Stop Listening" Then
t1.Abort()
StopListening()
Dim server As TcpListener
server = Nothing
------------------------------------------------------------------------
Private Sub StartListening( )
Try

server = New TcpListener(ipL ocalEndPoint)
server.Start() 'Start listening for client request.
Dim showProgress As New ChangeFormStatu s(AddressOf ChangeStatus)
'Inform user that the app is now listening.

Me.Invoke(showP rogress, status.ONLINE)

Dim client As TcpClient
Dim Bufferbytes(102 4) As Byte 'Buffer for reading data.
Dim incomingMessage As String = Nothing 'Variable for incoming
message
Dim showMessage As New DisplayText(Add ressOf WriteToScreen)

While True

client = server.AcceptTc pClient() 'Perform blocking call to
accept requests.
Me.Invoke(showM essage, "Connection established.... ")

'Get a stream object for reading and writing.
Dim stream As NetworkStream = client.GetStrea m()

Dim intBytes As Int32
intBytes = stream.Read(Buf ferbytes, 0, Bufferbytes.Len gth)

While (intBytes <0)
'Translate data bytes to a ASCII string
incomingMessage =
System.Text.Enc oding.ASCII.Get String(Bufferby tes, 0, Bufferbytes.Len gth)
Me.Invoke(showM essage, String.Format(" Received message
from client: {0}", incomingMessage .ToString()))
Dim msg As Byte() =
System.Text.Enc oding.ASCII.Get Bytes(incomingM essage)
stream.Write(ms g, 0, msg.Length)

intBytes = stream.Read(Buf ferbytes, 0, Bufferbytes.Len gth)
End While
'shutdown the connection
client.Close()
End While
End Sub

I plan to put the server.Close() command under the Click the event for a
button and declare TcpListener as a global object.

--
TC