ActiveDelphi

[vang4]

queria un codigo que comparase a data do arquivo no servidor com a do meu pc, e ai atualizace de acordo com a data 'Maior/menor'
no caso o arquivo do meu pc esta no formato ''rar''
e o do servidor ftp tamben .
o meu programa ja conecta e baixa o arquivo mas não compara a diferença

[vang4]

segue o meu codigo abaixo de atualisação
se algem puder me ajudar nele agradeso


procedure TForm1.Button1Click(Sender: TObject);
var
Erro: Word;
begin
IdFtp1.Disconnect;
IdFtp1.Host:= 'host' ;
IdFtp1.Username:= ' usuario';
IdFtp1.Password:= 'senha';
IdFtp1.Connect;
ShowMessage('Conectado...');

{Aqui nece ponto teria que ter un codigo para verifiar e conparar o arquivo A.zip do host com o do meu pc e diser se e uma verção atual Seria algo como verifiar a data e comparar, temtei filtrar de varios programas, mas não deu certo}

if not directoryExists('C:\tmpDatabaseUpdate') then
CreateDir('c:\tmpDatabaseUpdate');
IdFTP1.Get('A.zip', 'c:\tmpDatabaseUpdate\A.zip');
ShowMessage('Baixado');
IdFtp1.Disconnect;
ShowMessage('desconetado');
Erro := WinExec('ModV01.exe ', SW_SHOW);
if Erro <= 31 then { Se ocorreu erro... }
ShowMessage('Erro ao executar o programa.');
form1.Close;

end;

[Kirk_guitar]