Sockets Server / Sockets Client - unable to read data from the transport connection

[Mike Dole]

I'm working on a client - server application based on the 'How to
Sockets Server and How to Sockets Client' code from the Visual Basic
..NET Resource Kit.
Since I want to be able to send 'big strings' instead of 'one liners'
I check the streams for terminators.

I'm having problems with the connection, I've been looking and
debugging for 2 weeks now (debugging with an emulator is terribly
slow..) but I'm not getting it...

I want to send xml strings back and forth between client and server
and on the side I have the original chat application to check the
connection.

I have a userconnection class with a memorystream (streamread). When
there's a terminator I process the memorystream, remove the terminator
in the process and raise an event (RaiseEvent LineReceived(Me ,
strMessage))

I don't know why it is happening but it seems like the userconnection

{DigiServer.Use rConnection}
LineReceivedEve nt:
{DigiServer.Use rConnection.Lin eReceivedEventH andler}
MainClient: {System.Net.Soc kets.TcpClient}
Name: Nothing
READ_BUFFER_SIZ E: 255
readBuffer: {Length=256}
streamRead: {System.IO.Memo ryStream}
strName: Nothing

is 'nameless' the second time, the first time when it's connecting it
seems to go ok, the userconnection gets the name of the device which
connects (handheld1) but the second time the userconnection' s name =
nothing? (should be handheld1..)
I'm keep getting errors like these:
System.IO.IOExc eption - Unable to read data from the transport
connection - The IASyncResult object was not returned from the
corresponding asynchronous method on this class

Anyway here are the main 'snippets' the error mostly occurs where I
put **ERROR TRAP**:

Class Userconnection part..
' Overload the New operator to set up a read thread.
Public Sub New(ByVal client As TcpClient)
Me.MainClient = client

