Скачать: CL | DM;

Получение информации о процессе скачивания файла!!!   Найти похожие ветки 

← →
Жорик   (2003-04-10 13:21) [0]

Люди, помогите!!! Как узнать, сколько информации получено и сколько всего нужно получить. Использую стандартные компоненты Indy из Delphi 7.0... Информацию о полученных байтах получаю, а сколько их всего никак не могу узнать... вот собственно код... может я в чем-то неправ...

procedure TForm1.dxButton1Click(Sender: TObject);
begin
HTTP.Host:=" http://zabava.od.ua/tv/view_anons.phtml?day=6";
memo1.Text:=HTTP.Get(" http://zabava.od.ua/tv/view_anons.phtml?day=6");

end;

procedure TForm1.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Label2.caption:="Получено - "+inttostr(AWorkCount);
end;

procedure TForm1.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
Label1.caption:="Всего - "+inttostr(AWorkCountMax);
showmessage("Начали...");
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HTTP.ProxyParams.ProxyPort:=3128;
HTTP.ProxyParams.ProxyServer:="192.168.60.1";

end;

procedure TForm1.HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
showmessage("Закончено...");
end;

---

← →
Жорик   (2003-04-10 13:23) [1]

Но в строке всего - постоянно висит 0... Что я неправильно делаю??????

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c