HOLA BUENOS DIAS A TODOS, MI DUDA ES COMO LE HAGO PARA QUE EL SOCKET SERVIDOR LE ENVIE UNA RESPUESTA AL CLIENTE,ES DECIR CUANDO SE HAYA TERMINADO DE EJECUTAR ALGUN PROCESO, O COMO HACER QUE EL SERVIDOR LE ENVIE DATOS DE REGRESO AL CLIENTE
EL CODIGO DEL CLIENTE ES EL SIGUINETE
oSocket = TSocket():New( 2000 )
oSocket:bRead = { | oSocket | MsgInfo( oSocket:GetData() ) }
// Never use a MsgInfo() here because it hangs Windows!!!
oSocket:bConnect = { || oPedcli:SetText( "Connected 128.50.1.179" ) }
oSocket:bClose = { || MsgInfo( "Server has closed!" ) }
oSocket:Connect( "128.50.1.179" ) // use the server IP address here
POR LA PARTE DEL SERVER
function Server()
oSocket = TSocket():New(2000)
oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;
oClient:Cargo := ST_COMMAND,;
oClient:bRead := { | oSocket | OnRead( oSocket,"F:\LOC\POS\CAMBIO\BASE0001.DBF")},;
oClient:bClose := { | oSocket | OnClose( oSocket ) } }
oSocket:Listen()
return nil
ESPERO Y ME PUEDAN AYUDAR Y MUCHAS GRACIAS
