Puts a socket into server mode to listen for incoming connections on a given port. If a connection is made the socket is opened for reading and writing using the regular Send/Receive etc. methods.
This method returns .T. if a connection is made, as soon as somebody connects. If no connection occurs and the timeout is reached the method returns .F. Typically you'll run the listener in a loop or off a timer to check the port.
.T. or .F.
The TCP/IP port to listen to.
Timeout in seconds. Default: 10 seconds
*** Very simple HTTP listener DO WHILE .t. oSock = CREATEOBJECT("wwSOcket") oSock.lStripNulls = .T. *** Exit on Enter key lnKey = INKEY(.01,"HM") IF lnKey = 13 EXIT ENDIF *** Listen on Port 88 for 5 seconds IF !oSock.Listen(88,5) ? oSock.cErrorMsg && Socket timeout LOOP ENDIF ? oSock.Receive() && HTTP Headers for this example ? oSock.Send("Hello World with Sockets!") oSock = .F. && close/clear the socket ENDDO
Client code: oHTTP = CREATE("wwHTTP") ? oHTTP.HTTPGet("http://localhost:88/") && Hello world with sockets *** or simply browse to http://localhost:88/ with your browser
See also:Class wwsocket
Comment or report problem with topic