Topic: возможно сделать обновления

подскажите как можно сделать так

1. есть файл допустим названия такое 34725.exe

2. что бы при открытие проекта он проверял его если дата файла новая то что бы на проекте показывалась что вышла новая версия обновите и ссылка на это файл что бы они могли его скачать

Re: возможно сделать обновления

?

Re: возможно сделать обновления

модератор можете помочь с проблемой ?

Re: возможно сделать обновления

нашел в интернете такую татю похожее что мне нужно кто может по мочь как можно реализовать ее тут https://zhyk.ru/forum/showthread.php?t=345489а

Re: возможно сделать обновления

Извиняюсь за задержку с ответом, был в отпуске.
Вопрос все еще актуален для вас?

Dmitry.

Re: возможно сделать обновления

да да да голову сломал уже

Re: возможно сделать обновления

и опять пропали sad

Re: возможно сделать обновления

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



Но обычно проверку на наличие новой версии делается через Интернет. На сайт выкладываете текстовый файл, в кором написан номер версии, затем с помощью функции HTTPGet получаете содержимое этого файла и сравниваете.

Dmitry.

Re: возможно сделать обновления

пример можно у меня не получается ?

Re: возможно сделать обновления

6katran6 wrote:

пример можно у меня не получается ?

Я описал два примера, какой именно сценарий необходим?

Dmitry.

Re: возможно сделать обновления

вот этот Но обычно проверку на наличие новой версии делается через Интернет.

Re: возможно сделать обновления

6katran6 wrote:

вот этот Но обычно проверку на наличие новой версии делается через Интернет.

пример

CONST
    CURRENT_VERSION = 3; // текущая версия 3


procedure Form1_OnShow (Sender: string; Action: string);
var
    s: string;
begin
    s := HTTPGet('http://mysite/version.txt'); // узнаем  номер актуальной версии
    if ValidInt(s) then
    begin
        if CURRENT_VERSION < StrToInt(s) then // если текущая версия меньше актуальной
        begin
            ShowMessage('Ваша версия программы устарела, будет открыта web страница, где вы можете скачать последнюю версию.');
            OpenURL('http://mysite/download.html');
        end;
    end;
end;
Dmitry.

Re: возможно сделать обновления

у меня не работает почему то sad возможно ка кто что бы проверка проходила при нажатие кнопки.

и еще можете показать пример что бы было можно не через интернет а по локальном серверу проверять версию а то тут 2 проект лежит на
сервере

Re: возможно сделать обновления

пример для локальной проверки

CONST
    CURRENT_VERSION = 3; // текущая версия 3


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
    s := OpenTextFile('//192.168.0.1/SharedFolder/version.txt'); // узнаем  номер актуальной версии
    if ValidInt(s) then
    begin
        if CURRENT_VERSION < StrToInt(s) then // если текущая версия меньше актуальной
        begin
            ShowMessage('Ваша версия программы устарела, будет открыта web страница, где вы можете скачать последнюю версию.');
            OpenURL('http://mysite/download.html');
        end;
    end;
end;

function OpenTextFile(FileName: string): string;
var
    sl: TStringList;
begin
     sl := TStringList.Create;
     sl.LoadFromFile(FileName);
     Result := sl.Text;
     Result := ReplaceStr(Result, #13#10, '');
     sl.Free;
end;


если что то не работает, пожалуйста описывайте подробней, что именно не получается.

Dmitry.

Re: возможно сделать обновления

тут можно как то OpenURL('http://mysite/download.html'); при нажатие на кнопку сахарить можно было и суда выбрать а то когда нажимаешь
на кнопу сразу открывается файл ?

Re: возможно сделать обновления

6katran6 wrote:

тут можно как то OpenURL('http://mysite/download.html'); при нажатие на кнопку сахарить можно было и суда выбрать а то когда нажимаешь
на кнопу сразу открывается файл ?

К сожалению не понял вопроса, перефразируйте пожалуйста.

Dmitry.

Re: возможно сделать обновления

спасибо  уже разобрался сам smile