Загрузка файлов + ProgressBar - Общие вопросы Delphi

record222 · 18.04.2010, 14:50

Я хо4ю скачать файл, но чтоб оно показывало в ProgressBar скока уже скало(10, 20-100%);

Сам код

Код:

var
response:Tfilestream;
a:string;
begin
response:=Tfilestream.Create(Pars('<b title="', Form1.IdHTTP2.Get(Form1.Edit1.TExt), '"'), fmcreate);
Form1.IdHTTP2.Get(Form1.Edit2.Text, response);

А в ProgressBar:

Код:

procedure TForm1.IdHTTP2Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
ProgressBar1.Position:=AWorkCount;
end;

Файл не успел еще загрузится, а оно сразу заполнено на 100%
Что не так?

RAZOR3 · 25.04.2010, 02:34

Попробуй назначить Progressbar'у максимальное значение равное размеру файла

W0LF · 25.04.2010, 11:07

Мда, модераторы делайте что-то с поиском, люди его в упор не видят...
ТС, похожие темы снизу, первая ссылка, влом глянуть?
Статья была написана чорт знает когда, в ней описуется создание программы которая закачует файл в потоке + прогрессер

18.04.2010, 14:50	#1
record222 Форумчанин Регистрация: 23.09.2009 Сообщений: 127	Загрузка файлов + ProgressBar Я хо4ю скачать файл, но чтоб оно показывало в ProgressBar скока уже скало(10, 20-100%); Сам код Код: `var response:Tfilestream; a:string; begin response:=Tfilestream.Create(Pars('<b title="', Form1.IdHTTP2.Get(Form1.Edit1.TExt), '"'), fmcreate); Form1.IdHTTP2.Get(Form1.Edit2.Text, response);` А в ProgressBar: Код: `procedure TForm1.IdHTTP2Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); begin ProgressBar1.Position:=AWorkCount; end;` Файл не успел еще загрузится, а оно сразу заполнено на 100% Что не так?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Загрузка файлов + ProgressBar	record222	Общие вопросы Delphi	4	18.04.2010 18:27
Загрузка файлов	Vladya	Помощь студентам	3	01.07.2009 08:34
Копирование файлов(каталог-а) с ProgressBar	KurtWagner	Общие вопросы Delphi	9	23.03.2009 03:22
Копирование нескольких файлов + ProgressBar	AngelOfDeath	Общие вопросы Delphi	4	28.05.2008 14:57
Множественная загрузка файлов	Artem	Общие вопросы Delphi	14	03.08.2007 20:38

25.04.2010, 02:34	#2
RAZOR3 Пользователь Регистрация: 25.04.2010 Сообщений: 38	Попробуй назначить Progressbar'у максимальное значение равное размеру файла

25.04.2010, 11:07	#3
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Мда, модераторы делайте что-то с поиском, люди его в упор не видят... ТС, похожие темы снизу, первая ссылка, влом глянуть? Статья была написана чорт знает когда, в ней описуется создание программы которая закачует файл в потоке + прогрессер