Conecta um cliente ao servidor Redis.
Sintaxe
oRedisAfter := oRedisClient:Connect([ cServer, ] [ nPort, ] [ cAuth ])
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência | Default | Observações |
---|
cServer | Caracter | Endereço do servidor Redis na rede | Não | Não | localhost |
|
nPort | Inteiro | Porta de rede do servidor | Não | Não | 6379 | Se fornecido, deve ser o segundo parâmetro |
cParameter | Caracter | Informações para autenticação no servicor | Não | Não | "" | Se fornecido, deve ser o terceiro parâmetro |
Retorno
Nome | Tipo | Descrição | Observações |
---|
oRedisAfter | objeto tRedisClient | Có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 adicional 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.
Exemplos
#include 'protheus.ch'
// Setup Redis
Static cRedisHost := "tec-clima"
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 nPort
, segundo parâmetro
#include 'protheus.ch'
#define DEFAULT_REDIS_PORT 6379
// Setup Redis
Static cRedisHost := "tec-clima"
Static cRedisAuth := ""
User Function redTst()
Local cMsg := ''
// Creation of client object
oRedisCli := tRedisClient():New()
// Connection to the server, using default port 6379
oRedisCli:Connect(cRedisHost, , 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(6379) + ", with authentication '" + cRedisAuth + "'"
ConOut(cMsg)
Return .F.
Exemplo 3 - Omissão de cServer
, primeiro parâmetro
#include 'protheus.ch'
#define DEFAULT_REDIS_SERVER 'localhost'
// Setup Redis
Static nRedisPort := 6379
Static cRedisAuth := ""
User Function redTst()
Local cMsg := ''
// Creation of client object
oRedisCli := tRedisClient():New()
// Connection to the server, using default server 'localhost'
oRedisCli:Connect(, 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 " + DEFAULT_REDIS_SERVER + ", at port "
cMsg += cValToChar(6379) + ", with authentication '" + cRedisAuth + "'"
ConOut(cMsg)
Return .F.