Модуль автообновления

[Pavia]

У вас HTTP2WorkBegin и HTTP2Work объявлены, но не соединены с компонентом.
Во-первых их надо сделать членами класса. А во вторых пописать в событиях.

procedure TForm1.FormCreate(Sender: TObject);
begin
IdHTTP1.OnWorkBegin:=IdHTTP1WorkBegin;
IdHTTP1.OnWork:=IdHTTP1Work;

end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 ProgressBar1.Position := 0;
 ProgressBar1.Max := AWorkcountMax;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
 ProgressBar1.Position := AWorkCount;
end;

И ещё рекомендуют применять компонент IdAntiFreeze1.

Что касается потока. Антивирус обычно ругается когда программа себя обновляет. Поэтому программы стоит разделять одна основная другая для скачки. Сами понимаете при такой схеме потоки не нужны.

Что касается таймера, то он работать он не будет. Пока всё не скачаете. Тут только если антифриз поможет. Или если допустимо внутри IdHTTP1Work добавить строчку Application.ProcessMessages;.

[Aliens_wolfs]

Я вообще думал что этот IdHTTP1 модуль как компонент добавлен на форму но потом да увидел создание, тогда да нужно объявлять.

Да и вообще ProgressBar1 должен по идеи и без этих объявлений работать так как есть функция

procedure TimerTimer(Sender: TObject);
begin
ProgressBar.Position:=Stream.Position;
end;

У Вас кстати OnTimer не объявлена тоже

Timer:=TTImer.Create(nil);
Timer.OnTimer:= TimerTimer; не хватает этой строки
Timer.Interval:=500;
Timer.Enabled:=True;

[kropotkina-alice]

горю!!! Помогите пожалуйста, завтра программу сдавать нужно на работе

Как это знакомо...
Приходит вот такой "специалист" наниматься на работу.
- Это знаешь?
- Да как два пальца...
- А это?
- Да как два пальца...
- И это знаешь?
- Да как два пальца...
- Ну ладно, берем...

И тут начинается - вместо работы над поставленным заданием - бесконечное сидение на форумах с одной только просьбой "ПАМАГИТИ НИ ХРЕНА НЕ ПАНЕМАЮ ЗДЕЛАЙТИ ЗА МИНЯ МАЮ РАБОТУ"...

Помогальщики! Вам не стыдно?

[Aliens_wolfs]

Помогальщики! Вам не стыдно?

МНЕ НЕ СТЫДНО
Для этого и нужны такие форумы что бы набираться знаний и по возможности помогать, даже тем кто не может понять свое творение, ткнуть носом на ошибки что бы понял и набрался опыта.

Тем более он свое творение показал, а не просит написать ему готовую программу, вот тем кто с нуля просит таким и не нужно помогать.

[ApxaHGe1]

Сообщение от kropotkina-alice

Как это знакомо...
Приходит вот такой "специалист" наниматься на работу.
- Это знаешь?
- Да как два пальца...
- А это?
- Да как два пальца...
- И это знаешь?
- Да как два пальца...
- Ну ладно, берем...

И тут начинается - вместо работы над поставленным заданием - бесконечное сидение на форумах с одной только просьбой "ПАМАГИТИ НИ ХРЕНА НЕ ПАНЕМАЮ ЗДЕЛАЙТИ ЗА МИНЯ МАЮ РАБОТУ"...

Помогальщики! Вам не стыдно?

Я не прошу за меня написать что то, я прошу помочь, и ткнуть меня носом в ошибки, как сказал Aliens_wolfs ....
и твой пост не несет какой то смысловой нагрузки... лишь стёб....

А так, спасибо огромное Aliens_wolfs.
Тему можно закрывать

[ApxaHGe1]

Переписал свой хлам, может кому то будет интересно ...

