FiveTech Software tech support forums

Posted: **Fri Oct 20, 2006 6:49 pm**

Hi all.

Questions about WinSock TCP/IP.

We are Server, others are Clients.

Clients can send message to server.

How can server send a message to specific client ?

How does server send a message to client anytime ?

Thanks.

yunbg.

FWH USER.

Posted: **Sat Oct 21, 2006 6:36 pm**

Yunbg1;

I'm no expert but I'm currently doing it via a tsocket connection. Communication is both ways with a TCP/IP socket connection.

Reinaldo.

Posted: **Sat Oct 21, 2006 6:48 pm**

Yubg,

oClient:SendData( ... )

Posted: **Sun Oct 22, 2006 9:05 pm**

Hello Antonio.

Thank you.

..

Posted: **Mon Oct 23, 2006 1:53 am**

Hello Mr. Antonio

Thank you for answer my questions.

1. Ex.1 code is available.
2. Ex.2 code is not available.

Ex.1 (oClient:bWrite) is working.
oClient:bWrite := { | oClient | OnConnect( oClient ) } <- Here

Ex.2 (oClient:bConnect) is not working. Why it does not work ?
oClient:bConnect := { | oClient | OnConnect( oClient ) }
Client does not have METHOD of bConnect ?

-------------------------------------------------------------------------------------
1. Ex.1 code is available.
-------------------------------------------------------------------------------------

EX 1]

Code: Select all

oSocket := TSocket():New( 8000 ) 
oSocket:cLogFile := "c:\tcpip.txt"
oSocket:lDebug := .t.

oSocket:bAccept := { | oSocket | ;
               oClient := TSocket():Accept( oSocket:nSocket ),;
               oClient:Cargo := ST_COMMAND,;
               oClient:bRead := { | oSocket | OnRead1( oSocket ) },;
               oClient:bWrite := { | oClient | OnConnect( oClient ) },; <- Here
               oClient:bClose := { | oSocket | OnClose1( oSocket ) } }

oSocket:Listen()

//-----------------------------------------------------------------------------------
FUNC OnConnect(oClient)
oField[01]:Append( time()+ str(oClient:nSocket,5) + " : Client Connect..." + CRLF, 1)
RETU NIL

[View 'C:\tcpip.txt' Code]

10/23/06 09:59:28: Accept Socket handle: 1892
10/23/06 09:59:28: Write Socket handle: 1860
10/23/06 09:59:28: Write Socket handle: 1860

-------------------------------------------------------------------------------------
2. Ex.2 code is not available.
-------------------------------------------------------------------------------------

EX 2]

Code: Select all

oSocket := TSocket():New( 8000 ) 
oSocket:cLogFile := "c:\tcpip.txt"
oSocket:lDebug := .t.

oSocket:bAccept := { | oSocket | ;
                       oClient := TSocket():Accept( oSocket:nSocket ),;
                       oClient:Cargo := ST_COMMAND,;
                       oClient:bRead := { | oSocket | OnRead1( oSocket ) },;
                       oClient:bConnect := { | oClient | OnConnect( oClient ) },; <- Here
                       oClient:bClose := { | oSocket | OnClose1( oSocket ) } }

oSocket:Listen()

//-----------------------------------------------------------------------------------
FUNC OnConnect(oClient)
oField[01]:Append( time()+ str(oClient:nSocket,5) + " : Client Connect..." + CRLF, 1)
RETU NIL

yunbg.