taxa de transferencia ftp - como monitorar?

Delphi

23/11/2005

meu aplicativo envia e recebe arquivos para uma conta ftp. gostaria de colocar um pregressbar informando o quanto já foi enviado, e o tempo restante. estou usando indy IdFTP. como monitorar a velocidade da transferência?


Anderh

Anderh

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

23/11/2005

você pode fazer isso nos eventos OnWorkBegin e OnWork do componente.
no OnWorkBegin você inicializa a barra de progresso e a hora de início do processo:
HoraInicio := Time;
ProgressBar.Position := 0;
ProgressBar.Max := AWorkCountMax;

no OnWork você incrementa:
ProgressBar.Position := AWorkCount;
TaxaTransferencia := AWorkCount / SecondsBetween(Time,HoraInicio);

[i:f53b89d348]HoraInicio[/i:f53b89d348] e [i:f53b89d348]TaxaTransferencia[/i:f53b89d348] são variáveis private.
depois basta mostrar a TaxaTransferencia num label.


GOSTEI 0
POSTAR