| Главная » Статьи » Уроки | [ Добавить статью ] |
Как сделать программу с обновлением?
1) Нам надо хост куда мы будем заливать файл( в котором будет записываться самая последняя версия программы), и саму программу( *.ехе ).
Я буду использовать бесплатный хост от hut.ru ( вы можете использовать hostinger.ru либо какой-то ещё )
Создаем на компе файл "version.txt", и пишете туда последнюю версию, например я написал "v.1.0".
Далее заливаем "version.txt" на хост, и заливаете туда же свою программу(*.exe). 2) Заходим в девел и создаем
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 создаём
Кнопка1 — Свойства
Кнопка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 — Свойства
Код
c("download")->stop();//останавливаем загрузку
c("Form2")->caption = 'Загрузка остановлена!';//пишем в заголовке программы что загрузка остановлена
c("btn_pause")->enabled = false;//делаем кнопку пауза недоступной
c("btn_start")->enabled = true;//делаем кнопку старт доступной
Кнопка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", то в программе будет писать что вышла новая версия. Примечание: Когда выбираете путь, куда качать новый файл, не выбирайте "Робочий стол", ибо у меня оно туда не качает!
| |
| Всего комментариев: 5 | |||
| |||
0
