Cria um objeto que permite o compartilhado de dados entre os servidores através de uma Fila.
Sintaxe
oTQLS := TQueueSvc():New( cName )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência | Observações |
---|---|---|---|---|---|
cName | caractere | Nome que será atribuído a Fila ou Lista | X | Nome não deve ser vazio (Nulo) |
Retorno
Nome | Tipo | Descrição | Observações |
---|---|---|---|
oTQLS | objeto | objeto de Fila ou Lista | Se algum erro ocorrer será retornado Nulo (Nil) |
Observações
Exemplos
Exemplo
#include 'protheus.ch' // Setup AWS Static cRegiao := "SA_EAST_1" Static cCred := "RICARDOLIMA732CREDID" Static cCredKey := "7O8US89ZjbcwuxdyL361IEWOSEmYQChlln6hMK/r" // Setup Redis Static cRedisHost := "tec-clima" Static nRedisPort := 6379 User Function newFila() Local nRet := 0 // Nome da Fila Local cQueueName := "Fila_TQLS" // Indica que estara usando a Infra-Estrutura da Amazon para gerenciar Filas no SQS Local lIsAws := .F. // Tempo de espera de tratamento de mensagem Local nVisibTimeOut := 45 // segundos // Tempo de armazenamento da mensagem Local nMsgRetPeriod := (14 * 24 * 60 * 60) // 14 dias (em segundos) // Objeto de Fila Local oTQLS := Nil Local cBuild := GetBuild() ConOut("Usando Build: " + cBuild) // Cria um novo objeto de Fila oTQLS := TQueueSvc():New(cQueueName) If(oTQLS == Nil) ConOut("### ERRO ### " + "Erro na criacao da Fila - " + cQueueName) Return .F. Else ConOut("Criacao da Fila OK - " + oTQLS:cName) EndIf If(lIsAws) // Configurando a Fila AWS SQS nRet := oTQLS:SetupSQS(cRegiao, cCred, cCredKey, nMsgRetPeriod, nVisibTimeOut) Else // Configurando a Fila nRet := oTQLS:Setup(cRedisHost, nRedisPort, , nVisibTimeOut) EndIf If nRet != 0 ConOut("### ERRO ### " + "Erro ao fazer o Setup" + " Erro: " + AllTrim(Str(nRet))) Return .F. Else ConOut("Setup de Fila OK - " + oTQLS:cName) EndIf Return .T.
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas