application process messages fechando querys

[gss200610]

tenho um executavel que fica no tray enviando e recebendo dados entre bancos.

exemplo:

while not tb1.eof

begin

tb2.campo := tb1.campo

application.processmessages; -> nesse ponto apos o primeiro registro, nem chega executar o next, ja fecha a query

 

tb1.next

end;

alguem ja passou por isso, pois a unica forma que conheco de nao travar a tela é process messages

 

[Maiquel]

Olá.

Já tentou rodar o processo em um thread?

[gss200610]

queria rodar sem precisar de thread.

[Maiquel]

Bom dia,

Eu te aconselharia a tomar um pouco de cuidado com ProcessMessages dentro de laços de repetição, pois o seu custo em relação ao tempo é muito alto, causando perda de performance.

Em relação a fechar a query, creio que não seja pelo motivo do ProcessMessages, teríamos que verificar várias situações: Sua tabela esta posicionada corretamente no primeiro registro?(talvez algum evento na ' tb1 ', que causa isso tudo), ou algo do tipo.

[gss200610]

pois é mudei pra thread( nao sou expert no assunto). mais fica travando a tela, e queria deixá-la libre, pq eu poder clicar e um botao de cancelar a thread.

to criando as query( firedac ) tudo dentro de cada procedure da thread , e destruindo-as em blocos try-finally. segue em anexo as units.

se puder me ajudar, agradeço.

UMain.dfm

UMain.pas

[Maiquel]

Olá, desculpa a demora em responder;

Você tentou verificar se o travamento não é quando chama o select?

Tenta dar uma estudada em TCriticalSection.