Eu uso a data do executável como base para atualização através da
seguinte função:
try
Data_Local := DateTimeToStr(FileDateToDateTime(FileAge(Prog_Local)));
except
Data_Local := DateTimeToStr( 0);
end;
try
Data_Remoto :=
DateTimeToStr(FileDateToDateTime(FileAge(Prog_Remoto)));
except
Data_Remoto := DateTimeToStr( 0);
end;
Com isso eu comparo se o programa local é anterior ao remoto e ai tomo
as devidas providencias.
Eduardo Silva dos Santos escreveu:
>
> Olá Ricardo, essa semana eu fiz algo nesse sentido.
>
> fiz assim no site eu guardo um arquivo txt chamado financeiro_version.txt
>
> dentro dele eu tenho a versão atual do sistema ex: 1.22.56
>
> quando o cliente entra no sistema, tenho uma rotina que baixa esse
> arquivo,
> abre e compara a linha da versão com a versão do sistema, se for maior o
> sistema avisa que tem atualização e la mesmo eu baixo o novo exe.
>
> espero ter ajudado.
>
> 2007/1/12, Ricardo Amorim <[EMAIL PROTECTED]
> <mailto:ricardoamorim1%40gmail.com>>:
> >
> > Olá Pessoal, boa tarde a todos, ingressei no grupo a semana passada e
> > estou achando muito interessante as dúvidas enviada, muito legal
> > mesmo.
> >
> > Bom na minha primeira mensagem já vou mandar uma cabeluda. Tenho
> > alguns softwares instalados em diversos clientes e quando atualizo as
> > versões tenho com comunica-los via email da disponibilidade para
> > download.
> >
> > Alguém sabem como fazer para que o software instalado no cliente
> > detecte automaticamente uma nova versão disponível no meu site de
> > download ou coisa assim, algo parecido com o que acontece com os
> > antivirus por exemplo, o proprio software ao ser aberto notifica o
> > usuário da disponibilidade de uma nova versão.
> >
> > Se alguem puder clarear essa pra mim serei imensamente grato.
> >
> > Um abraço à todos.
> >
> > Ricardo Amorim
> >
> >
>
> --
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com>
> Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
