server won't accept client?!?

[jorge]

Ok i have a pice of code, but when a client connect the server wont do anyhting. is there somthing wrong with my code?

Thanx in advance
[VB]
Sub server_wait()
Do While server_process.ThreadState = Threading.ThreadState.Running
If client Is server_listener.AcceptTcpClient Then
client = server_listener.AcceptTcpClient()
data = Nothing
Dim stream As NetworkStream = client.GetStream()
Dim i As Int32
i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)
Dim sRetdate As String
data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
MsgBox(data)
Exit While
End While
End If
Loop
End Sub
[/VB]

 

[Robby]

Check the server_process.ThreadState before going into the loop and see what it returns.

 

[jorge]

Ok it give 0, so it is running.

 

[Robby]

I dont have .NET right now but are you sure that 0 (zero) is Running

 

[jorge]

yes,
I resteste it afterward with:

if server_process.ThreadState = Threading.ThreadState.Running the
msgbox("running")
end if[/VB]
and i get running.

 

[Robby]

Does your line .... MsgBox(data) ever get raised?


Also, if you place a MessageBox at the last line of your sub will it ever trigger? (maybe replace the "Exit While" with "Exit Sub" for this test)

 

[jorge]

No, my msgbox(data) never show, if i puase my programm the last loction is: If client Is server_listener.AcceptTcpClient Then
and when i press run agen an pause a few second later im still there in stead of skipping and retrying.

 

[AndreRyan]

There seems to be a problem with this, youre accepting a client then trying to accept it again once its been removed from the Pending Que

Sub server_wait()
        Dim i As Int32, ReadingBytes(0) As Byte
        Do While server_process.ThreadState = Threading.ThreadState.Running
            If server_listener.Pending Then Accept removes the client from the Que
                client = server_listener.AcceptTcpClient()
                data = Nothing
                Dim stream As NetworkStream = client.GetStream()
                Do While (stream.DataAvaliable)
                    ReadingBytes(ReadingBytes.GetUpperBound(0)) = Convert.ToByte(stream.ReadByte()) Read next byte
                    Redim Preserve ReadingBytes(ReadingBytes.GetUpperBound(0) + 1) Enlarge Array for next entry
                Loop
                data = System.Text.Encoding.ASCII.GetString(ReadingBytes, 0, ReadingBytes.GetUpperBound(0) - 1)
                 MsgBox(data)
                 Redim ReadingBytes(0) Reset Array
            End If
        Loop
    End Sub

 

[jorge]

Thanx, it work like a charm

 

[jorge]

Ok, i have one more question
Im running the server in a thread, so the gui can sta active. Its a trayicon with start/stop and exit in it contextmenu, but i when i click on any of the menu item it does nothing, i need to click on the trayicon a 2nd time befor it executes it, is that normal? is there a fix?
Ive attached the code.
//edit: sry forgot to remove the exe file, so i had to reupload