winsock server hang

[ekosuhanto]

any body to help me to handle the winsock server hang when the server was sending and receiving after running for 1 - 2 hours. I am using VB (not VB.net).
The server will send the data from Comm port every second to many client.
I put delay 1 second in the client to send data ack after the client received the data from the server.

Any methode to handle this problem?Asyncro unous socket?

[sashi]

any body to help me to handle the winsock server hang when the server was sending and receiving after running for 1 - 2 hours. I am using VB (not VB.net).
The server will send the data from Comm port every second to many client.
I put delay 1 second in the client to send data ack after the client received the data from the server.

Any methode to handle this problem?Asyncro unous socket?

Hi there,

How much of your server resources is being taken? What is the top processor usage measured? Check this details, good luck & take care.

[ekosuhanto]

Hi there,

How much of your server resources is being taken? What is the top processor usage measured? Check this details, good luck & take care.

Hi sashi,

I checked the cpu usage is only 15%.
The CPU is not hang, but My application is using TCP Socket server is hang when connect to client for 1-2 hours.

[sashi]

Hi sashi,

I checked the cpu usage is only 15%.
The CPU is not hang, but My application is using TCP Socket server is hang when connect to client for 1-2 hours.

Hi there,

Can you please post your code segment on your next post, it's alot more easier to debug you code in that way. Good luck & Take care.

[ekosuhanto]

here is my tcp server code

Private Sub Form_Load()

Me.Height = 7515
Me.Width = 11700
Me.Top = (Screen.Height - (Me.Height + EventMsg.Height )) / 2
Me.Left = (Screen.Width - Me.Width) / 2

'-----tcpServer listen
tcpServer(0).Lo calPort = 1001
tcpServer(0).Li sten

End Sub

Private Sub tcpServer_Conne ctionRequest(In dex As Integer, ByVal requestID As Long)

Dim sServerMsg As String

If Index = 0 Then
sRequestID = requestID
itcpServer = itcpServer + 1
Load tcpServer(itcpS erver)
tcpServer(itcpS erver).LocalPor t = 1001
tcpServer(itcpS erver).Accept requestID
End If

End Sub

rivate Sub tcpServer_DataA rrival(Index As Integer, ByVal bytesTotal As Long)

Dim omca_msg As String

Dim acu_msg As String

Dim track_msg As String

Dim lna_msg As String

Dim uc1_msg As String
Dim uc2_msg As String
Dim uc3_msg As String
Dim ucc_msg As String

Dim dc1_msg As String
Dim dc2_msg As String
Dim dc3_msg As String
Dim dcc_msg As String

Dim hpa1_msg As String
Dim hpa2_msg As String
Dim hpac_msg As String

Dim i As Long
Dim rec As String
Dim strtime As String


On Error Resume Next
Call tcpServer(Index ).GetData(rec)


strtime = Format(Time, "HH:MM:SS")

acu_msg = modAcu.SendACUs tatus
track_msg = TrackingReceive r.SendTracRcvst atus
lna_msg = ModLnaContr.Sen dLNAstatus
uc1_msg = "uc1_msg"
uc2_msg = "uc2_msg"
uc3_msg = "uc3_msg"
ucc_msg = "ucc_msg"
dc1_msg = "dc1_msg"
dc2_msg = "dc2_msg"
dc3_msg = "dc3_msg"
dcc_msg = "dcc_msg"
hpa1_msg = "hpa1_msg"
hpa2_msg = "hpa2_msg"
hpac_msg = "hpac_msg"

omca_msg = acu_msg & " " & track_msg & " " & lna_msg & " " & uc1_msg & " " & uc2_msg & " " & uc3_msg & " " & ucc_msg & " " & dc1_msg & " " & dc2_msg & " " & dc3_msg & " " & dcc_msg & " " & hpa1_msg & " " & hpa2_msg & " " & hpac_msg

tcpServer(Index ).SendData omca_msg

End Sub


thank you for your help

[sashi]

here is my tcp server code

Private Sub Form_Load()

Me.Height = 7515
Me.Width = 11700
Me.Top = (Screen.Height - (Me.Height + EventMsg.Height )) / 2
Me.Left = (Screen.Width - Me.Width) / 2

'-----tcpServer listen
tcpServer(0).Lo calPort = 1001
tcpServer(0).Li sten

End Sub

Private Sub tcpServer_Conne ctionRequest(In dex As Integer, ByVal requestID As Long)

Dim sServerMsg As String

If Index = 0 Then
sRequestID = requestID
itcpServer = itcpServer + 1
Load tcpServer(itcpS erver)
tcpServer(itcpS erver).LocalPor t = 1001
tcpServer(itcpS erver).Accept requestID
End If

End Sub

rivate Sub tcpServer_DataA rrival(Index As Integer, ByVal bytesTotal As Long)

Dim omca_msg As String

Dim acu_msg As String

Dim track_msg As String

Dim lna_msg As String

Dim uc1_msg As String
Dim uc2_msg As String
Dim uc3_msg As String
Dim ucc_msg As String

Dim dc1_msg As String
Dim dc2_msg As String
Dim dc3_msg As String
Dim dcc_msg As String

Dim hpa1_msg As String
Dim hpa2_msg As String
Dim hpac_msg As String

Dim i As Long
Dim rec As String
Dim strtime As String


On Error Resume Next
Call tcpServer(Index ).GetData(rec)


strtime = Format(Time, "HH:MM:SS")

acu_msg = modAcu.SendACUs tatus
track_msg = TrackingReceive r.SendTracRcvst atus
lna_msg = ModLnaContr.Sen dLNAstatus
uc1_msg = "uc1_msg"
uc2_msg = "uc2_msg"
uc3_msg = "uc3_msg"
ucc_msg = "ucc_msg"
dc1_msg = "dc1_msg"
dc2_msg = "dc2_msg"
dc3_msg = "dc3_msg"
dcc_msg = "dcc_msg"
hpa1_msg = "hpa1_msg"
hpa2_msg = "hpa2_msg"
hpac_msg = "hpac_msg"

omca_msg = acu_msg & " " & track_msg & " " & lna_msg & " " & uc1_msg & " " & uc2_msg & " " & uc3_msg & " " & ucc_msg & " " & dc1_msg & " " & dc2_msg & " " & dc3_msg & " " & dcc_msg & " " & hpa1_msg & " " & hpa2_msg & " " & hpac_msg

tcpServer(Index ).SendData omca_msg

End Sub


thank you for your help

Hi there,

Your code seems to be fine, another way to troubleshoot is to change the listening port to a higher port, try using 2xxxx onwards, hope it helps. Good luck & Take care.