procedure Check (Server,FVer,PVer,FList:String);
var
* FVersion:String;
* HTTP:TIdHTTP;
* UpdateForm:TForm;
* ProgressBar:TProgressBar;
* Log:TMemo;
* UpdateList:TStringList;
* Stream:TMemoryStream;
* FCount:integer;
* i:integer;
begin
//Создаем форму и компоненты
//Размещаем и настраиваем компоненты
//На нашей форме
HTTP:=TIdHTTP.Create(nil);
UpdateForm:=TForm.Create(nil);
UpdateForm.Position:=poDesktopCenter;
UpdateForm.Caption:='Обновление ...';
UpdateForm.Height:=275;
UpdateForm.Width:=310;
UpdateForm.BorderStyle:=bsToolWindow;
ProgressBar:=TProgressBar.Create(nil);
ProgressBar.Parent:=UpdateForm;
ProgressBar.Height:=30;
ProgressBar.Width:=295;
ProgressBar.Visible:=True;
Log:=TMemo.Create(nil);
Log.Parent:=UpdateForm;
log.Top:=40;
Log.Width:=295;
Log.Height:=200;
Log.ScrollBars:=ssVertical;
Log.ReadOnly:=True;
Log.TabOrder:=4;
HTTP:=TIdHTTP.Create(nil);
//Запрашиваем версию файлов на сервере
FVersion:=HTTP.Get(server+FVer);
//и сравниваем с версией программы
//Если файлы на сервере более свежей версии
if *FVersion > PVer then
begin
//то отобразим форму
UpdateForm.Show;
//Выведем в ЛОГ сообщение о доступном обновлении
Log.Lines.Add ('----------------Доступно обновление '+FVersion+'----------------');
//Запросим список файлов с сервера и их размер
UpdateList:=TStringList.Create;
UpdateList.Text:=HTTP.Get(server+FList);
//Разберем список файлов обновления
//Формат файла :
//ИМЯ ФАЙЛА.ЕХЕ
//РАЗМЕР ФАЙЛА В БАЙТАХ
//И создадим поток, для загрузки файлов
Stream:=TMemoryStream.Create;
//========> БЛОК РАЗБОРА ФАЙЛОВ <========
for FCount:=0 to UpdateList.Count - 1 do
begin
Application.Initialize;
if FCount mod 2 = 0 then
begin
Application.Initialize;
//Выводим в ЛОГ имя файла и его размер
Log.Lines.Add('-'+UpdateList.Strings[FCount]+' ('+UpdateList.Strings[FCount+1]+')');
//Устанавливаем МАХ значение прогрессбара
ProgressBar.Max:=StrToInt (UpdateList.Strings[FCount+1]);
//Загружаем файл с сервера
HTTP.Get(Server+UpdateList.Strings[FCount],Stream);
//Сохраняем на диск, рядом с ЕХЕ файлом программы
Stream.SaveToFile(ExtractFilePath(ParamStr(0))+'\'+UpdateList.Strings[FCount]+'_');
//Отображаем на прогрессбаре процесс скачивания файла
ProgressBar.Position:=Stream.Position;
end;
//Очищаем поток и прогрессбар
Stream.Position:=0;
ProgressBar.Position:=0;
end;
//========> БЛОК РАЗБОРА ФАЙЛОВ END <========
//Освобождаем поток
Stream.Free;
//Выводим сообщение об удачной загрузке обновления
Log.Lines.Add('Файлы обновления загружены!');
end;

end;


пример использования

Check ('http://**********.ru/','ver.txt','0.9','FileList.txt');

Все работает, все хорошо

Только вот одно НО, Прогресс бар не много не так работает как хотелось бы ) нет плавного хода прогресса )

[Shouldercannon]

Зачем два раза

HTTP:=TIdHTTP.Create(nil);

Такая плавность? Что не хочешь загружать архив с обновлением? Например использовать 7z?

[ApxaHGe1]

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

Зачем два раза

HTTP:=TIdHTTP.Create(nil);

Такая плавность? Что не хочешь загружать архив с обновлением? Например использовать 7z?

Не внимательность, да именно так