Programação

Como Verificar se Existe uma Nova Versão do Programa Online – Delphi

Curta Nossa Página

Função para verificar se existe ou não uma nova versão do programa online com Delphi.

1. Crie um arquivo e salve com a extensão .ini:

Nome: update.ini
Conteúdo: 1.0

Adicione na cláusula USES:

uses IdHTTP;
2. Função:
// Inicio Função para verificar atualizações
function ChecarAtualizacao: String;
var
web: TIdHTTP;
versaoatual, versaonova : String;
begin
  web := TIdHTTP.Create(nil);
  web.Request.Accept := 'text/html, */*';
  web.Request.UserAgent := 'Mozilla/3.0 (compatible; IndyLibrary)';
  web.Request.ContentType := 'application/x-www-form-urlencoded';
  web.HandleRedirects := True;
  versaonova := web.Get('http://www.seusite.com/update.ini');
  versaoatual := '1.0';
// Se a versão do arquivo INI for maior que a atual 1.0: Ex: 1.1 > 1.0
if (versaonova > versaoatual) then
    ShowMessage('Há uma nova versão disponível')
// Senão
else
    ShowMessage('Nenhuma atualização disponível');
end;
// Fim Função para verificar atualizações
3. Adicione um botão:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ChecarAtualizacao;
end;

Etiquetas
Botão Voltar ao topo
Fechar