Как узнать скорость загрузки файла используя Indy.

[Dimedrol1536]

Как узнать скорость загрузки файла используя Indy.

[metraz]

Цитата: Сообщение от Dimedrol1536 Как узнать скорость загрузки файла используя Indy.

Количество скаченных байт - (название стрима).size;
Делай это в таймере, onWork или в потоке. Записываешь в некоторую переменную.
Ожидание 1 секунда (потока, таймера не важно).
(название стрима).size минус переменная в которой записан предыдущий размер.
Так ты получишь объем скачанный за секунду.
Результат будет вроде как в байтах, но могу ошибаться, ибо не помню.

[Yukikaze]

Наркоманы, дуйте в школу, расстояние / время = скорость. Для особо непонятливых: кол-во байт / время загрузки = скорость загрузки

[Dimedrol1536]

Цитата: Сообщение от Yukikaze Наркоманы, дуйте в школу, расстояние / время = скорость. Для особо непонятливых: кол-во байт / время загрузки = скорость загрузки

Ок, а тогда время загрузки?

[metraz]

Цитата: Сообщение от Yukikaze Наркоманы, дуйте в школу, расстояние / время = скорость. Для особо непонятливых: кол-во байт / время загрузки = скорость загрузки

а я тогда что по-твоему расписал?

Добавлено через 2 минуты

Цитата: Сообщение от Dimedrol1536 Ок, а тогда время загрузки?

При начале загрузки создаешь таймер который отсчитывает время. А по окончании выключаешь. Вот и время загрузки. Если тебе надо узнать время, за которое скачается, то действуй по тому принципу, который я скинул выше, но нужно оставшийся объем поделить на скорость.

[Dimedrol1536]

metraz, особо я не понял про что ты.

Цитата: Сообщение от metraz Количество скаченных байт - (название стрима).size;

AWorkCount в IdHTTP1Work.

[Yukikaze]

Цитата: Сообщение от metraz Ожидание 1 секунда (потока, таймера не важно). (название стрима).size минус переменная в которой записан предыдущий размер.

Псевдокод:

lastReceived = 0
func progress_callback(obj, state)->
    speed = state.TotalReceived - lastReceived
    lastReceived = state.TotalReceived
    endTime = state.FileSize / speed

или

startTime= GetCurentTime()
func progress_callback(obj, state)->
    speed = state.TotalReceived / (GetCurentTime() - startTime).Seconds
    endTime = state.FileSize / speed

И какой вариант менее наркоманский?

[Dimedrol1536]

Цитата: Сообщение от Yukikaze И какой вариант менее наркоманский?

Оба наркоманские, не на Delphi написаны.

[VeTaL_UA]

Цитата: Сообщение от Dimedrol1536 Оба наркоманские, не на Delphi написаны.

[Zo_Om4eG]

Цитата: Сообщение от VeTaL_UA

Я не знаю почему, но пост "Оба наркоманские, не на Delphi написаны." вызвал такие же эмоции, так и хотелось влепить facepalm, но не стал.


Dimedrol1536, тебе дали логику, а не готовый код. По сути программист не должен быть привязан к одному языку. Я могу тебе привести аналог на Delphi, но поможет ли он тебе?

procedure TMainForm.TimeTimer(Sender: TObject);
var DownloadStr, LeftStr, SpeedStr: string;
begin
 inc(TimeOfLoad); // Сколько секунд прошло
 
 { Форматирование для вывода }
 SpeedStr:=IntToStr(Round(SizeOfGetFile/1024/TimeOfLoad)); 
 DownloadStr:=FormatFloat('#.##', SizeOfGetFile/1024/1024); 
 if DownloadStr[1] = ','
 then
   DownloadStr:='0'+DownloadStr;
 LeftStr:=FormatFloat('#.##', (SizeOfFile-SizeOfGetFile)/1024/1024);
 if LeftStr[1] = ','
 then
   LeftStr:='0'+LeftStr;
 { Форматирование для вывода }

 { Вывод }
 lblSpeed.Caption:='Скорость: '+SpeedStr+' кб/с';
 lblDownload.Caption:='Скачалось: '+DownloadStr+' мб';
 lblLeft.Caption:='Осталось: '+LeftStr+' мб';
 { Вывод }
end;

Это код таймера, который нужно запускать в начале загрузки файла. Надеюсь нужные переменные объявишь сам и запишешь в них нужные значения.

[metraz]

Цитата: Сообщение от Dimedrol1536 metraz, особо я не понял про что ты.

Что именно не понятно? (название стрима).size? Ты же качаешь через мемори стрим? Вот нужно этой командой получить его размер.

[Yukikaze]

У делфи слишком избыточный синтаксис, что бы на нем алгоритмы описывать, по этому я обычно использую псевдокод похожий на руби/питон

var
  startTime: DWORD;
procedure Download(url: string);
var
  Http: TIdHTTP;
  stream: TMemoryStream;
begin
  try
    Http := TIdHTTP.Create(nil);
    stream := TMemoryStream.Create; //ugly hack. На самом деле нужно сразу писать на диск, а не хранить весь хлам в памяти
    Http.OnWork := DoWork;
    startTime := GetTickCount;
    Http.Get(url, stream);
  finally
    stream.Free;
    Http.Free;
  end;
end;

procedure DoWork(sender: TObject; mode: TWorkMode; received: Int64);
var
  Http: TIdHTTP;
  ContentLength: Int64;
  downloadSpeed: Single;
  seconds: Single;
begin
  Http := TIdHTTP(sender);
  ContentLength := Http.Response.ContentLength;
  seconds := (GetTickCount - startTime) / 1000;

  downloadSpeed := received / seconds;
end;