Загрузка файлов + ProgressBar

[record222]

Объясните, не получается настроить (Чтоб показывало насколько загружен файл)

Сам код

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%

[BOBAH13]

1. ProgressBar.Max установлен точно верно.
2. Данные сильно большие ? Если нет, то в полне все вероятно
3. После ProgressBar1.Position... вызывайте Application.ProcessMessages

[record222]

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

1. ProgressBar.Max установлен точно верно.
2. Данные сильно большие ? Если нет, то в полне все вероятно
3. После ProgressBar1.Position... вызывайте Application.ProcessMessages

1. ProgressBar1.Max размер подается в мегабайтах (45.59) как мне переделать его в байты? (Размер файла всегда разный)
2. 100 МБ максимум
3. Непонял

[W0LF]

50ый раз выкладываю ссылку на статью...
Там пример загрузки файла с инета с прогрессером и в отдельном потоке...
А вообще перед созданием топика - 5 минут хотя бы поищите на форуме, то что вас интересует...

[BOBAH13]

1. Есть очень тяжелая формула, 1 Мега байт = 1024 * 1024 байт, а значит 45.59 * 1024 * 1024
2. Ну значит все ок
3.

begin
ProgressBar1.Position:=AWorkCount;
Application.ProcessMessages;
end;