Escrevi uma thread em Delphi com tratamento de exceções, mas quando a exceção acontece a operação é abortada e não cai no bloco except. Existe algum tratamento especifico de exceções dentro de threads?
procedure TThreadEnvioJSONsWS.Execute;
var
vErro: String;
begin
try
CoInitialize(nil);
vSucesso := False;
TSistema.retornaInstancia.adicionaMensagemLog('Iniciando a geração dos dados.', cOperacaoLog);
if not(envioWSEmpresa(vErro)) then
raise Exception.Create(vErro);
if not(envioWSAparelhos(vErro)) then
raise Exception.Create(vErro);
if not(envioWSApontamentos(vErro)) then
raise Exception.Create(vErro);
if not(envioWSOperadores(vErro)) then
raise Exception.Create(vErro);
if not(envioWSRiguers(vErro)) then
raise Exception.Create(vErro);
if not(envioWSAparelhosOrdens(vErro)) then
raise Exception.Create(vErro);
vSucesso := True;
except
on e:Exception do
begin
vMensagemErro := 'Falha no envio das informações.'+ sLineBreak+ e.message;
TSistema.retornaInstancia.adicionaMensagemLog(vMensagemErro, cOperacaoLog);
end;
end;
CoUninitialize;
end;