Re: [delphi-br] Erros Delphi7 em arquivo Texto..
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/ 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=replymessageNum=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
Re: [delphi-br] Erros Delphi7 em arquivo Texto..
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/ 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=replymessageNum=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] Recebimento de e-mail: Lista de mensagens | Alterar formato para o tradicional mailto:[EMAIL PROTECTED] 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] Atividade nos últimos dias
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/ 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=replymessageNum=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