Автоматическое обновление программы

[Paul Hindenburg]

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

[Квэнди]

1. Есть спецальные сторонние компоненты которые занимаются именно автоматическим обновлением.
2. Пишешь отдельный проект автообновления, задача которого просто заменять существующие файлы твой программы новыми откуда бы то нибыло (Lan,Http,Ftp). В самой же программе маленькая процедурка, которая проверяет текущую версию программы и версию на сервере. Последнее можно организовать разными способами ( зависит лишь от твой фантазии). Можно, кпримеру, в папку в сети (или еще где бы нибыло), где будет лежать твоя "новая версия" положить какой- нибудь файлик, в котором будет храниться просто некое число. Твоя процедурка должна при запуске прогрммы "прочитать" это число из того файлика и сравнить с числом (нус кажем хранящимся в реестре), относящимся к текущей версии программы и на основе сравнения сделать выводы о необходимости или не необходимости апдейта. Если вывод положительный, то процедурка запускает "апдейтер" и закрывает главное приложение.

[OrdJONY]

Или же непосредственно из самой программы

function GetVersion: integer; stdcall;

[Paul Hindenburg]

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

Или же непосредственно из самой программы

function GetVersion: integer; stdcall;

А эту функцию, откуда вызывать? Я понимаю что она внешняя и судя по всему должна находится в dll. По моему лучше в текстовый файл написать версию и все. Как сделаю - выложу исходники. может еще что нибудь поправить нужно будет.

[Квэнди]

function GetVersion: string;
 var
   VerInfoSize: DWORD;
   VerInfo: Pointer;
   VerValueSize: DWORD;
   VerValue: PVSFixedFileInfo;
   Dummy: DWORD;
 begin
   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
   GetMem(VerInfo, VerInfoSize);
   GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
   VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
   with VerValue^ do
   begin
     Result := IntToStr(dwFileVersionMS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
     Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
   end;
   FreeMem(VerInfo, VerInfoSize);
 end;

[andrey4623]

как ни меняю версию, а GetVersion выдает одно и то же число

[B_N]

Во избежание лишней путаницы не стоит называть функцию "GetVersion", поскольку уже существует функция Windows с таким именем, возвращающая версию ОС.

[SKS]

Всем привет!
Недавно я столкнулся с проблемой обновления программы и нашел ответ.
1. Зарегистрировал сайт (любой с поддержкой ФТП), сайт делал для того чтобы вылаживать только свои программы. Если тупо для обновлений программ, можно зарегиться даже на Юкозе.
В программе добавляем два компонента со вкладки INDY CLIENTS и добавляете два компонента: idFTP и idHTTP. Добавляете Label и пишите в Caption к примеру 1.0 - это версия программы. В программу добавляете кнопку и на ее действие прописываете:

procedure TForm1.Button1Click(Sender: TObject);
var
v:string;
begin
v:=HTTP.Get('http://адрес вашего сайта/update/version.txt');
if v=version.Caption then
showmessage('Вы используете последнюю версию программы!')
else
begin
ftp.Connect(true);
if ftp.connected then
begin
ftp.ChangeDir('update');
ftp.Get('Project.exe',extractfilepath(application.ExeName)+'\project.exe',true);
end;
ftp.Disconnect;
showmessage('ok');
end;

end;

end.

Как видно из кода, на ФТП сервере вашего сайта в корне создаем папку с именем update, далее в данную папку заливаем текстовый документ с именем version, в документ текстовый записать версию программы на ФТП (допустим 1.1). И заливаем файл обновленной версии на ФТП с именем project.

Чуть не забыл компонент idFTP надо настроить, указать логин пароль и адрес ФТП сервера.

[Voody]

Опасность такого метода в том, что в программе хранятся, а затем при запросе передаются логин и пароль FTP. Недоброжелатель может зайти на FTP и удалить/залить/заменить ваши файлы.
Тут лучше использовать просто закачку по прямой ссылке

[Smitt&Wesson]

Менять версию программы, без ведома пользователя, это жестоко, не демократично и не правомерно.
Пользователь сам должен согласиться с тем, нужно ли ему обновление или нет.
Вы помещаете на сервере махонький текстовый файлик с описанием улучшений в программе. При заходе в инет, программа считывает этот файлик и в первой строке, проверяет версии на совпадение. Если версии не совпадают, формируется надпись с предложением о замене версий и прямая ссылка на скачивание (обновление DLL и т.д.).