Опеределение скорости сачивания (на Delphi)

[f00rd]

Как определить скорость скачивания какого-либо файла на Delphi???

[RaZEr]

Код которым скачиваешь пости.

[f00rd]

RaZEr

procedure TForm1.Button1Click(Sender: TObject);
var
 DFile:TFileStream;
begin
 DFile:=TFileStream.Create('ToFile.zip', 0);
 idFTP1.Get('SomeFile.zip', DFile);
 DFile.Free;
end;

[RaZEr]

Хмм... у TFileStream есть position. Изменение в секунду и есть скорость bytes/sec. Я думаю так.

[f00rd]

RaZEr
спасибо, но не то это....

[RaZEr]

Почему не то ?

[f00rd]

RaZEr
мне нужна "чистая" скорость. А к твоему способу приплюсовывыется еще скорость доступа к диску... Может, конечно, я не прав, но это мое мнение...

[RaZEr]

Ну создай не FileStream, а MemoryStream.

PS: А что ты там такое пишешь, что критична даже "скорость доступа к диску" ?

[f00rd]

RaZEr
Попробовал через Position в FileStream(не стал брать MemoryStream), вроде бы показывает нормально... Так что спасибо... 5

[f00rd]

А вот если без потоков?
Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
 MFTP1.Get('SomeFile.zip', 'c:\ToFile.zip');
end;