Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Dispara a execução de um comando a ser processado pelo servidor Redis.

Sintaxe

Bloco de código
oRedisClient:Exec(cCommand, @retVal)

Parâmetros

NomeTipoDescriçãoObrigatórioReferênciaObservações
cCommandCaractereComando Redis a ser executadoX

retValVariávelReceberá o resultado da execução
X

Observações

O método ::ExecuteExec() é muito semelhante em propósito ao método ::Append(): ambos disparam a execução de comandos no servidor Redis.

A maior diferença é que o programa que dispare ::ExecuteExec() terá que aguardar seu término e receberá dele o resultado do comando, ao passo que um programa que dispare ::Append() terá que chamar ::GetReply() para obter o resultado da execução do comando.

Isto torna ::Append() ideal para a programação assíncrona e concorrente, ao passo que ::Exec() fica limitado à programação sequencial e síncrona.

Pontos importantes a serem observados:

  • o resultado da função é passado para o parâmetro retVal, que deve por isso ser passado por referência. ::Exec() também altera o estado do objeto sobre o qual é chamado. Por isso, também as propriedades do objeto terão que ser avaliadas depois da chamada ao método ::Exec();
  • o resultado da chamada a ::Exec() vai variar de acordo com o comando executado.

Exemplos

Bloco de código
linenumberstrue
#include 'protheus.ch'
 
User Function redisTst()
  Local retVal := Nil
  Local cCommand := ''

  oRedisCli:= tRedisClient():New()

  // Setup Redis connection
  oRedisCli:Connect("tec-clima", 6379, "")

  If .Not. oRedisClient:lConnected
    ConOut("Could not connect to Redis server")
	Return .F.
  EndIf 

  // Set the field 'x' to the value 'aaa'
  cCommand := "set x aaa"
  oRedisCli:Exec(cCommand, @retVal)

  If .Not. oRedisClient:lOk
    ConOut("Could not Exec(" + cCommand + ")")
	
	ConOut("Exec() result: " + cValToChar(retVal))
	VarInfo("State of object: ", oRedisCli)
    
    Return .F.
  EndIf

  ConOut("Successful Exec(" + cCommand + ")")
  ConOut("Result of Exec(): " + retVal)
  VarInfo("State of the object: ", oRedisClient)

  oRdClient:Disconnect()
Return .T.