TCPListener.soc ket closes on send

[bertymaes]

Hi,

I'm using VB in VS2005 on a WXP SP2 machine to build a windows service
that listens to a port to accept messages. This solution works fine
when a connecting client sends a message, waits for an ACK and
disconnects. We now want the socket to remain OPEN after sending the
ACK, which it used to do on beta2 and older machines.

Does anyone know which property to set or another solution to keep the
socket open after the send.

Any ideas?

Bert

Here's the code:

Public Sub StartGateway()
CommServerListe ner = New
TcpListener(IPA ddress.Parse(Ho stIpAddress), CommServerUnsol licitedPort)
CommServerListe ner.Start()
Timer2 = New System.Timers.T imer(1000)
Timer2.Enabled = True
End Sub

Public Sub Timer2_Elapsed( ByVal sender As Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer2.Elapsed
If h.CommServerLis tener.Pending() Then
Timer2.Enabled = False
ProcessCloverle afRequest()
Timer2.Enabled = True
End If
End Sub

Public Sub ProcessCloverle afRequest()
Dim Buffer As Byte() = New Byte(TcpBufferS ize) {}
Dim NumberOfBytes As Integer
Dim Temp As String
Dim msg As String
Dim iStart, iEnd As Integer
If ListenerSocket Is Nothing Then
ListenerSocket = CommServerListe ner.AcceptSocke t
End If
Temp = String.Empty
If ListenerSocket. Available > 0 Then
ReDim Buffer(Listener Socket.Availabl e) 'JL300805: take all
messages available
NumberOfBytes = CInt(ListenerSo cket.Available)
ListenerSocket. Receive(Buffer, Buffer.Length,
SocketFlags.Non e)
If NumberOfBytes > 0 Then
'....do stuff
'when finished echo message
ListenerSocket. Send(Buffer, 0, Buffer.Length,
SocketFlags.non e)
'Here one would expect that this instruction doesn't close
the connection
'anyway the connection should stay open
End Sub