Conecta um cliente ao servidor Redis.

Sintaxe

oRedisAfter := oRedisClient:Connect(cServer, nPort [, cAuth ])

Parâmetros

NomeTipoDescriçãoObrigatórioReferênciaDefaultObservações
cServer
Caracter

Endereço do servidor Redis na rede

SimNão

nPortInteiroPorta de rede do servidorSimNão

cParameter
CaracterInformações para autenticação no servicorNãoNão""Se fornecido, deve ser o terceiro parâmetro

Retorno

NomeTipoDescriçãoObservações
oRedisAfter
objeto tRedisClientCópia do objeto sobre o qual foi feita a chamada de ::Connect, já afetado pela tentativa de conexão.*

* Isto permite acoplar outros métodos e propriedades à chamada de ::Connect()
   Por exemplo,
    oRedisClient:Connect(cServer, nPort, cAuth):lConnected

   testará se a conexão foi bem sucedida, sem a necessidade de uma consulta à parte a ::lConnected sobre o objeto oRedisClient.

Observações

  • O método ::Connect() realiza a conexão a um servidor Redis, de um objeto que apenas foi instanciado através de ::New()


  • Os parâmetros servidor, porta e autenticação permitem a conexão com um servidor remoto (em qualquer ponto da Internet), até mesmo com acesso seguro (ou autenticado) a ele.


  • A propriedade ::lConnected permite detectar se a conexão foi bem sucedida.


  • Depois de uma conexão bem sucedida, deve ser feita a desconexão, antes do final do programa, para informar ao servidor Redis que os recursos usados para a conexão não são mais necessários.

Exemplos

Exemplo 1 - Informação de todos parâmetros  

#include 'protheus.ch'
 
// Setup Redis
Static cRedisHost := "localhost"
Static nRedisPort := 6379
Static cRedisAuth := ""
 
User Function redTst()
  Local cMsg := ''

  oRedisCli := tRedisClient():New()
  oRedisCli:Connect(cRedisHost, nRedisPort, cRedisAuth)

  If oRedisCli:lConnected
    ConOut("Successful connection.")

    oRdClient:Disconnect()
    ConOut("The client disconnected from the server.")
    Return .T.
  EndIf

  cMsg := "Could not connect to the server " + cRedisHost + ", at port " 
  cMsg += cValToChar(nRedisPort) + ", with authentication '" + cRedisAuth + "'" 
  ConOut(cMsg)

Return .F.

Exemplo 2 - Omissão de cAuth terceiro parâmetro   

#include 'protheus.ch'
  
#define STD_REDIS_PORT 6379
#define DEFAULT_REDIS_AUTH ""
 
// Setup Redis
Static cRedisHost := "localhost"
  
User Function WoAuth()
  Local cMsg := ''
 
  // Creation of client object
  oRedisCli := tRedisClient():New()
 
  // Connection to the server, using default port 6379
  oRedisCli:Connect(cRedisHost, STD_REDIS_PORT)
 
  If oRedisCli:lConnected
    cMsg := "Successful connection to the server " + cRedisHost + ", at port "
    cMsg += cValToChar(STD_REDIS_PORT) + ", with authentication '" + DEFAULT_REDIS_AUTH + "'"
    ConOut(cMsg)
 
    oRedisCli:Disconnect()
    ConOut("The client disconnected from the server.")
    Return .T.
  EndIf
 
  cMsg := "Could not connect to the server " + cRedisHost + ", at port "
  cMsg += cValToChar(STD_REDIS_PORT) + ", with authentication '" + DEFAULT_REDIS_AUTH + "'"
  ConOut(cMsg)
 
Return .F.




Veja também