Histórico da Página

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

Sintaxe

oRedisClient:Exec(cCommand, [ @retVal ])

Parâmetros

Observações

O método ::Execute() é 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 ::Execute() 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.
Um ponto importante é que
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

#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'
	oRedisCli:Exec(  cCommand := "set x aaa"
  oRedisCli:Exec(cCommand, @retVal)

  If .Not. oRedisClient:lOk
    ConOut("Result of Could not Exec(" + cCommand + ")")
	
	ConOut("Exec() result: " + cValToChar(retVal))
    	VarInfo("State of the object: ", oRdClientoRedisCli)
    
     oRdClient:Disconnect()
    Return .T.
  EndIf 

Return .F.Return .F.
  EndIf

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

  oRdClient:Disconnect()
Return .T.

Veja também

• tRedisClient:Append
• tRedisClient:GetReply