By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,364 Members | 1,653 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,364 IT Pros & Developers. It's quick & easy.

Maintain Persistant Socket Connection

P: n/a
I have programmed a simple synchronous socket server app in to
communicate and receive messages from our data integration tool that works
well with all our other systems. The program I built works with as many
messages as I can send accross as long as they are sent one after another
(queued). However once any length of time passes, the server app doesn't
receive any data as if the listener doesnt have the connection any more. I
have to reset the sending system, then it can receive data again. Is there
a way to maintain a persistant connection on a socket connection?

Any help would be appriciated.

Below is the code, most of which comes from the MSDN example.

Dim bytes() As Byte = New [Byte](1024) {}

' Establish the local endpoint for the socket.
' Dns.GetHostName returns the name of the
' host running the application.
Dim ipHostInfo As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(1)
Dim localEndPoint As New IPEndPoint(ipAddress, 11000)

' Create a TCP/IP socket.
Dim listener As New Socket(AddressFamily.InterNetwork, _
SocketType.Stream, ProtocolType.Tcp)
'I added this but it didnt work.
SocketOptionName.KeepAlive, 1)

' Bind the socket to the local endpoint and
' listen for incoming connections.
' Start listening for connections.
While True
Console.WriteLine("Waiting for a connection...")
' Program is suspended while waiting for an incoming connection.
Dim handler As Socket = listener.Accept()
data = Nothing
' An incoming connection needs to be processed.
While True
bytes = New Byte(1024) {}
Dim bytesRec As Integer = handler.Receive(bytes)
data += Encoding.ASCII.GetString(bytes, 0, bytesRec)
If Not data Is DBNull.Value Then
'This does some work on the message checking for the end
If HL7Toolbox.StringToHex(data).IndexOf("1C0D") -1
Exit While
End If
End If
End While
' Show the data on the console.
Console.WriteLine("Text received : {0}", data)
' Echo the data back to the client.
Dim msg As Byte() = Encoding.ASCII.GetBytes(buildAck(data))


Nov 7 '08 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.