[Tombo]

Всем привет! Помогите пожалуйста с написанием кода проверки новой версии программы через web (http, ftp) на Delphi 2009. Если есть уже готовые бесплатные компоненты, то буду благодарен за ссылки на них. Заранее спасибо!

[k@Z@k]

Код:

Cver:='1.0'; // текущую версию хранить на диске и подгружать 
                         //при  проверке
FS:=TMemoryStream.Create;
IdHTTP1.Get('http://192.168.0.10/releaser/update.ini', FS);
fs.SaveToFile('update.ini');
FS.Free;
AssignFile (up,'update.ini');
Reset (up);
Read (up,Nver);
CloseFile (up);
except
if Cver = Nver then
ShowMessage ('Вы используете последнию версию программы');
if Cver < Nver then
answer:=MessageDlg('Доступна новая версия программы!'+#13+'Хотите загрузить обновление?',mtInformation,[mbYes,mbNo],0);
if answer = mrYes then
begin
Erase (up);
FS:=TMemoryStream.Create;
IdHTTP1.Get('http://192.168.0.10/releaser/Releaser.exe', FS);
fs.SaveToFile('Releaser_.exe');
FS.Free;
Rewrite (up,'Update.bat');
WriteLn (up,'pause 5');
WriteLn (up,'DEL Releaser.exe');
WriteLn (up,'DEL Update.ini');
WriteLn (up,'RENAME Releaser_.exe Releaser.exe');
WriteLn (up,'pause 10');
WriteLn (up,'Releaser.exe');
CloseFile(up);
ShellExecute(0,'open','update.bat',nil,nil,SW_NORMAL);
Application.Terminate;

где-то видел такую реализацию