Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получение информации о процессе скачивания файла!!! [D7, Win2k]

Жорик © (2003-04-10 13:21:00)
Люди, помогите!!! Как узнать, сколько информации получено и сколько всего нужно получить. Использую стандартные компоненты 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:00) [1]
Но в строке всего - постоянно висит 0... Что я неправильно делаю??????

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »