Precisei adicionar algumas threads para realizar certos processos em segundo plano.
Essa thread faz acesso à métodos de um WebService e também efetua operações no banco de dados.
Eu crio todos os objetos que preciso utilizar nessa thread dentro dela mesma para evitar acesso concorrente com componentes fora dela. Como o IBDatabase
e o IBTransaction
(uso componentes IBX).
Então minha thread está mais ou menos assim:
TThreadAtualizarDados = class(TThread)
private
FIBDatabase: TIBDatabase;
FIBTransaction: TIBTransaction;
public
constructor Create(AIBDatabase: TIBDatabase); reintroduce;
destructor Destroy; override;
procedure Execute; override;
end;
Como disse, tudo que preciso utilizar na thread eu instâncio nela mesma.
constructor TThreadAtualizarDados.Create(AIBDatabase: TIBDatabase);
begin
inherited Create(false);
FreeOnTerminate := true;
// conexão com o banco de dados
FIBDatabase := TIBDatabase.Create(nil);
FIBDatabase.LoginPrompt := false;
FIBDatabase.DatabaseName := AIBDatabase.DatabaseName;
FIBDatabase.Params.Text := AIBDatabase.Params.Text;
// controle transacional
FIBTransaction := TIBTransaction.Create(nil);
FIBTransaction.DefaultDatabase := FIBDatabase;
FIBDatabase.DefaultTransaction := FIBTransaction;
end;
Os processos que desejo que ela efetue são realizados com sucesso até sua execução terminar.
destructor TThreadAtualizarDados.Destroy;
begin
inherited;
if FIBTransaction.Active then
FIBTransaction.Commit;
// Comentados porque está causando erro
//
// FIBDatabase.Free;
// FIBTransaction.Free;
end;
As linhas que finalizam a conexão e a transação estão comentadas porque se elas forem executadas, um determinado tempo depois (pequeno tempo) após a finalização da thread (saída do método Destroy
) é gerado um erro.
Mensagem do erro:
Programa.exe faulted with message: 'application-defined exception (code 0xc000041d) at 0x77071a91'.
O que não caracteriza um Access Violation.
O que pode estar causando esse erro, e o que fazer para solucionar?
Adicionando mais informações:
A thread é instânciada dessa forma:
procedure TFrmAtualizaDados.p_Iniciar_Atualizacao;
begin
TThreadAtualizarDados.Create(Dm.IdbIntsys);
end;
Ou seja, nenhum tratamento externo é feito na thread. Não estou passando a referência dela para nenhuma variável de forma que eu pudesse estar finalizando ela manualmente, ou qualquer outra coisa. Já que setei o parâmetro dela para executar assim que instânciada inherited Create(false);
e mandei ela se destruir automaticamente após finalizar seu método Execute
, com o FreeOnTerminate := true;
, então apenas instâncio passando os parâmetros e deixo que ela trabalhe.
Inclusive, tenho até outras classes na thread que instâncio, como TStringList
e TList
que não dão problemas, somente as instâncias dos componentes do banco de dados geram problemas caso sejam liberados da memória (.Free
).
Um outro detalhe é que a mensagem de erro é disparada apenas quando troco da aplicação para o Delphi, em modo debug.
Claro que a opção "Stop on Delphi Exceptions", em "Debuger Options", está habilitada.
FIBDatabase.DefaultTransaction := nil
, depois setar oFIBDatabase.Connected := False
e depois destruir o objetoFIBDatabase
. Pode me dizer se algum desses testes foi de ajuda?destroy
dos objetos comSynchronize()
para destruir na main thread. Pode ser algum problema com o debuggerTThread
implementa algo no seu destructor que possa afetar o teu código. De maneira geral, é melhor invocarinherited
só depois do teu próprio código nodestroy
.