Fórum Erro idFTP e ModifiedDate (Delphi 2010 ou XE) #404651

 
procedure TForm1.btVerificarFTPClick(Sender: TObject);
Var
   indice: Integer;
   DataLocal, DataServidor, Arquivo: String;
begin
   try
      ListBox1.Clear;
      
      if IdFTP1.Connected then
         IdFTP1.Disconnect;

      IdFTP1.Connect();
      IdFTP1.ChangeDir('public_html/atualizador');

      IdFTP1.List(ListBox1.Items, '*.*', false);

      if ListBox1.Items.Count = 0 then
      begin
         Abort;
      end;

      for indice := 0 to ListBox1.Items.Count - 1 do
      begin
         Arquivo := IdFTP1.DirectoryListing.Items[indice].FileName;
         DataLocal := '';
         DataServidor := '';
         if FileExists('C:\' + Arquivo) then
         begin
            DataLocal := FormatDateTime('dd/mm/yyyy hh:mm', FileDateToDateTime(FileAge('C:\' + Arquivo)));

            DataServidor := DateToStr(IdFTP1.DirectoryListing.Items[0].ModifiedDate);  // retorna sempre 30/12/1899

         end;

         if (not FileExists('C:\' + Arquivo)) or (DataLocal <> DataServidor) then
         begin
            //if MessageDlg('Nova versão disponível! Deseja baixá-la?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
            //begin
               Application.ProcessMessages;
               try
                  if not FileExists('C:\' + ListBox1.Items.Strings[indice]) then
                  begin
                     ListBox1.Selected[indice] := true;
                     bytesToTransfer := IdFTP1.Size(ListBox1.Items.Strings[indice]);
                     IdFTP1.Get(ListBox1.Items.Strings[indice], 'C:\' + ListBox1.Items.Strings[indice], true);
                  end;
               except
                  on e: exception do
                     showmessage(e.Message);
               end;
            //end;
         end;
      end;
   finally
      IdFTP1.Disconnect;
   end;
end;