Re: Socket Problem

Replies are listed 'Best First'.
Re^2: Socket Problem by phimtau123 (Novice) on Jun 21, 2007 at 15:49 UTC
my vb code `If sockETH.State = sckConnected Then txbETHsocket.Text = " CONNECTED" Else txbETHsocket.Text = " OFF" If sockETH.State <> sckClosed Then sockETH.Close sockETH.LocalPort = "5555" 'ETH socket port. ParC +on parent needs to know this port, so he can talk to it. sockETH.Listen 'Start listening. His +events now can be triggered. End If` [download] `sockETH.LocalPort = "5555" sockETH.Listen` [download] That to listen for the connection `Private Sub sockETH_ConnectionRequest(ByVal requestID As Long) sockETH.Close 'Must clo +se it first before connecting. sockETH.Accept requestID 'Accept t +he connection.` [download] and i have another sub in vb to process the data....I mean everything work it just that the socket connection behavior is erratic. work one time then break	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Socket Problem
by phimtau123 (Novice) on Jun 21, 2007 at 15:49 UTC

If sockETH.State = sckConnected Then
        txbETHsocket.Text = " CONNECTED"
    Else
        txbETHsocket.Text = " OFF"
        If sockETH.State <> sckClosed Then sockETH.Close
        sockETH.LocalPort = "5555"              'ETH socket port. ParC
+on parent needs to know this port, so he can talk to it.
        sockETH.Listen                          'Start listening. His 
+events now can be triggered.
    End If
[download]

sockETH.LocalPort = "5555"                  
sockETH.Listen
[download]

Private Sub sockETH_ConnectionRequest(ByVal requestID As Long)
    sockETH.Close                                            'Must clo
+se it first before connecting.
    sockETH.Accept requestID                                 'Accept t
+he connection.
[download]

[reply]
[d/l]
[select]