Форум: "Сети";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизПолучение информации о процессе скачивания файла!!! Найти похожие ветки
← →
Жорик (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 вся ветка
Форум: "Сети";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c