liberar recursos ?!?!?!

Coloca o código aqui, eu testei a cópia de 10.000 arquivos e a velocidade não ocilou.

Valew pela ajuda okama !!!


var
i: integer;
begin
for i := strtoint(edit1.text) to strToInt(edit2.text) do
begin
copyFile(PChar(edit3.text), PChar(edit4.text + ´\´ + inttostr(i) + extractFileExt(edit3.text)), false);
progressBar1.position := trunc((i / strToInt(edit2.text)) * 100);
application.processmessages;
progressbar1.refresh;
end;
end;


Esse código comeca a lerdar depois dos 700 arquivos copiados...
Mas na verdade o código que copia os arquivos esta no meu programa de backup. Ele faz muitas comparações e talz. Por isso nao da pra copiar aqui. Eh MUITO grande. Esse código foi o que eu usei pra criar os 10.000 arquivos pra testar com meu backup. Mas mesmo com esse código passa dos 700, a velocidade já não mais a mesma.

Novamente não vi diferença, copiei um arquivo de 500kb e não houve alteração. entretando fiz algumas modificações no código, acredito que o progressbar esteja consumindo muito recurso, tente substituí-lo por um StaticText, e veja se melhora, aqui não vi diferença.


var
i: integer;
begin
[b:e0a96f8de3]progressBar1.Max := strToInt(edit2.text);[/b:e0a96f8de3]
for i := strtoint(edit1.text) to strToInt(edit2.text) do
begin
copyFile(PChar(edit3.text), PChar(edit4.text + ´\´ + inttostr(i) +
extractFileExt(edit3.text)), false);

[b:e0a96f8de3]progressBar1.position := I;[/b:e0a96f8de3]
application.processmessages;
[color=blue:e0a96f8de3]//progressbar1.refresh;[/color:e0a96f8de3]
[b:e0a96f8de3]StaticText1.Caption := inttoStr(I);[/b:e0a96f8de3]
end;

Nildo,

Fiz o teste com base no código do Emerson.EN e percebi um queda de performance após alguns segundos. Acredito que pode estar relacionado ao arquivo de ´swap´. Testei em uma máquina com W98 e 128 de Ram. Farei um novo teste mais tarde em casa com w2000 e 512 de Ram.

Okama, não é o tamanho de arquivo que vai diferenciar. É a quantidade. Eu fiz um teste com 10.000 arquivos de 1.9 kb cada. Quando chega mais ou menos nos 400 e poucos ele começa a perder recursos e fica muito lento. Chega uma hora que dá até pra ver copiando 1 por 1

Novamente, mudei o código. Tirei a progressBar, e coloquei um Label que mostra a quantidade de arquivos que jah foram copiados. Novamente notei que ele começa a ficar lerdo a partir dos 400 e poucos.


var
i: integer;
begin
for i := strtoint(edit1.text) to strToInt(edit2.text) do
begin
copyFile(PChar(edit3.text), PChar(edit4.text + ´\´ + inttostr(i) + extractFileExt(edit3.text)), false);
label7.caption := inttostr(i) + ´ / ´ + edit2.text;
label7.refresh;
application.processmessages;
end;
end;


Eu sei que este processo toma 100¬ do processador. Eu liguei o RamBooster pra liberar memória enquanto copiava os arquivos, ele realmente copiava mais rápido. Só que a diferença era mínima. Vamos tentar descobrir junto comigo porque que dá essa desaceleração do processo...

O pior eh que eh verdade.
Eu teste com o explorer aberto copiando 1000 arquivos de 1.8kb cada. E depois testei com ele fechado. Deu uma diferença de 4 segundos (aberto: 32, fechado: 28)