VPF::Реализация проверки новой версии

Andreyzpr

Дата 12.4.2007, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

Как в прогремме реализовать проверку - есть ли новая версия, притом что я использую бесплатный хостинг.
Вот Например QIP заходит на http://new.qip.ru наверно ж чтото от туда загружает
Как реализовать такую вещ???

Matematik

Дата 12.4.2007, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Вариантов море.
Например так.
на сайте разместить текстовый файл вида

Код


[последняя версия]
[ссылка на последнюю версию]

http://www.ru/new.txt

Код


1.2
http://www.ru/program.exe

В программе
На кнопке проверки новой версии

Код


var sl:TStrinngList;
http:TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  sl := TStringList.Create;
  try
    sl.text := http.get('http://www.ru/new.txt'); // загрузить информацию о новой версии
    if sl[0]<>CONST_NOW_VERSION then // сравнить с текущей
      if Application.MessageBox(PChar('Доступна новая версия программы - '+sl[0]+#13#10'Скачать?'), 'Вопрос',mb_yesno)=ID_YES then // вопрос 
        ShellExecute(0, 'open', PChar(sl[1]), nil, SW_SHOWNORMAL); 
  finally
    http.Free;
    sl.Free;
  end;
end;

Это просто пример простейшего метода проверки

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »