SetSslObj(< cId >, < oObjConn >)

Nome

Tipo

Descrição

Obrigatório

Referência

cId

Caracter

Identificador único para o objeto da classe de conexão SSL

X

oObjConn

Objeto

Objeto da classe de conexão SSL (tSktSslConn)

X

    …

    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)

    ...