Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.01.2013, 12:14
Praimmax Praimmax вне форума
Прохожий
 
Регистрация: 06.01.2013
Сообщения: 26
Репутация: 10
По умолчанию При обновление программы вылазило новое окно

Добрый утро. Помогите реализовать данную систему.
Описываю.
Человек пользуется моей программой я ее обновил и у него вылазит сообщение что программа устарела так и так скачайте новую "отсюда"...
Заранее благодарен.
Ответить с цитированием
  #2  
Старый 07.01.2013, 12:17
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

используй текстовый файл на сервере с записанным в него номером последней версии программы.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 07.01.2013, 12:23
Praimmax Praimmax вне форума
Прохожий
 
Регистрация: 06.01.2013
Сообщения: 26
Репутация: 10
По умолчанию

К примеру у меня сайт site.ru. Файл лежит site.ru/version.txt
Я подключаюсь к нему через программу и смотрю версию.
А как я буду узнавать что версия обновилась?
Ответить с цитированием
  #4  
Старый 07.01.2013, 13:41
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
const
  VER = '1.0';

procedure TForm1.FormCreate(Sender: TObject);
begin
  if IdHTTP1.Get('http://site.ru/version.txt')<>VER then
  begin
   // запуск процедуры обновления
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Praimmax (08.01.2013)
  #5  
Старый 07.01.2013, 23:34
scroyler scroyler вне форума
Активный
 
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
По умолчанию

Отправляй запрос на свой сайт, проверяй версию.

Например:
В файле ver.txt , стоит НЕТ, то есть, обновы нет
Если да, то обнова есть.
Делаем код

if idhttp.get('http://site.ru/ver.txt')='ДА' then
begin
//Код скачки новой версии (файл можно брать из другого текстовика или заливать на фтп)
end;
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!
Ответить с цитированием
Этот пользователь сказал Спасибо scroyler за это полезное сообщение:
Praimmax (08.01.2013)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:48.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025