Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Июн

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

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;

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