Buscar por:

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