La Web del Programador: Comunidad de Programadores
 
    Pregunta:  4087 - COMO UTILIZAR EL WINSOCK EN VPF6
Autor:  ANTONIO CUELLAR
Me gustaria utilizar el winsock para crear una rutina que me permita enviar y recibir mensages desde mi aplicacion ! He logrado hacerlo desde vb pero no logro hacer que se conecte, mucho menos me permite enviar las cadenas de texto !
Podrian ayudarme !?

  Respuesta:  Cecilia Colalongo
A mi me ocurrió algo parecido pero logré solucionarlo, primero debes crear un socket que esté escuchando:

o=CreateObject("MSWinsock.Winsock")
o.LocalHost="nombre-host"
o.LocalPort=5000
o.Listen()

En el evento ConnectionRequest, tenes que escribir el código para crear otro socket (tené en cuenta que el comportamiento de los sockets en VFP es asincrónico), para recibir la conexión, el primer socket siempre queda en listen.

::ConnectionRequest

PARAMETERS connectid

u=CreateObject("MSWinsock.Winsock")
u.Accept(connectid)

Si te interesa puedo mandarte los fuentes que tengo, los utilizo para el envío de mensajes entre terminales e incluso para monitoreo de usuarios.