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]