' This starts the asynchronous read thread. The data will be
saved into
' readBuffer.
Me.MainClient.G etStream.BeginR ead(readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
' Me.client.Recei veTimeout = 1000
End Sub

Private MainClient As TcpClient

Public Event LineReceived(By Val sender As UserConnection, ByVal
Data As String)
' This is the callback function for TcpClient.GetSt ream.Begin. It
begins an
' asynchronous read from a stream.
Private Sub StreamReceiver( ByVal ar As IAsyncResult)
Dim BytesRead As Integer

Try
' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
BytesRead = MainClient.GetS tream.EndRead(a r)
End SyncLock

If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
**ERROR TRAP** MainClient.GetS tream.BeginRead (readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
End SyncLock
Catch SocketError As SocketException
MsgBox(SocketEr ror.ToString)
End Try
End Sub
If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
MainClient.GetS tream.BeginRead (readBuffer, 0, READ_BUFFER_SIZ E,
AddressOf StreamReceiver, Nothing)
End SyncLock
End Sub

' Process the command that was received from the client.
Private Sub ProcessCommand( ByVal streamRead As MemoryStream)
Dim strMessage As String

Try
' remove message terminator
streamRead.SetL ength((streamRe ad.Length -
Network.Termina tor.Length))

' get the command data
streamRead.Posi tion = 0
Dim data As Byte() = streamRead.ToAr ray()

' Convert the byte array the message was saved into, minus
one for the
' Chr(13).
strMessage = System.Text.Enc oding.ASCII.Get String(data)
RaiseEvent LineReceived(Me , strMessage)
'Maak streamreader leeg
streamRead.SetL ength(0)

Catch ex As Exception
MsgBox(ex.ToStr ing)
End Try
End Sub

MainForm part..

Private Sub DoListen()
Try
' Listen for new connections.
listener = New TcpListener(Sys tem.Net.IPAddre ss.Any,
PORT_NUM)
listener.Start( )
Do
' Create a new user connection using TcpClient
returned by
' TcpListener.Acc eptTcpClient()
Dim MFclient As New
UserConnection( listener.Accept TcpClient)

' Create an event handler to allow the UserConnection
to communicate
' with the window.
AddHandler MFclient.LineRe ceived, AddressOf
OnLineReceived
'UpdateStatus(" New connection found: waiting for
log-in")
Loop Until False
Catch ex As SocketException
MsgBox(ex.ToStr ing)
End Try
End Sub
Private Sub MainForm_Load(B yVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
listenerThread = New Threading.Threa d(AddressOf DoListen)
listenerThread. Start()
UpdateStatus("L istener started")
End Sub
Thanks a million in advance!

Mike

[Andy Fish]

"Mike Dole" <m_******@hotma il.com> wrote in message
news:fd******** *************** **@posting.goog le.com...

I'm working on a client - server application based on the 'How to
Sockets Server and How to Sockets Client' code from the Visual Basic
.NET Resource Kit.
Since I want to be able to send 'big strings' instead of 'one liners'
I check the streams for terminators.

I'm having problems with the connection, I've been looking and
debugging for 2 weeks now (debugging with an emulator is terribly
slow..) but I'm not getting it...

I want to send xml strings back and forth between client and server
and on the side I have the original chat application to check the
connection.

Is there a reason you're writing all your socket handling code from scratch?
If the client and server are both .Net I would recommend you use remoting;
otherwise consider SOAP

Andy

[Mike Dole]

> Is there a reason you're writing all your socket handling code from scratch?

If the client and server are both .Net I would recommend you use remoting;
otherwise consider SOAP

Andy

No particular reason, I've read some examples with the tcpClient and
tcpListener Class and I had it looked pretty straightforward ...
But thanks for your advice I'm gonna take a look at remoting / SOAP.

Regards,

Michael

[Mike Dole]

The strange thing is that with a desktop client with exactly the same
code it runs just fine??

In other words, if I run the desktop version I can send xml strings,
text strings, etc back and forth without any error.

Isn't there anybody around who can shine a light on this??

Thanks in advance,

Michael
m_******@hotmai l.com (Mike Dole) wrote in message news:<fd******* *************** ***@posting.goo gle.com>...

I'm working on a client - server application based on the 'How to
Sockets Server and How to Sockets Client' code from the Visual Basic
.NET Resource Kit.
Since I want to be able to send 'big strings' instead of 'one liners'
I check the streams for terminators.

I'm having problems with the connection, I've been looking and
debugging for 2 weeks now (debugging with an emulator is terribly
slow..) but I'm not getting it...

I want to send xml strings back and forth between client and server
and on the side I have the original chat application to check the
connection.

I have a userconnection class with a memorystream (streamread). When
there's a terminator I process the memorystream, remove the terminator
in the process and raise an event (RaiseEvent LineReceived(Me ,
strMessage))

I don't know why it is happening but it seems like the userconnection

{DigiServer.Use rConnection}
LineReceivedEve nt:
{DigiServer.Use rConnection.Lin eReceivedEventH andler}
MainClient: {System.Net.Soc kets.TcpClient}
Name: Nothing
READ_BUFFER_SIZ E: 255
readBuffer: {Length=256}
streamRead: {System.IO.Memo ryStream}
strName: Nothing

is 'nameless' the second time, the first time when it's connecting it
seems to go ok, the userconnection gets the name of the device which
connects (handheld1) but the second time the userconnection' s name =
nothing? (should be handheld1..)
I'm keep getting errors like these:
System.IO.IOExc eption - Unable to read data from the transport
connection - The IASyncResult object was not returned from the
corresponding asynchronous method on this class

Anyway here are the main 'snippets' the error mostly occurs where I
put **ERROR TRAP**:

Class Userconnection part..
' Overload the New operator to set up a read thread.
Public Sub New(ByVal client As TcpClient)
Me.MainClient = client

' This starts the asynchronous read thread. The data will be
saved into
' readBuffer.
Me.MainClient.G etStream.BeginR ead(readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
' Me.client.Recei veTimeout = 1000
End Sub

Private MainClient As TcpClient

Public Event LineReceived(By Val sender As UserConnection, ByVal
Data As String)
' This is the callback function for TcpClient.GetSt ream.Begin. It
begins an
' asynchronous read from a stream.
Private Sub StreamReceiver( ByVal ar As IAsyncResult)
Dim BytesRead As Integer

Try
' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
BytesRead = MainClient.GetS tream.EndRead(a r)
End SyncLock

If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
**ERROR TRAP** MainClient.GetS tream.BeginRead (readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
End SyncLock
Catch SocketError As SocketException
MsgBox(SocketEr ror.ToString)
End Try
End Sub
If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
MainClient.GetS tream.BeginRead (readBuffer, 0, READ_BUFFER_SIZ E,
AddressOf StreamReceiver, Nothing)
End SyncLock
End Sub

' Process the command that was received from the client.
Private Sub ProcessCommand( ByVal streamRead As MemoryStream)
Dim strMessage As String

Try
' remove message terminator
streamRead.SetL ength((streamRe ad.Length -
Network.Termina tor.Length))

' get the command data
streamRead.Posi tion = 0
Dim data As Byte() = streamRead.ToAr ray()

' Convert the byte array the message was saved into, minus
one for the
' Chr(13).
strMessage = System.Text.Enc oding.ASCII.Get String(data)
RaiseEvent LineReceived(Me , strMessage)
'Maak streamreader leeg
streamRead.SetL ength(0)

Catch ex As Exception
MsgBox(ex.ToStr ing)
End Try
End Sub

MainForm part..

Private Sub DoListen()
Try
' Listen for new connections.
listener = New TcpListener(Sys tem.Net.IPAddre ss.Any,
PORT_NUM)
listener.Start( )
Do
' Create a new user connection using TcpClient
returned by
' TcpListener.Acc eptTcpClient()
Dim MFclient As New
UserConnection( listener.Accept TcpClient)

' Create an event handler to allow the UserConnection
to communicate
' with the window.
AddHandler MFclient.LineRe ceived, AddressOf
OnLineReceived
'UpdateStatus(" New connection found: waiting for
log-in")
Loop Until False
Catch ex As SocketException
MsgBox(ex.ToStr ing)
End Try
End Sub
Private Sub MainForm_Load(B yVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
listenerThread = New Threading.Threa d(AddressOf DoListen)
listenerThread. Start()
UpdateStatus("L istener started")
End Sub
Thanks a million in advance!

Mike

[Mike Dole]

The strange thing is that with a desktop client with exactly the same
code it runs just fine??

In other words, if I run the desktop version I can send xml strings,
text strings, etc back and forth without any error.

Isn't there anybody around who can shine a light on this??

Thanks in advance,

Michael
m_******@hotmai l.com (Mike Dole) wrote in message news:<fd******* *************** ***@posting.goo gle.com>...

I'm working on a client - server application based on the 'How to
Sockets Server and How to Sockets Client' code from the Visual Basic
.NET Resource Kit.
Since I want to be able to send 'big strings' instead of 'one liners'
I check the streams for terminators.

I'm having problems with the connection, I've been looking and
debugging for 2 weeks now (debugging with an emulator is terribly
slow..) but I'm not getting it...

I want to send xml strings back and forth between client and server
and on the side I have the original chat application to check the
connection.

I have a userconnection class with a memorystream (streamread). When
there's a terminator I process the memorystream, remove the terminator
in the process and raise an event (RaiseEvent LineReceived(Me ,
strMessage))

I don't know why it is happening but it seems like the userconnection

{DigiServer.Use rConnection}
LineReceivedEve nt:
{DigiServer.Use rConnection.Lin eReceivedEventH andler}
MainClient: {System.Net.Soc kets.TcpClient}
Name: Nothing
READ_BUFFER_SIZ E: 255
readBuffer: {Length=256}
streamRead: {System.IO.Memo ryStream}
strName: Nothing

is 'nameless' the second time, the first time when it's connecting it
seems to go ok, the userconnection gets the name of the device which
connects (handheld1) but the second time the userconnection' s name =
nothing? (should be handheld1..)
I'm keep getting errors like these:
System.IO.IOExc eption - Unable to read data from the transport
connection - The IASyncResult object was not returned from the
corresponding asynchronous method on this class

Anyway here are the main 'snippets' the error mostly occurs where I
put **ERROR TRAP**:

Class Userconnection part..
' Overload the New operator to set up a read thread.
Public Sub New(ByVal client As TcpClient)
Me.MainClient = client

' This starts the asynchronous read thread. The data will be
saved into
' readBuffer.
Me.MainClient.G etStream.BeginR ead(readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
' Me.client.Recei veTimeout = 1000
End Sub

Private MainClient As TcpClient

Public Event LineReceived(By Val sender As UserConnection, ByVal
Data As String)
' This is the callback function for TcpClient.GetSt ream.Begin. It
begins an
' asynchronous read from a stream.
Private Sub StreamReceiver( ByVal ar As IAsyncResult)
Dim BytesRead As Integer

Try
' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
BytesRead = MainClient.GetS tream.EndRead(a r)
End SyncLock

If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

' Ensure that no other threads try to use the stream at
the same time.
SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
**ERROR TRAP** MainClient.GetS tream.BeginRead (readBuffer, 0,
READ_BUFFER_SIZ E, AddressOf StreamReceiver, Nothing)
End SyncLock
Catch SocketError As SocketException
MsgBox(SocketEr ror.ToString)
End Try
End Sub
If BytesRead > 0 Then
streamRead.Writ e(readBuffer, 0, BytesRead)
If Network.CheckFo rTerminator(str eamRead.ToArray ()) =
True Then
ProcessCommand( streamRead)
End If
End If

SyncLock MainClient.GetS tream
' Start a new asynchronous read into readBuffer.
MainClient.GetS tream.BeginRead (readBuffer, 0, READ_BUFFER_SIZ E,
AddressOf StreamReceiver, Nothing)
End SyncLock
End Sub

' Process the command that was received from the client.
Private Sub ProcessCommand( ByVal streamRead As MemoryStream)
Dim strMessage As String

Try
' remove message terminator
streamRead.SetL ength((streamRe ad.Length -
Network.Termina tor.Length))

' get the command data
streamRead.Posi tion = 0
Dim data As Byte() = streamRead.ToAr ray()

' Convert the byte array the message was saved into, minus
one for the
' Chr(13).
strMessage = System.Text.Enc oding.ASCII.Get String(data)
RaiseEvent LineReceived(Me , strMessage)
'Maak streamreader leeg
streamRead.SetL ength(0)

Catch ex As Exception
MsgBox(ex.ToStr ing)
End Try
End Sub

MainForm part..

Private Sub DoListen()
Try
' Listen for new connections.
listener = New TcpListener(Sys tem.Net.IPAddre ss.Any,
PORT_NUM)
listener.Start( )
Do
' Create a new user connection using TcpClient
returned by
' TcpListener.Acc eptTcpClient()
Dim MFclient As New
UserConnection( listener.Accept TcpClient)

' Create an event handler to allow the UserConnection
to communicate
' with the window.
AddHandler MFclient.LineRe ceived, AddressOf
OnLineReceived
'UpdateStatus(" New connection found: waiting for
log-in")
Loop Until False
Catch ex As SocketException
MsgBox(ex.ToStr ing)
End Try
End Sub
Private Sub MainForm_Load(B yVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
listenerThread = New Threading.Threa d(AddressOf DoListen)
listenerThread. Start()
UpdateStatus("L istener started")
End Sub
Thanks a million in advance!

Mike