Как сделать обновление программы с сайта?

Posted by Chas under Пост-обзор

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

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;

тема на форуме

Похожие статьи

• Проверка занятости логина на странице с помощью indy
• Соединение двух компьютеров через интернет с помощью сокетов?
• Как нажать на кнопочку с именем submit_way_selection2 на сайте?
• Авторизация на mail.ru с помощью indy
• Прием данных/отсылка в поток Indy10
• ProgressBar для скачивания
• Как отправить письмо средствами Delphi?
• Пример получения даты и температуры с сайта
• Пример программы принимающей сообщения с @mail.ru
• Как на форме отобразить значения ТИЦ сайта?