Программа проверяет обновление новой версии программы

[xitroi]

Уважаемые программисты не подскажите как реализовать программно проверку, вышла ли новая версия программы.
Но для начала нужно, чтобы программа проверяла наличие интернет соединения, а потом уже скажем раз в день, не как у Gom Player при каждом запуске проверяла вышла ли новая версия программы.
Если тут кто-то способен на это, то если можно покажите как это реализовать.
Заранее благодарствую!

[notHaker]

Показать можно... Но не реализовать.

Для своей программы?

Но для начала нужно, чтобы программа проверяла наличие интернет соединения

пробуй соединиться на www.ru Он всегда в сети ))))

[xitroi]

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

Показать можно... Но не реализовать.

Для своей программы?

Как же так? Неужели?
А вот прога Skype которая написана на Delphi периодически сообщает:
появилась новая версия программы. Хотите обновиться?

[Пепел Феникса]

на сайте храните маленький файлик с номером версии, его скачивайте в память, и сравнивайте.

[xitroi]

Что это за файлик и в каком расширении?
Можно здесь по подробней...

[DomiNick]

Что это за файлик

Тот который сделаете Вы для своей программы и разместите где-нибудь на сайте... В нём будет написан номер последней версии - и если она новее, то программа должна обновляться...

и в каком расширении?

Можете своё придумать...

[Пепел Феникса]

текстового хватит вполне.

[notHaker]

Как же так? Неужели?

мде... я ктому, что вы сами будете реализовать...

[Shouldercannon]

Без хостинга по любому не обойтись.
Вот пример. Есть некий файл с расширением *.htm и в нём находится версия 1.0.0.1
Создадим переменную, которая будет хранить в себе текущую версию программы

SetUpdValue := '1.0.0.0';

Далее мы получаем версию с *.htm

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    UpdResulting := IdHTTP1.Get('http://URL на наш *.htm'); // UpdResulting переменная в которую помеситм содержимое *.htm
  except
    // Если *.htm недоступен, тогда сообщаем об этом и разъединяемся
    MessageBox(0, 'Сервер недоступен! Попробуйте позже.', 'Ошибка', MB_ICONError);
    IdHTTP1.Disconnect;
    Exit;
  end;

  // Сравниваем полученное значение с имеющимся
  if UpdResulting = SetUpdValue then
    MessageBox(0, 'У вас последняя версия', 'Информация', MB_ICONInformation)
  else
    // Иначе предлагаем обновиться или обновляемся
end;

[uberchel]

Можно сделать все намного проще, проверять сразу из exe и если версия больше то скачивать.