[serega6531]

Я делаю загрузку файла через indy. Вот код:

Код:

procedure TForm3.FormActivate(Sender: TObject);
var
HTTP:TIdHTTP;
LoadStream: TMemoryStream;
FileSize:integer;
begin
form3.ProgressBar1.Position:=0;
HTTP:=TIdHTTP.Create(nil);
FileSize:=GetInetFileSize(UpdateDir + 'minecraft.zip');  {Возвращает размер файла}
form3.ProgressBar1.max:=FileSize;
Label2.Caption:='Загрузка... (' + IntToStr(FileSize) + ' байт)';
 LoadStream := TMemoryStream.Create;
  HTTP.Get(updateDir + 'minecraft.zip', LoadStream);     {загрузка файла}
  LoadStream.SaveToFile(appdata + '/' + rootdir + '/minecraft.zip');
LoadStream.Free;      {освобождаем поток}
HTTP.Free;
Form3.Close;
form4.Show;
end;

procedure TForm3.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
form3.ProgressBar1.Position:=AWorkCount;//количество скачаного на данный момент
end;

Но прогрессбар не увеличивается! Где ошибка и что надо делать?

[Snake22]

а сервер размер файла сообщает?
в лейбле размер файла появляется на этой строчке
Label2.Caption:='Загрузка... (' + IntToStr(FileSize) + ' байт)';
?

[Snake22]

а нет, не заметил, HTTP ты ж сам создаёшь, а событию onWork не присвоил.
пропиши там ещё
HTTP.OnWork:=IdHTTP1Work;

и ещё try поставь =)

[serega6531]

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

а нет, не заметил, HTTP ты ж сам создаёшь, а событию onWork не присвоил.
пропиши там ещё
HTTP.OnWork:=IdHTTP1Work;

и ещё try поставь =)

Спасибо, исправил. Тема закрыта.