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

[MyIE]

А вот так можно узнать текущюю версию программы:

function TForm1.GetVerProg: string;
type
  TVerInfo = packed record
    Nevazhno: array [0 .. 47] of byte; // ненужные нам 48 байт
    Minor, Major, Build, Release: word; // а тут версия
  end;
var
  s: TResourceStream;
  v: TVerInfo;
begin
  result := '';
  try
    s := TResourceStream.Create(HInstance, '#1', RT_VERSION); // достаём ресурс
    if s.Size > 0 then
    begin
      s.Read(v, SizeOf(v)); // читаем нужные нам байты
      result := IntToStr(v.Major) + '.' + IntToStr(v.Minor) + '.' +
      // вот и версия...
        IntToStr(v.Release) + '.' + IntToStr(v.Build);
    end;
    s.Free;
  except
    ;
  end;
end;

Вызов процедуры:

Label1.Caption:= GetVerProg;

ВНИМАНИЕ!!! Необходимо помнить, что данная функция не вызовет ошибку, если вы не забудете в опциях включить версию программы.

[Casper-SC]

Я сделал так:
Оплатил хостинг

Закинул текстовый файл на хостинг в папку public_ftp/Update, далее просто через анонимный ftp скачиваю этот файл, то есть программа не пользуется паролями, а через анонимный ftp качает файл, не имея возможности его удалить/редактировать, то есть никто не накосячит тебе.

[igh0st]

Можно было и на бесплатном, например народ.ру

[BOBAH13]

Обычно делается скрипт, который например в JSON или XML формате отдает данные о версии, описании и любой другой информации. После ваше приложение работает с этой информацией.

Edit:
мда, видимо варианты типа "первая строка это то, а вторая это то" лучше чем все организовать согласно форматов которые специально были созданы чтобы решать подобные вопросы.

[Casper-SC]

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

Можно было и на бесплатном, например народ.ру

А что там есть анонимный ftp? Я много где искал ничего не нашёл

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

а почему именно ftp?
можно и по HTTP запрос прогнать же

[Casper-SC]

Сообщение от Пепел Феникса

а почему именно ftp?
можно и по HTTP запрос прогнать же

Надо будет попробовать. Сейчас посмотрел, это помоему действительно проще. Много лишних проблем срразу отпадает.

[rumil]

Использую в своей проге

//обновление проги
procedure update_prog;
var
newver, temp_name: string;
temp:array[0..254]of char;
begin

ShowBalloonHint(wnd,'Проверяем обновление...',NIIF_INFO,1);
ver:=0.0.3;

try
 //получаем версию обновления
 newver:=IdHTTP1.Get('http://lalala.kz/vers.ion');

except;
 // соединение не установлено , проверьте подключение к интернет
 ShowBalloonHint(wnd,'Ошибка подключения! Проверьте соединение или повторите позже',NIIF_WARNING,1);
 exit;
end;

// проверяем полученную версию
if  (Strtointdef(newver,0) > Strtointdef(ver,0))  then
 // если есть новая то запрашиваем обновление
 begin

 if ( messagebox(wnd,Pchar('Доступна новая версия,'+#13+'Будем обновляться?'),
pchar('Обновление'),MB_YESNO or MB_ICONQUESTION) = 6{mryes} ) then
    begin
     try

      //временный каталог
      GetTempPath(254,temp);
      //для сохранения файла
      LoginInfo := TStringList.Create;
      //чистим
      LoginInfo.Clear;
      ShowBalloonHint(wnd,'Получаем обновление...',NIIF_INFO,1);
      LoginInfo.add(IdHTTP1.Get('http://lalala.7sk.kz/Mbalance.exe'));

      //сохраняем файл
      LoginInfo.SaveToFile(ExtractFilePath(ParamStr(0))+'Mbalance.exe_');
     except
     on e:Exception do
      begin
       ShowBalloonHint(wnd,'Немогу получить обновление'+#13+'Ошибка: '+e.Message,NIIF_INFO,1);

       exit;
      end;
     end;

     ShowBalloonHint(wnd,'Запускаем новую версию',NIIF_INFO,0);

     sleep(1000);
    try // блок try..except для обработки исключений (ошибок)
      ChDir(ExtractFilePath(ParamStr(0)));
      LoginInfo.Clear;
      LoginInfo.add('@echo off');
      LoginInfo.add('del Mbalance.exe');
      LoginInfo.add('ren Mbalance.exe_ Mbalance.exe');
      LoginInfo.add('Mbalance.exe');
      LoginInfo.add('for /L %%b in (1,1,500) Do @Echo %%b >Nul');
      LoginInfo.add('del update.bat');

      LoginInfo.SaveToFile(ExtractFilePath(ParamStr(0))+'update.bat');


      // запускаем пакетный файл который был создан программой
      ShellExecute(wnd,'open',pchar(ExtractFilePath(ParamStr(0))+'update.bat'), nil,nil, SW_HIDE);

      // завершаем программу
      ExitProcess(0);
     except

     end;

    end;  { конец запроса если есть новая то запрашиваем обновление}
 end
else
 ShowBalloonHint(wnd,'У вас уже установлена новая версия!!!',NIIF_INFO,1);

LoginInfo.Free;
end;

[DIgorevich]

Сообщение от Casper-SC

Надо будет попробовать. Сейчас посмотрел, это помоему действительно проще. Много лишних проблем срразу отпадает.

Лично я делал так (здесь же на форуме нашел). Создал на хосте html содержания типа (на народе.ру это тоже возможно):

1.0.0.0
Добавлено поле "Место работы"
Увеличено кол-во знаков в поле "Место жительства"
Добавлена прозрачность главного окна
Исправлены мелкие недочеты

Где 1-ая строка - это версия программы, а все остальное ниже это нововведения.

Потом по таймеру выставил проверку обновлений (используется IdHTTP):

function GetVerProg: string; //Функция получения версии экзешника
type
  TVerInfo = packed record
    Nevazhno: array [0 .. 47] of byte; // ненужные нам 48 байт
    Minor, Major, Build, Release: word; // а тут версия
  end;
var
  s: TResourceStream;
  v: TVerInfo;
begin
  result := '';
  try
    s := TResourceStream.Create(HInstance, '#1', RT_VERSION); // достаём ресурс
    if s.Size > 0 then
    begin
      s.Read(v, SizeOf(v)); // читаем нужные нам байты
      result := IntToStr(v.Major) + '.' + IntToStr(v.Minor) + '.' +
      // вот и версия...
        IntToStr(v.Release) + '.' + IntToStr(v.Build);
    end;
    s.Free;
  except;
  end;
end;

procedure Tmainform.Timer1Timer(Sender: TObject);
begin
try
 memo1.Lines.Text:=IdHTTP1.Get('АДРЕС_СТРАНИЧКИ');
  except
    // Если *.htm недоступен, тогда сообщаем об этом и разъединяемся
    IdHTTP1.Disconnect;
    Exit;
  end;
  // Сравниваем полученное значение с имеющимся
  if memo1.Lines.Strings[0] = GetVerProg then
  // MessageBox(0, 'У вас последняя версия', 'Информация', MB_ICONInformation)
  else
    begin
      timer1.Enabled:=false;   //останавливаю проверку и 
      form6.ShowModal; //отображаю форму, где предлагается 
//ознакомиться c нововведениями и обновиться.

    end;
end;

И ничего сложно, а также никакие фтп не нужны.

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

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