Sr. Antonio ajuda com SOCKET´s!

[MGA]

Sr. Antonio, por favor:

Tenho 3 clientes connectados ao Servidor usando os exemplos SOCKCLI.PRG e SOCKSERV.PRG de FWH/SAMPLES.

Preciso no servidor de tempos em tempos enviar uma mensagem para um determinado CLIENTE(IP), como fazer isso ?


Tentei isso, mais não funciona:

oSocket:Connect( cIP ) <-- IP do cliente
oSocket:SendData( cMsg ) <-- Mensagem a ser enviada ao cliente do servidor.

[Antonio Linares]

SOCKCLI.PRG y SOCKSERV.PRG funcionan bien.

Revisa el codigo fuente que usan y hazlo de la misma manera.

[MGA]

Sr. Antonio,


Desculpe, mais não estou conseguindo mandar algo do servidor para um cliente quando o cliente já estiver conectado.

[Antonio Linares]

SGS,

Por favor prueba en tu ordenador fwh\samples\sockserv.prg y sockcli.prg y verás que deben funcionar bien.

Tal vez tengas un cortafuego que impide la conexión exterior. Pero si te funciona en tu ordenador, entonces se trata de un problema de configuración de la seguridad y uso de puertos en tu red.

[MGA]

Sr. Antonio, é o que estou tentando dizer, o exemplo:

sockserv.prg
sockcli.prg

Funciona PERFEITAMENTE!!! (Neste exemplo consigo mandar algo do sockcli.prg(sendata 2º button) para o sockserv.prg) .

O que eu preciso é mandar do SOCKSERV.PRG para SOCKCLI.PRG!

SOCKSERV.PRG MSG("HELLO WORD") ==> SOCKCLI.PRG (E sockcli recebe a mensagem)

---

Sr. Antonio, não sei se o Sr me entendeu, eu quero mandar uma mensagem de origem (SOCKSERV) para o destino (SOCKCLI.PRG)!


Exemplo:

// Socket server connection sample

#include "FiveWin.ch"

#define ST_COMMAND 1
#define ST_SENDFILE 2
#define FILE_BLOCK 8000

static oWnd, oSocket, oClient

//------------------------------------------------------------------------//

function Main()

local oBar

DEFINE WINDOW oWnd TITLE "Server socket"

DEFINE BUTTONBAR oBar OF oWnd _3D

DEFINE BUTTON OF oBar ACTION Server() TOOLTIP "Listen"
DEFINE BUTTON OF oBar ACTION MSGCLI("Hello Word") TOOLTIP "msgforclient"

ACTIVATE WINDOW oWnd

return nil


//------------------------------------------------------------------------//

function msgcli(cMsg)

?? como mandar para determinado client???
oSocket:SendData( cMsg )

return nil

//------------------------------------------------------------------------//

function Server()

oSocket = TSocket():New( 2000 )

oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;
oClient:Cargo := ST_COMMAND,;
oClient:bRead := { | oSocket | OnRead( oSocket ) },;
oClient:bClose := { | oSocket | OnClose( oSocket ) } }

oSocket:Listen()

return nil

//------------------------------------------------------------------------//

function OnRead( oSocket )

local cData := oSocket:GetData()
local cToken

LogFile( "sockserv.txt", { Len( cData ), cData } )

do case
case oSocket:Cargo == ST_COMMAND
cToken = StrToken( cData, 1 )
do case
case cToken == "SENDFILE"
oSocket:Cargo = ST_SENDFILE
oSocket:hFile = fcreate( StrToken( cData, 2 ) )

case cToken == "MSG"
MsgInfo( SubStr( cData, 5 ) )
endcase

case oSocket:Cargo == ST_SENDFILE
fwrite( oSocket:hFile, cData, Len( cData ) )
LogFile( "sockserv.txt", { "writting..." } )

if Len( cData ) < FILE_BLOCK
// fclose( oSocket:hFile )
// MsgInfo( Len( cData ) )
// oSocket:Cargo = ST_COMMAND
endif
endcase

return nil

//------------------------------------------------------------------------//

function OnClose( oSocket )

MsgInfo( "Client has closed!" )

do case
case oSocket:Cargo == ST_SENDFILE
fclose( oSocket:hFile )
endcase

oSocket:End()

return nil

[Antonio Linares]

Creo que ahora entiendo lo que quieres decir

Quieres enviar datos desde el server al cliente, si ?

[MGA]

Simmmmmmmmmmmmmmmmmmmmmmmmmmmmm!

[MGA]

Simmmmmmmmmmmmmmmmmmmmmmmmmmmmm!

[MGA]

yesssssssssssssssssssssssssssssssss

[Antonio Linares]

SGS,

We are going to build an example.

Please be patient, thanks

[MGA]

[Antonio Linares]

SGS,

Solo tienes que añadir esta línea a sockserv.prg:

Code: Select all  Expand view  RUN

   DEFINE BUTTON OF oBar ACTION oClient:SendData( "Hello from server!" ) TOOLTIP "Talk to client"


[MGA]

Sr. Antonio, meus PARABÉNS!!!

Funciona perfeitamente!


Porem, como enviar a mensagem do servidor para um determinado cliente(IP)?


SERVIDOR

cliente1(192.168.1.101)
cliente2(192.168.1.102) <- quero mandar somente para este!
cliente3(192.168.1.103)

[Antonio Linares]

En el servidor sockserv.prg vas creando distintos clientes, asi tendrás oClient1, oClient2, oClient3, etc.

Luego solo has de hacer:
oClient2:SendData( "Hello from server!" )

[MGA]

OK...


Muito obrigado Maestro!!!