Fórum Atualizador de sistema via ftp com problemas #382820

04/08/2010

0

Bom dia,     estou tentando implementar o atualizador automático de sistemas (em Delphi 2010) que peguei como exemplo das video-aulas do Rodrigo Carreiro mas não está dando muito certo.   O sistema faz a verificação da data entre os executáveis corretamente, mas ao baixar o executável do ftp o arquivo vem com um tamanho maior do que deveria e com problemas, pois ao tentar executá-lo aparece a mensagem: Sistema.exe não é um aplicativo Win32 válido.   Fiz um outro sistema, mas utilizando o próprio componente Indy 10, também com o D2010, só que agora não consigo obter a data correta do arquivo do ftp, sendo que a linha de comando para comparação dos arquivos é a mesma do exemplo do Rodrigo:   if FileDateToDateTime(FileAge(ExtractFilePath(Application.ExeName)+Filename)) <
      IdFtp1.FileDate(FileName) then
begin
    if MessageDlg('Existe uma atualização disponível. Deseja Atualizar ?', mtConfirmation,mbYesNo,0) = mrYes then          ...   Quando debugo a linha IdFtp1.FileDate(FileName), aparece somente 30/12/1899. No exemplo do Rodrigo aparece o nome do arquivo, data e hora.     Alguém pode me ajudar com isso ?   Obrigado,   Marcos
Marcos

Marcos

Responder

Posts

01/02/2012

Fernando Sulsbach

Use isto
var
ServerExeDate: TDateTime;

ServerExeFile := ftp://site.com.br;
ServerExeDate := FileDateToDateTime(FileAge(ServerExeFile));
Responder

Gostei + 0

07/05/2012

Heitor Pereira

Bom dia,
 
 
estou tentando implementar o atualizador automático de sistemas (em Delphi 2010) que peguei como exemplo das video-aulas do Rodrigo Carreiro mas não está dando muito certo.
 
O sistema faz a verificação da data entre os executáveis corretamente, mas ao baixar o executável do ftp o arquivo vem com um tamanho maior do que deveria e com problemas, pois ao tentar executá-lo aparece a mensagem: Sistema.exe não é um aplicativo Win32 válido.
 
Fiz um outro sistema, mas utilizando o próprio componente Indy 10, também com o D2010, só que agora não consigo obter a data correta do arquivo do ftp, sendo que a linha de comando para comparação dos arquivos é a mesma do exemplo do Rodrigo:
 
if FileDateToDateTime(FileAge(ExtractFilePath(Application.ExeName)+Filename))
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar