Need help using tcpClient and tcpListner

[hamil]

I am having trouble using the TcpListener and TcpClient classes.

At the end of this post is server code that runs, and a class whose purpose
is described below.

I need to know when the client closes the connection so I can exit my
listener code. Here is what I have tried.

First I asked MSDN and they said..

TcpClient creates a Socket to send and receive data over a network. Classes
deriving from TcpClient can use this property to get or set this Socket. Use
the underlying Socket returned from Client if you require access beyond that
which TcpClient provides. You can also use Client to set the underlying
Socket to an existing Socket. This might be useful if you want to take
advantage of the simplicity of TcpClient using a pre-existing Socket.

So, I created a class called MyTcpClient, below, that inherited from
TcpClient. I got this code from the MSDN library. Then I changed all
occurances of TcpClient to MyTcpClient in my code. By doing this, I thought I
could then query the property 'IsConnected'.

The idea here is to be able to get at the 'protected connected' property of
the underlying socket.

However, when I try this, the line of code.

tcpCli = tcpList.AcceptT cpClient()

gives this error during the pre compile phase.
C:\Documents and Settings\hcoope r.JOE\My Documents\Visua l Studio
Projects\System NetDemo\TCPList enerForm.vb(140 ): Option Strict On disallows
implicit conversions from 'System.Net.Soc kets.TcpClient' to
'SystemNetDemo. MyTcpClient'.
so I then insert option strict off at the top of my class. The precompiled
error goes away but when it runs, I get the following error.
An unhandled exception of type 'System.Invalid CastException' occured in
SystemNetDemo.e xe
Additional information: Specified cast is not valid.
Any help here???

Hamil.

*************** ********* MyTcpClient class

Imports System.Net.Sock ets

Public Class MyTcpClient

Inherits TcpClient

Public IsConnected As Boolean

Public Sub New()
End Sub 'New

Public Sub UsingProtectedM ethods()

'Uses the protected 'Active' property belonging to the TcpClient
base class
'to determine if a connection is established.
If Me.Active Then
' Calls the protected 'Client' property belonging to the
TcpClient base class.
Dim s As Socket = Me.Client
'Uses the Socket returned by Client to set an option that is not
available using TcpClient.
IsConnected = s.Connected
End If
'To free all resources, calls protected virtual method Dispose
belonging to the TcpClient base class.
Me.Dispose(True )
GC.SuppressFina lize(Me)
End Sub 'UsingProtected Methods

End Class

************ This code runs ........

Imports System.IO
Imports System.net
Imports System.Net.Sock ets
Imports System.Threadin g

Public Class TCPListenerForm
Inherits System.Windows. Forms.Form

Dim listening As Boolean
Dim localhostAddres s As IPAddress
Dim port As Integer
Dim tcpList As TcpListener
Dim tcpCli As TcpClient
Dim ns As NetworkStream
Dim sr As StreamReader
Dim receivedData As String
Dim returnedData As String
Dim sw As StreamWriter

Private Sub btnStart_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnStart.Click
btnStart.Enable d = False
btnStop.Enabled = True
Dim tr As New Thread(AddressO f ListenToClients )
tr.Start()
End Sub

Sub ListenToClients ()
localhostAddres s = IPAddress.Loopb ack
port = CInt(txtPort.Te xt)
tcpList = New TcpListener(loc alhostAddress, port)
tcpList.Start()
listening = True
Do While listening
Do While tcpList.Pending = False And listening = True
Thread.Sleep(10 )
Loop
If Not listening Then Exit Do
Dim tcpCli As New TcpClient
tcpCli = tcpList.AcceptT cpClient()
ns = tcpCli.GetStrea m
sr = New StreamReader(ns )
sw = New StreamWriter(ns )
tbStatus.Text = "connected"
Do While listening = True
Thread.Sleep(10 )
receivedData = sr.ReadLine
If receivedData <> Nothing Then
returnedData = receivedData.To Upper
sw.WriteLine(re turnedData)
sw.Flush()
End If
Loop
sr.Close()
sw.Close()
ns.Close()
tcpCli.Close()
tbStatus.Text = "closed"
Loop
tcpList.Stop()
End Sub

Private Sub btnStop_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnStop.Click
btnStart.Enable d = True
btnStop.Enabled = False
listening = False
End Sub
End Class

[hamil]

