Veja bem o MADExcept, é gratuito para testes e uso pessoal, se vc for
desenvolver e VENDER, ai tem que comprar....
Na minha opnião ele é ótimo.
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
From: Fellipe Henrique
Sent: Tuesday, December 11, 2007 3:33 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Erros Delphi7 em arquivo Texto..
A melhor forma é usando um sistema que captura os erros, o que eu uso é
muito bom, e é gratuito chama-se MadExcept.
Ele gera um report do erro, falando até em qual linha aconteceu o erro, e
tem a opção de gerar um arquivo TXT ou enviar o erro por email.
Recomendo.
[]s
2007/12/11, Alexandre Marinho da Silveira <[EMAIL PROTECTED]>:
>
> Doretto
>
> Existem várias maneiras de fazer isso. A mais simples que eu conheço é
> essa:
> 1) No private do form principal eu declado um procedure que iriá
> capturar as excessões: procedure CapturaErro(Sender:TObject; E:Exception);
> 2) Eu não uso TXT para armazenar os erros, mas um DBF (TDbf). Esse
> componente cria sozinho o arquivo. Os campos são: DATAHORA (TDATETIME),
> FORM (STRING 30), CONTROLE (STRING30) e MENSAGEM (STRING 254);
> 3) O código usado para armazenar os erros é:
>
> procedure TForm1.CapturaErro(Sender:TObject; E:Exception);
> var
> msg:string;
> begin
> try
> if not FileExists(GetCurrentDir+'\erro.dbf') then
> TErro.CreateTable;
> except
> end;
> try
> TErro.Append;
> TErro.FieldByName('DataHora').AsString:=FormatDateTime('dd/mm/yyyy
> hh:mm:ss',Now);
> TErro.FieldByName('Form').AsString:=Screen.ActiveForm.Name;
> TErro.FieldByName('Controle').AsString:=Screen.ActiveControl.Name;
> TErro.FieldByName('Mensagem').AsString:=E.Message;
> TErro.Post;
> except
> end;
> msg:=E.Message+#10+#10;
> msg:=msg+'Form '+Screen.ActiveForm.Name+#10;
> msg:=msg+'Controle '+Screen.ActiveControl.Name;
> MessageDlg(msg, mtError,[mbOK],0);
> end;
>
> 4) Para reportar os erros, eu tenho um aplicativo externo que manipula
> essa tabela e permite envia-los por e-mail.
> Se vc quiser sofisticar mais o processo, existem alguns componentes que
> fazem o trabalho, incluindo a linha que gerou o erro. Como eu ainda não
> estou usando eles, não sei como te ajudar nesse caso. Um deles que eu vi
> e achei muito interessante, mas não tive tempo ainda de integrá-lo a
> minhas aplicações é o eXpress Application Manager (XAM for Delphi).
>
> Atenciosamente
>
> Alexandre Marinho da Silveira
>
> Doretto escreveu:
> >
> >
> > Bom dia !!!
> >
> > Programo em delphi7 c/ mssql e gostaria de saber se tem como gerar um
> > arquivo de log (TXT) dos erros que ocorrem no sistema
> >
> > Abraço
> >
> > Doretto
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> > Mensagens neste tópico
> > <
> http://br.groups.yahoo.com/group/delphi-br/message/180887;_ylc=X3oDMTM4ZmJkaDZiBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE4MDg4NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExOTczOTAzMDMEdHBjSWQDMTgwODg3>
>
> > (1) Responder (através da web)
> > <
> http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyY3JjbWtoBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE4MDg4NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzExOTczOTAzMDM-?act=reply&messageNum=180887>
>
> > | Adicionar um novo tópico
> > <
> http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlZWFzNWQ1BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE5NzM5MDMwMw-->
>
> >
> > Mensagens
> > <
> http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlZjR0azQyBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE5NzM5MDMwMw-->
>
> > | Arquivos
> > <
> http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmbXRuZnFkBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExOTczOTAzMDM->
>
> > | Fotos
> > <
> http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJldmhtNXRtBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE5NzM5MDMwMw-->
>
> > | Links
> > <
> http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmdTloam9rBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExOTczOTAzMDM->
>
> > | Banco de dados
> > <
> http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjcG5kam1qBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzExOTczOTAzMDM->
>
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > <
> http://br.groups.yahoo.com/;_ylc=X3oDMTJkcTJrYmkzBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMTk3MzkwMzAz>
>
> >
> > Alterar configurações via web
> > <
> http://br.groups.yahoo.com/group/delphi-br/join;_ylc=X3oDMTJmN3A0NDUzBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3N0bmdzBHN0aW1lAzExOTczOTAzMDM->
>
> > (Requer Yahoo! ID)
> > Alterar configurações via e-mail: Alterar recebimento para lista diária
> > de mensagens <mailto:[EMAIL
> > PROTECTED]<delphi-br-digest%40yahoogrupos.com.br>?subject=
>
> > Recebimento de e-mail: Lista de mensagens> | Alterar formato para o
> > tradicional
> > <mailto:[EMAIL
> > PROTECTED]<delphi-br-traditional%40yahoogrupos.com.br>?subject=Alterar
> formato
> > de distribuição: Tradicional>
> > Visite seu Grupo
> > <
> http://br.groups.yahoo.com/group/delphi-br;_ylc=X3oDMTJkbmI4cG9lBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2hwZgRzdGltZQMxMTk3MzkwMzAz>
>
> > | Termos de uso do Yahoo! Grupos <http://br.yahoo.com/info/utos.html> |
> > Sair do grupo <mailto:[EMAIL
> > PROTECTED]<delphi-br-unsubscribe%40yahoogrupos.com.br>
> ?subject=>
> > Atividade nos últimos dias
>
>
--
_________________________________
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
