TCP Client Problem

[dromenox]

I want to make a client-server system for use in an application, but is not working properly. When the server is not running, the client displays the tooltip with error message, but when the server is running nothing happens! Neither the tooltip displaying success message appears! 

 

Note .: I'm using this UDF: '?do=embed' frameborder='0' data-embedContent>>

 

Client:

 

#include "TCP.au3"

Global $hClient = _TCP_Client_Create(@IPAddress1, 50000)
global $Connected = False

_TCP_RegisterEvent($hClient, $TCP_RECEIVE, "Recv")
_TCP_RegisterEvent($hClient, $TCP_CONNECT, "Connected")
_TCP_RegisterEvent($hClient, $TCP_DISCONNECT, "Disconnected")

While 1
WEnd

Func Recv($hSocket, $sReceived, $iError)
EndFunc

Func Connected($hSocket, $iError)
   If $iError Then
      ToolTip("CLIENT: Cannot connect", 10, 10)
   Else
      ToolTip("CLIENT: Connected", 10, 10)
      $Connected = True
   EndIf
EndFunc

Func Disconnected($hSocket, $iError)
   ToolTip("CLIENT: Disconnected", 10, 10)
   $Connected = False
EndFunc

Server:

#include "TCP.au3"

Global $hServer = _TCP_Server_Create(50000)

_TCP_RegisterEvent($hServer, $TCP_NEWCLIENT, "NewClient")
_TCP_RegisterEvent($hServer, $TCP_DISCONNECT, "Disconnected")
_TCP_RegisterEvent($hServer, $TCP_RECEIVE, "Recv")

Func NewClient($hSocket, $iError)
   ToolTip("SERVER: New Client", 100, 100)
EndFunc

Func Disconnected($hSocket, $iError)
   ToolTip("SERVER: Disconnected Client", 100, 100)
EndFunc

Func Recv($hSocket, $sReceived, $iError)
   ToolTip("SERVER: Received: " & $sReceived, 100, 100)
EndFunc

While 1
WEnd

Edited August 11, 2014 by dromenox