Update программы с сайта.

[darvin232]

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

Суть:
При запуске программы она должна проверять .txt файл на сайте (по указанному пути). Если в .txt файле версия стоит выше чем версия самой программы, то скачать файл обновления с сайта (по указанному пути).

Спасибо заранее.

[Человек_Борща]

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

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

Суть:
При запуске программы она должна проверять .txt файл на сайте (по указанному пути). Если в .txt файле версия стоит выше чем версия самой программы, то скачать файл обновления с сайта (по указанному пути).

Спасибо заранее.

Стучи в асю 100500334, напишу.

[bulldog5293]

Если в .txt файле версия стоит выше чем версия самой программы, то скачать файл обновления с сайта (по указанному пути).

просто постоянно менять названия txt файла, к примеру с 1.000001 на 1.000002

[Человек_Борща]

Я например сделал что-то похожее но версия и информация хранится в ini файле. Файл скачивается и просматривается. Версии сравниваются. При нужном отличии скачивается новая версия ПО.

[darvin232]

Спасибо всем. Я сам сумел написать такую программу. Нашёл в интернете простой код для скачивания и потом просто через ini файл проверял версию. (Собственно по методу Человек_Борща)

Вот код:

uses Wininet; 

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;

Использование:

var FileOnNet, LocalFileName: string
begin
   FileOnNet:='Ваша ссылка на файл';
   LocalFileName:='Название конечного файла'; 

   if GetInetFile(FileOnNet,LocalFileName)=True then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download') 

end;

Источник

[navodri]

Исходник обновления проги http://lenininc.narod.ru/sources.html

[Johnson]

В дополнение...

Приложение имеет право изменить имя своего исполняемого файла.
Проверяем версию.
Если версия отличается - переименовываем свой файл, качаем файл с сервера, запускаем его и убиваемся.