Atualizador de sistema via ftp com problemas
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
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
Curtidas 0
Respostas
Fernando Sulsbach
04/08/2010
Use isto
var
ServerExeDate: TDateTime;
ServerExeFile := ftp://site.com.br;
ServerExeDate := FileDateToDateTime(FileAge(ServerExeFile));
var
ServerExeDate: TDateTime;
ServerExeFile := ftp://site.com.br;
ServerExeDate := FileDateToDateTime(FileAge(ServerExeFile));
GOSTEI 0
Heitor Pereira
04/08/2010
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))
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))
GOSTEI 0