wwsocket::Listen
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.
o.Listen(lnPort,lnTimeOut)
.T. or .F.
Parameters
lnPort
The TCP/IP port to listen to.
lnTimeOut
Timeout in seconds. Default: 10 seconds
Example
** 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