liberar recursos ?!?!?!

Question

Bom. Eu tenho um FOR que vai de 1 a 10.000 .Esse FOR vai copiar um arquivo chamado �teste.txt� para um outro local com nomes diferentes. Por exemplo: 00001.txt, 00002.txt, ... , 10000.txtAt� os 200 pr...

Okama · Answer

Coloca o c�digo aqui, eu testei a c�pia de 10.000 arquivos e a velocidade n�o ocilou.[img:1f52a863d5]//www.editcnc.com/steve/girdance.gif[/img:1f52a863d5]...

Nildo · Answer

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....

Okama · Answer

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;

Aroldo Zanela · Answer

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....

Nildo · Answer

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

Nildo · Answer

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...

Nildo · Answer

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)...