// Ao gravar dados no banco...
try
Query.Post;
Query.ApplyUpdates;
except on E:Exception do begin
GravarErro('C:\erro.txt', E.Message);
end;
end;
// Procedure para gravar a mensagem de erro no arquivo
procedure GravarErro(Arquivo, Erro: string);
var Arq: TextFile;
begin
AssignFile(Arq, Arquivo);
try
try
if not FileExists(Arquivo) then
Rewrite(Arq)
else Append(Arq);
Writeln(Arq, Erro);
except on E: Exception do begin
MessageDlg('Erro ao gravar mensagem de erro no arquivo' + #13 + #10
+ Arquivo + #13#10 + E.Message, mtError, [mbOK], 0);
end; // on E:Exception
end; // try
finally
CloseFile(Arq);
end;
end;
2008/7/23 Darkzad <[EMAIL PROTECTED]>:
> Obrigado pela dica Berdam,
> Mas o que eu quero é grava a mensagem de erro que o Delphi gera. Tratar é
> simples o problema para mim é como pegar a mensagem e principalmente do
> Banco de Dados.
>
> Obrigado
>
> DarkZad
> ----- Original Message -----
> From: Berdam
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Wednesday, July 23, 2008 11:22 AM
> Subject: Re: [delphi-br] Tratar erros do Banco de Dados
>
> neste link
> http://www.planetadelphi.com.br/ver_artigo.php?id=125
> existe alguns ensinamentos sobre try e except, vc pode tentar conectar no
> try, se algum erro acontecer, a execução é movida para o except e gravar num
> arquivo texto
> ----------------------------------------------------------
> Uberdam Cavaletti
> Formado em Tecnologia da Informação - Unoesc - Xxe
> Pós-graduado em desenvolvimento Java - Unoesc - Xxe
>
> http://www.curricular.com.br/berdam
>
> Visite
> http://passandoveneno.blogspot.com
> ----------------------------------------------------------
>
> --- Em qua, 23/7/08, Darkzad <[EMAIL PROTECTED]<darkzad%40yahoo.com.br>>
> escreveu:
> De: Darkzad <[EMAIL PROTECTED] <darkzad%40yahoo.com.br>>
> Assunto: [delphi-br] Tratar erros do Banco de Dados
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Data: Quarta-feira, 23 de Julho de 2008, 11:14
>
> Olá Pessoal,
>
> Estou querendo gravar em um arquivo texto os erros que ocorrem no banco.
> Mas não sei como fazer.
>
> Se alguém tiver alguma idéia, por favor, me ajudem.
>
> Desde já
>
> DarkZad
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
> cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
