Somente um detalhe, o MadExcept, não é gratuito se o vc o utilizar em software
comercial, ou seja se vc vende o seu software, vc deve comprar a licença do
mesmo. O pessoal não tem o costume de ler o txt de Copyrigth.
----- Mensagem original ----
De: Fellipe Henrique <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 11 de Dezembro de 2007 15:33:03
Assunto: 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] com.br>:
>
> 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(GetCurre ntDir+'\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.ActiveCo ntrol.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.ActiveCont rol.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=
> X3oDMTM4ZmJkaDZi BF9TAzk3NDkwNDM3 BGdycElkAzEwNTg3 NzgEZ3Jwc3BJZAMy
> MTM3MTExMjY0BG1z Z0lkAzE4MDg4NwRz ZWMDZnRyBHNsawN2 dHBjBHN0aW1lAzEx
> OTczOTAzMDMEdHBj SWQDMTgwODg3>
>
> > (1) Responder (através da web)
> > <
> http://br.groups. yahoo.com/ group/delphi- br/post;_ ylc=X3oDMTJyY3Jj
> bWtoBF9TAzk3NDkw NDM3BGdycElkAzEw NTg3NzgEZ3Jwc3BJ ZAMyMTM3MTExMjY0
> BG1zZ0lkAzE4MDg4 NwRzZWMDZnRyBHNs awNycGx5BHN0aW1l AzExOTczOTAzMDM-
> ?act=reply& messageNum= 180887>
>
> > | Adicionar um novo tópico
> > <
> http://br.groups. yahoo.com/ group/delphi- br/post;_ ylc=X3oDMTJlZWFz
> NWQ1BF9TAzk3NDkw NDM3BGdycElkAzEw NTg3NzgEZ3Jwc3BJ ZAMyMTM3MTExMjY0
> BHNlYwNmdHIEc2xr A250cGMEc3RpbWUD MTE5NzM5MDMwMw- ->
>
> >
> > Mensagens
> > <
> http://br.groups. yahoo.com/ group/delphi- br/messages; _ylc=X3oDMTJlZjR
> 0azQyBF9TAzk3NDk wNDM3BGdycElkAzE wNTg3NzgEZ3Jwc3B JZAMyMTM3MTExMjY
> 0BHNlYwNmdHIEc2x rA21zZ3MEc3RpbWU DMTE5NzM5MDMwMw- ->
>
> > | Arquivos
> > <
> http://br.groups. yahoo.com/ group/delphi- br/files; _ylc=X3oDMTJmbXR
> uZnFkBF9TAzk3NDk wNDM3BGdycElkAzE wNTg3NzgEZ3Jwc3B JZAMyMTM3MTExMjY
> 0BHNlYwNmdHIEc2x rA2ZpbGVzBHN0aW1 lAzExOTczOTAzMDM ->
>
> > | Fotos
> > <
> http://br.groups. yahoo.com/ group/delphi- br/photos; _ylc=X3oDMTJldmh
> tNXRtBF9TAzk3NDk wNDM3BGdycElkAzE wNTg3NzgEZ3Jwc3B JZAMyMTM3MTExMjY
> 0BHNlYwNmdHIEc2x rA3Bob3QEc3RpbWU DMTE5NzM5MDMwMw- ->
>
> > | Links
> > <
> http://br.groups. yahoo.com/ group/delphi- br/links; _ylc=X3oDMTJmdTl
> oam9rBF9TAzk3NDk wNDM3BGdycElkAzE wNTg3NzgEZ3Jwc3B JZAMyMTM3MTExMjY
> 0BHNlYwNmdHIEc2x rA2xpbmtzBHN0aW1 lAzExOTczOTAzMDM ->
>
> > | Banco de dados
> > <
> http://br.groups. yahoo.com/ group/delphi- br/database; _ylc=X3oDMTJjcG5
> kam1qBF9TAzk3NDk wNDM3BGdycElkAzE wNTg3NzgEZ3Jwc3B JZAMyMTM3MTExMjY
> 0BHNlYwNmdHIEc2x rA2RiBHN0aW1lAzE xOTczOTAzMDM->
>
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > <
> http://br.groups. yahoo.com/ ;_ylc=X3oDMTJkcT JrYmkzBF9TAzk3ND
> kwNDM3BGdycElkAz EwNTg3NzgEZ3Jwc3 BJZAMyMTM3MTExMj Y0BHNlYwNmdHIEc2
> xrA2dmcARzdGltZQ MxMTk3MzkwMzAz>
>
> >
> > Alterar configurações via web
> > <
> http://br.groups. yahoo.com/ group/delphi- br/join;_ ylc=X3oDMTJmN3A0
> NDUzBF9TAzk3NDkw NDM3BGdycElkAzEw NTg3NzgEZ3Jwc3BJ ZAMyMTM3MTExMjY0
> BHNlYwNmdHIEc2xr A3N0bmdzBHN0aW1l AzExOTczOTAzMDM->
>
> > (Requer Yahoo! ID)
> > Alterar configurações via e-mail: Alterar recebimento para lista diária
> > de mensagens <mailto:delphi-br-digest@ yahoogrupos.
> > com.br<delphi-br-digest% 40yahoogrupos. com.br>?subject=
>
> > Recebimento de e-mail: Lista de mensagens> | Alterar formato para o
> > tradicional
> > <mailto:delphi-br-tradition [EMAIL PROTECTED] com.br<delphi-br-traditio
> > nal%40yahoogrupo s.com.br> ?subject= Alterar
> formato
> > de distribuição: Tradicional>
> > Visite seu Grupo
> > <
> http://br.groups. yahoo.com/ group/delphi- br;_ylc=X3oDMTJk bmI4cG9lBF9TAzk3
> NDkwNDM3BGdycElk AzEwNTg3NzgEZ3Jw c3BJZAMyMTM3MTEx MjY0BHNlYwNmdHIE
> c2xrA2hwZgRzdGlt ZQMxMTk3MzkwMzAz>
>
> > | Termos de uso do Yahoo! Grupos <http://br.yahoo. com/info/ utos.html> |
> > Sair do grupo <mailto:delphi-br-unsubscri [EMAIL PROTECTED]
> > com.br<delphi-br-unsubscr ibe%40yahoogrupo s.com.br>
> ?subject=>
> > Atividade nos últimos dias
>
>
--
____________ _________ _________ ___
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] com
[As partes desta mensagem que não continham texto foram removidas]
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