I am withdrawing this question.
As I have read, even the connect property of the socket doesn't give current
status.
"hamil" wrote:

I am having trouble using the TcpListener and TcpClient classes.

At the end of this post is server code that runs, and a class whose purpose
is described below.

I need to know when the client closes the connection so I can exit my
listener code. Here is what I have tried.

First I asked MSDN and they said..

TcpClient creates a Socket to send and receive data over a network. Classes
deriving from TcpClient can use this property to get or set this Socket. Use
the underlying Socket returned from Client if you require access beyond that
which TcpClient provides. You can also use Client to set the underlying
Socket to an existing Socket. This might be useful if you want to take
advantage of the simplicity of TcpClient using a pre-existing Socket.

So, I created a class called MyTcpClient, below, that inherited from
TcpClient. I got this code from the MSDN library. Then I changed all
occurances of TcpClient to MyTcpClient in my code. By doing this, I thought I
could then query the property 'IsConnected'.

The idea here is to be able to get at the 'protected connected' property of
the underlying socket.

However, when I try this, the line of code.

tcpCli = tcpList.AcceptT cpClient()

gives this error during the pre compile phase.
C:\Documents and Settings\hcoope r.JOE\My Documents\Visua l Studio
Projects\System NetDemo\TCPList enerForm.vb(140 ): Option Strict On disallows
implicit conversions from 'System.Net.Soc kets.TcpClient' to
'SystemNetDemo. MyTcpClient'.
so I then insert option strict off at the top of my class. The precompiled
error goes away but when it runs, I get the following error.
An unhandled exception of type 'System.Invalid CastException' occured in
SystemNetDemo.e xe
Additional information: Specified cast is not valid.
Any help here???

Hamil.

*************** ********* MyTcpClient class

Imports System.Net.Sock ets

Public Class MyTcpClient

Inherits TcpClient

Public IsConnected As Boolean

Public Sub New()
End Sub 'New

Public Sub UsingProtectedM ethods()

'Uses the protected 'Active' property belonging to the TcpClient
base class
'to determine if a connection is established.
If Me.Active Then
' Calls the protected 'Client' property belonging to the
TcpClient base class.
Dim s As Socket = Me.Client
'Uses the Socket returned by Client to set an option that is not
available using TcpClient.
IsConnected = s.Connected
End If
'To free all resources, calls protected virtual method Dispose
belonging to the TcpClient base class.
Me.Dispose(True )
GC.SuppressFina lize(Me)
End Sub 'UsingProtected Methods

End Class

************ This code runs ........

Imports System.IO
Imports System.net
Imports System.Net.Sock ets
Imports System.Threadin g

Public Class TCPListenerForm
Inherits System.Windows. Forms.Form

Dim listening As Boolean
Dim localhostAddres s As IPAddress
Dim port As Integer
Dim tcpList As TcpListener
Dim tcpCli As TcpClient
Dim ns As NetworkStream
Dim sr As StreamReader
Dim receivedData As String
Dim returnedData As String
Dim sw As StreamWriter

Private Sub btnStart_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnStart.Click
btnStart.Enable d = False
btnStop.Enabled = True
Dim tr As New Thread(AddressO f ListenToClients )
tr.Start()
End Sub

Sub ListenToClients ()
localhostAddres s = IPAddress.Loopb ack
port = CInt(txtPort.Te xt)
tcpList = New TcpListener(loc alhostAddress, port)
tcpList.Start()
listening = True
Do While listening
Do While tcpList.Pending = False And listening = True
Thread.Sleep(10 )
Loop
If Not listening Then Exit Do
Dim tcpCli As New TcpClient
tcpCli = tcpList.AcceptT cpClient()
ns = tcpCli.GetStrea m
sr = New StreamReader(ns )
sw = New StreamWriter(ns )
tbStatus.Text = "connected"
Do While listening = True
Thread.Sleep(10 )
receivedData = sr.ReadLine
If receivedData <> Nothing Then
returnedData = receivedData.To Upper
sw.WriteLine(re turnedData)
sw.Flush()
End If
Loop
sr.Close()
sw.Close()
ns.Close()
tcpCli.Close()
tbStatus.Text = "closed"
Loop
tcpList.Stop()
End Sub

Private Sub btnStop_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnStop.Click
btnStart.Enable d = True
btnStop.Enabled = False
listening = False
End Sub
End Class