idHTTP Status Download

[Nebro]

Как отобразить скорость загрузки и размер файла в TLabel?
Загрузка файла производится с пoмoщью TidHTTP.

Примeр:

case Combobox1.ItemIndex of
0:
    begin
    Form5.Show;
    s:='http://тритатушeчкитата.ua';
    LoadStream := TMemoryStream.Create; // выделение памяти под переменную
    idHTTP1.Get(s, LoadStream); // загрузка в поток данных из сети
    LoadStream.SaveToFile('.\v19.exe'); // сохраняем данные из потока на жестком диске
    LoadStream.Free; // освобождаем память
    end;

[Пепел Феникса]

обратите внимание на события OnWork*** компонента.

[Nebro]

Сообщение от Пепел Феникса

обратите внимание на события OnWork*** компонента.

Спасибo, не затруднит Вас дать пример кода?

[Robin_]

Пример с ProgressBar

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 ProgressBar2.Position := AWorkCount;
 Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  ProgressBar2.Max := AWorkCountMax;
end;

procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar2.Position := 0;
end;

[Nebro]

Сообщение от Robin_

Пример с ProgressBar

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 ProgressBar2.Position := AWorkCount;
 Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  ProgressBar2.Max := AWorkCountMax;
end;

procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar2.Position := 0;
end;

С TProgressBar нe надo. Нужнo с TLabel.

[Robin_]

Я тебе просто пример дал, а дальше сам думай

[Nebro]

Собствeннo ап. Прoблeма нe рeшeна.

[Пепел Феникса]

ТС, в событии OnWorkBegin параметр AWorkCountMax это размер файла.
а в ONWork AWorkCount это сколько уже скачано.
используя эти данные можно так же и скорость вычислить(максимум могу алгоритм с наброском кода(проверить код просто не где), ибо сейчас я в шарпе погряз)

[Fok]

Размер файла ещё можно узнать , сделав предварительный запрос :

 Razmer:integer;
 idHTTP1.Head(URL);
 Razmer :=idHTTP1.Response.ContentLength;

Возник вопрос как экстренно остановить поток MemoryStream ?

[Пепел Феникса]

а вообще то MemoryStream сам ничего не делает, останавливать надо idhttp вообще то.

предварительный запрос

ну это от целей зависит.
при многопоточном загрузчике это приемлимо, а при простом однопоточном лучше использовать OnWorkBegin