Главная » Статьи » Уроки [ Добавить статью ]

Как сделать программу с обновлением?
1) Нам надо хост куда мы будем заливать файл( в котором будет записываться самая последняя версия программы), и саму программу( *.ехе ).
 Я буду использовать бесплатный хост от hut.ru ( вы можете использовать hostinger.ru либо какой-то ещё )
Создаем на компе файл "version.txt", и пишете туда последнюю версию, например я написал "v.1.0".
 Далее заливаем "version.txt" на хост, и заливаете туда же свою программу(*.exe).
2) Заходим в девел и создаем 
  • Form1 —  сама программа 
  • Form2 — форма для скачивание новой версии
3) На Form1 создаём
  • Кнопка
Свойства
Заголовок: Проверить обновление
Событие - Клик 
Код
$v = file_get_contents('http://chatik.hut4.ru/version.txt');// подключаемся к файлу if ($v == 'v.1.0'){// покачто самая новая версия ето 1.0 вот и сравниваем какая версия на сервере MessageBox("У вас самая последняя версия!", "");//если на сервере такая же тогда покаузет сообщение что у вас последняя версия }else{//иначе LoadForm(c('Form2'), LD_NONE);//грузим форму2 }
 
 
4) На Form2 создаём
  • Прогресс бар
  • Кнопка(х3)
  • Диалог открытия
  • Загрузчик
5) Теперь задаем свойства, и события.
Кнопка1 — Свойства
  • Название: btn_start
  • Заголовок: Старт
Кнопка1 — Событие — Клик
Код
c("download")->url = "http://chatik.hut4.ru/demo.exe";// указываем прямую ссылку на вашу программу $x = c("dirDlg")->execute();//переменной х присваиваем открытие диалога if ($x)//если диалог открыт c("download")->path = c("dirDlg")->fileName;//загрузить в указуную папку else//начаче return;// отменить загрузку c("download")->start();//начать загрузку c("Form2")->caption = 'Старт загрузки...';//в названии формы пишем старт загрузки c("btn_pause")->enabled = true;//кнопку пауза делаем доступной $self->enabled = false;//делаем кнопку скачать не доступной

 


Кнопка2 — Свойства 

  • Название: btn_stop
  • Заголовок: Стоп
​Кнопка2 — Событие — Клик
Код
c("download")->stop();//останавливаем загрузку c("Form2")->caption = 'Загрузка остановлена!';//пишем в заголовке программы что загрузка остановлена c("btn_pause")->enabled = false;//делаем кнопку пауза недоступной c("btn_start")->enabled = true;//делаем кнопку старт доступной
 

Кнопка3 — Свойства
  • Название: btn_pause
  • Заголовок: Пауза
Кнопка3 — Событие — Клик
Код
c("download")->pause();//делаем паузу c("Form1")->caption = 'Загрузка приостановлена!';//пишем в заголовке что Пауза $self->enabled = false;//кнопку пауза делаем недоступной c("btn_start")->enabled = true;//кнопку старт делаем доступной
 

Загрузчик — Событие —Загрузка 
Код
c("Form2")->caption = 'Скачено '.round($pos/1024).' Кб из '.round($max/1024).' Кб'; c("progress")->position = $pos; // $pos передает позицию в байтах c("progress")->max = $max; // $max передает размер в байтах if (c("progress")->position == c("progress")->max){ c("Form2")->caption = "Новая версия скачена!"; }
 

Загрузчик — Событие — Ошибка 
Код
message("Файл для скачивания недоступен!");
 

Теперь если на сервере изменить "v.1.0" на "v.1.2", то в программе будет писать что вышла новая версия.

Примечание: Когда выбираете путь, куда качать новый файл, не выбирайте "Робочий стол", ибо у меня оно туда не качает!

 

Категория: Уроки | Добавил: ХаКеР (25.02.2013) Просмотров: 3512 | Комментарии: 5 | Рейтинг: 3.1/7
Всего комментариев: 5
5 DarkSmile   (09.07.2015 14:19)
ошибка, не скачивает файл...

4 Alex_Bardakov   (07.11.2014 12:01)
Лови сяпку,я у себя в браузере обновление добавил :D!

3 Tomspider   (19.06.2014 05:47)
На Devel Studio 2.0 Работает ?

1 AstroHook   (10.07.2013 02:15)
KaKou Devel 2 uJIu 3 ???

2 ХаКеР   (10.07.2013 15:04)
DevelStudio 3.0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]