… oObjConn := oSockSrv:Accept( 0 ) If oObjConn = NIL nErrCode := oSockSrv:GetError(@cErrMsg) conout(time() + " " + "[ERR] ACCEPT FAILED ("+AllTrim(str(nErrCode))+":"+cErrMsg+")") loop Endif // Cria identificador unico para esta conexão // e salva objeto da conexão na memória cTCPIdx := "TCP_" + strzero(++nSeq, 6) SetSslObj(cTCPIdx, oObjConn) // Ativa um ipc job dedicado, passando para ele o nome do // identificador unico da conexão recebida ret = IpcGo("MYJOBIPC", cTCPIdx) ... |