DEPRECADO

O método ::Ok() não deve ser usado, pois foi substituído pela propriedade ::lOk.


O método ::Ok() retorna Verdadeiro (.T.) caso a operação mais recente tenha sido bem sucedida, ou .F. em caso contrário.

Sintaxe

lResult := oRedisClient::Ok()

Parâmetros

O método ::Ok() não usa nenhum parâmetro.

Retorno

NomeTipoDescriçãoObservações
lResultlógicoVerdadeiro (.T.) a última operação do objeto tRedisClient tenha sido verdadeira; .F. em caso contrário.



Observações

  • O método ::Ok() não deve ser usado, pois foi substituído pela propriedade ::lOk.
  • O método ::Ok() será eliminado em futuras versões da classe tRedisConnect.

Exemplos

Exemplo 1 – Impressão do resultado de ::Ok() depois de tentativa de conexão 

#include 'protheus.ch'
  
// Setup Redis
Static cRedisHost := "localhost"
Static nRedisPort := 6379
Static cRedisAuth := ""
  
User Function tstOk()
 Local cMsg := ''
  
 oRedisClient := tRedisClient():New()
 ConOut( "Result of ::ok() after ::New(): " + cValToChar(oRedisClient:Ok()) )
  
 oRedisClient:Connect(cRedisHost, nRedisPort, cRedisAuth)
 ConOut("Result of ::ok() after ::Connect(): " + cValToChar(oRedisClient:Ok()) )
  
 If oRedisClient:lConnected
   ConOut("Successful connection.")
  
   oRedisClient:Disconnect()
   ConOut("The client disconnected from the server.")
   ConOut("Result of ::ok() after ::Disconnect(): " + cValToChar(oRedisClient:Ok()) )
   Return .T.
 EndIf
  
 cMsg := "Could not connect to the server " + cRedisHost + ", at port "
 cMsg += cValToChar(nRedisPort) + ", with authentication '" + cRedisAuth + "'"
 ConOut(cMsg)
  
Return .F.

Este programa mostra o uso do método ::Ok() para avaliar a correção de diversas chamadas a métodos de um objeto tRedisClient.


Veja também