|
<< Clique para Mostrar o Sumário >>
ReportFailure |
ReportFailure(FailureName, FailureDescription, FailureWeight)
Este método permite que uma aplicação reporte falhas para o Servidor, que podem ser visualizadas clicando com o botão direito do mouse no ícone do Elipse Power na Área de Notificações do Windows. Quando este método é usado, o ícone do Elipse Power na Área de Notificações do Windows começa a piscar em vermelho, indicando a ocorrência de uma falha. As falhas reportadas são normalmente condições que impedem que uma aplicação funcione parcialmente, tais como problemas de comunicação em uma porta serial, link de rede inativo ou banco de dados sem conexão, e que normalmente não podem ser detectadas pelo Servidor. Este método tem a finalidade de avisar o operador do sistema a respeito de problemas em um servidor e também de auxiliar o gerenciador automático de Hot-Standby a decidir qual servidor está mais apto para executar uma aplicação.
NOTA |
Este método só está disponível no Servidor. |
Este método possui os parâmetros descritos na tabela a seguir.
Parâmetros do método ReportFailure
Nome |
Descrição |
|---|---|
FailureName |
Contém o nome de uma falha, definido pelo usuário. Este mesmo parâmetro deve ser passado para o método ClearFailure quando a aplicação detectar que a falha não está mais ativa, como por exemplo "Falha COM1" |
FailureDescription |
Descrição textual de uma falha, definida pelo usuário, como por exemplo "Falha de comunicação na porta COM1" |
FailureWeight |
Define a severidade, ou peso, de uma falha. O valor 0 (zero) indica um aviso sem gravidade. Valores maiores que 0 (zero) indicam falhas. Quanto maior o valor, mais grave é a falha |
O script a seguir contém um exemplo de uso deste método.
Sub TagEstadoSerial_OnValueChanged()
If Value then
' O valor do Tag é True, indica que está em falha
Application.ReportFailure "FALHA_COM1", "Falha de "_
& "comunicação na porta COM1", 100
Else
' O valor do Tag é False, limpa a falha
' (indica que está OK)
Application.ClearFailure "FALHA_COM1"
End If
End Sub