Re: [delphi-br] Capturar exceção gerada por uma th read

Thu, 21 Feb 2008 03:02:01 -0800 

é amigo so assim q funciona ...

procedure TST.Execute;
var i,cod :integer;
LOG : textfile;

slog,txt: string;
begin
  { Place thread code here }

while not terminated do
begin

while not serv.cdslognet.Eof do
 begin
 try ...
[codigo da thread]

     except
  on E: Exception do
  begin
    try
    AssignFile(log, 'c:\concursonet.log');
    if not FileExists('c:\concursonet.log') then 
Rewrite(log,'c:\concursonet.log');
    Append(log);
    WriteLn(log, e.Message +' - '+ datetimetostr(now));
    finally
    CloseFile(log);
    end;
    end;





  ----- Original Message ----- 
  From: José Mário Silva Guedes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, February 20, 2008 6:20 PM
  Subject: Re: [delphi-br] Capturar exceção gerada por uma thread


  OK.

  Eu entendo da seguinte forma: A thread é um processo separado... Logo, se
  der um exception no Execute da Thread, o exception acaba não chegando para
  você do jeito que você fez... Pois a thread é um processo filho com vida
  própria.

  Sendo assim, sugiro que no Execute da Thread você coloque um try...except e
  trate o erro lá mesmo.

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a