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

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Опеределение скорости сачивания (на Delphi) (https://www.imho.ws/showthread.php?t=45932)

f00rd

13.12.2003 22:03

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

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

RaZEr

13.12.2003 22:05

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

f00rd

13.12.2003 22:13

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

13.12.2003 22:21

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

f00rd

13.12.2003 22:51

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

RaZEr

13.12.2003 22:53

Почему не то ?

f00rd

13.12.2003 23:27

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

RaZEr

13.12.2003 23:35

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

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

f00rd

15.12.2003 13:24

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

f00rd

26.12.2003 20:03

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

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin

 MFTP1.Get('SomeFile.zip', 'c:\ToFile.zip');

end;

Часовой пояс GMT +4, время: 00:14.