|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2012, 23:57 | #1 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
Скорость передачи данных
Доброго времени!
Голова гудит, наткнулся на грабли. Дико туплю в самых простых задачах, просто дичайше забирает и полностью Как правильно изменять скорость отдачи/приема данных и оставшееся время? Есть дистанция - размер файла, размер уже переданных/принятых байт Есть время - Фиксируется старт Скорость - это дистанция div время, результат - размер в байтах(БИТАХ?). Оставшееся время - это разность между (размером файла и объемом принятых данных) умноженное на скорость, результат - милисекунды. Вроде правильно, но нет. Не едут лыжи. Скорость передачи почему-то зашкаливает за 180 МБ/сек. Код:
Код:
|
23.12.2012, 00:10 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
fWork_TimeCurrent := GetTickCount - fWork_TimeStart в милисекундах, в секунды где-то есть перевод?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
23.12.2012, 00:25 | #3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
Во время милисекунды переводятся в последствии, сейчас это результат работы метода класса.
Скорость оно не верно измеряет.. или измеряет но в последствии что-то не так? |
23.12.2012, 13:21 | #4 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 305
|
В вашем коде измеряется средняя скорость, с которой происходит получение данных. т.к. происходит деление всего полученного на весь промежуток времени. Более точная скорость получится если рассчитывать время, за которое происходит получение одного пакета. Со вторым способом у меня никогда не возникало проблем.
|
23.12.2012, 18:51 | #5 |
Форумчанин
Регистрация: 24.02.2010
Сообщений: 148
|
Так просто компакнее может кому нужно !
Код:
Последний раз редактировалось fucil; 23.12.2012 в 18:55. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi7:TServerSocket - скорость передачи | Air | Помощь студентам | 6 | 29.12.2012 23:04 |
Как узнать скорость передачи данных (при копировании файлов) по сети | calypso | Работа с сетью в Delphi | 0 | 02.12.2012 19:56 |
Органичить скорость передачи | Denager | Работа с сетью в Delphi | 22 | 05.03.2008 09:08 |
Скорость передачи приема | Лубышев | Работа с сетью в Delphi | 1 | 05.02.2008 10:14 |