Ah, sim, claro! Esqueci de colocar o construtor da Thread!
[]'s
constructor TFileProcessing.Initialize;
begin
Create(False);
FreeOnTerminate := True;
Priority := tpLowest;
Execute;
end;
--
---
Att.:
Willian Jhonnes L. dos Santos
Nao sou muito bom em Threads, mas tente assim:
...
begin
// inherited; -- Pode remover, Execute eh abstrato ;)
while not Terminated do
begin
try
Sleep(cIntgParams.Interval);
cIntgParams.LoadParams;
if FindFiles then
ProcessFiles;
finally
sFiles.Clear;
end;
end;
...
Se você
Em 21/01/2010 15:51, Silvio Clecio escreveu:
Se nao funfar, monitore com o debugger em qual etapa esta travando.
E aí, Silvio...
É, não rolou... O problema é que o debbuger não vai ajudar nesta
questão, haja visto que ele vai causar o atraso na carga dos pacotes da
mesma maneira (é, eu já
3 matches
Mail list logo