FiveTech Software tech support forums

Code: Select all

  nEchoPort                  := ::nPortNo+::nPortNo / 100

  Do While .t.
    ::oEchoSocket            := tsocket():New(nEchoPort)

    If ::oEchoSocket:lStartOK
      Exit
    Else
      nEchoPort++
    Endif
  Enddo

  ::oEchoSocket:bAccept      := {| oSocket | ::EchoAccept(oSocket:nSocket)}

  If !::oEchoSocket:Listen()
    ::Error("Monitor Listening socket error " + NTRIM(wsagetlasterror()))
  Endif

return nil

METHOD Echoaccept(pnSocket) CLASS qReceive

  Local oSocket              := nil

  oSocket                    := tsocket():Accept(pnSocket)

  oSocket:bRead              := {| poSocket |::EchoRead(poSocket)}
  oSocket:bWrite             := {| poSocket |::EchoWrite(poSocket)}
  oSocket:bClose             := {| poSocket |::EchoClose(poSocket)}

  ::Error("Listener joined from "+oSocket:Clientip(), False)

  aadd(::aaEchoSocket, {oSocket, 0, ,""})   // For flags and data

  oSocket:SendData("Welcome listener from "+oSocket:Clientip()+CRLF)
Return nil