Buscar

Verificar versão do programa online

Código

Criação do componente IdHTTP em runtime que verefica a versão pela web aonde é criado
1 arquivo .ini contendo a verão exemplo 1.0 no .ini e dentro do projeto uma variavel com
a versão do software exemplo 0.9 então significa que a versão do .ini ´e maior que a variavel do executavel então força o cliente fazer o update do sistema. abaixo segue
o codigo fonte em function.

1 - Passo inclua na uses     IdHTTP

2 - Passo criando uma function

function verifica_versao : string ;
var
web : TIdHTTP;
vr_update, vr_software , vr_web : String;
begin
web := TIdHTTP.Create(nil);
with web do
begin
vr_update := Get('http://www.kghost.com.br/update.ini');
vr_software := '0.9' ;
vr_web :=  vr_update ;
form1.web.Text :=  vr_web;
form1.pr.Text :=  vr_software;
if (vr_update > vr_software) then
ShowMessage('Nova versão do software para baixar...');
Result := vr_update;
end;
end;

3 - Passo cria um button e coloque o seguinte codigo

verifica_versao;



Pronto somente isso espero ter gostado !

Visitem nosso site   : www.kghost.com.br  ou entre em contato via email ou msn ntnetx@hotmail.com

Todos direitos reservados : André Luiz

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 24/06/10
Por: Andre
Visualizada: 6460 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009