Array
(
)

Tratamento de Erros

Ramms
   - 12 jan 2006

Salve Salve.....

Seguinte, eu qria fazer um sistema ´global´ de tratamento de erros...
tipo

ocorre um erro lá, que eh comum

Dataset is not Insert or Edit Mode

e tazl....

eu queria fazer uma tela de erro assim:

Citação:

Caro usuário, ocorreu um erro e blá blá...
Faz o seguinte clica no botão com a figura escrota awe embaixo, isso vai me enviar automaticamente uma notificação do erro....
o erro foi:
Dataset is not Insert or Edit Mode

Thranxxxx


Awe vcs me falam.... aaa mais isso é simples é só vc tratar o erro....tipo verificar o state do dataset na hr que clicar no salvar....
eu não qro isso, eu qria uma coisa meio que universal.....todos os erros que derem aparecerem nesse layout....
creio que isso seja possível com api hooking...
se alguém souber agradeço ^^

xxx sxe xxx


Gpfranca
   - 12 jan 2006


Citação:
Salve Salve.....

Seguinte, eu qria fazer um sistema ´global´ de tratamento de erros...
tipo

ocorre um erro lá, que eh comum

Dataset is not Insert or Edit Mode

e tazl....

eu queria fazer uma tela de erro assim:

Citação:

Caro usuário, ocorreu um erro e blá blá...
Faz o seguinte clica no botão com a figura escrota awe embaixo, isso vai me enviar automaticamente uma notificação do erro....
o erro foi:
Dataset is not Insert or Edit Mode

Thranxxxx


Awe vcs me falam.... aaa mais isso é simples é só vc tratar o erro....tipo verificar o state do dataset na hr que clicar no salvar....
eu não qro isso, eu qria uma coisa meio que universal.....todos os erros que derem aparecerem nesse layout....
creio que isso seja possível com api hooking...
se alguém souber agradeço ^^

xxx sxe xxx


Calma amigo, não se avexe.. A gente entendeu, rssss... Faça o seguinte, no OnShow do form Principal escreva:
Application.OnException := TrataErros;

Agora sua procedure TrataErros ficará assim:

procedure TfrmPrincipal.TrataErros(Sender: TObject; E: Exception);
begin
Application.CreateForm(TfrmErros, frmErros);
frmErros.mErros.Lines.Add(E.Message);
frmErros.ShowModal;
frmErros.Destroy;
end;

Agora você cria seu frmErros, coloca um memo para mostrar a mensagem de erro. E lá vc coloca suas opções tipo salvar em arquivo, imprimir, enviar email, reiniciar aplicativo, encerrar aplicativo ou ignorar erro. Aí é contigo. Mas isso é bem simples e, sem dúvida bastante útil. Desculpa as brincadeiras e espero ter ajudado. Um abraço.


Ramms
   - 13 jan 2006

Funcionou maravilhosamente bem, mto obrigado msm!!!!!!!!!!