Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 28.05.2013, 09:56   #1
Qwerty192837
Новичок
Джуниор
 
Регистрация: 28.05.2013
Сообщений: 1
Сообщение Сравнение времени локального Zip архива с Zip архивом на FTP

Доброго времени суток
Нужна помощь!!!
Нужно сравнить время локального Zip архива с Zip архивом на FTP и скачать его если дата и время локального Zip архива различаются на 5 минут с Zip архивом на FTP. Как сделать сравнение времени до 5 мин.
Сделал до 1 часа:
Код:
 begin
   Panel1.Caption:='Идет проверка обновления для файла '+ListZips.Strings[k];
   Application.ProcessMessages;
   CheckDateZipFile(ListZips.Strings[k],size_zip_file,FZipRemoteDate);
   FZipRemoteDate:=FZipRemoteDate+7*Hour; // +7 часов т.к. фтп в GMT

   FZipLocalDate:=FileDateToDateTime(
                  FileAge(
                  FormMain.LabelCreat.Caption+'\'+'SUB_'+
                  FormMain.LabelNumber.Caption+'\'+
                  ListZips.Strings[k]));

   if size_zip_file>0 then
    if HoursBetween(FZipRemoteDate,FZipLocalDate)>1 then
     begin
      MemoFind.Lines.Add(ListZips.Strings[k]);
      size_zip[n]:=size_zip_file;
      Sum_size_zip:=Sum_size_zip+size_zip_file;
      Label3.Caption:='Необходимо будет скачать = '+MakeMemSize(Sum_size_zip);
      n:=n+1;
      Application.ProcessMessages;

Последний раз редактировалось Stilet; 28.05.2013 в 11:50.
Qwerty192837 вне форума Ответить с цитированием
Старый 28.05.2013, 10:20   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

Там же, где HoursBetween есть MinutesBetween
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Код распаковки ZIP-архива стал выдавать ошибку Maxx Microsoft Office Excel 1 23.10.2014 07:35
Распаковка zip архива используя Ionic.Zip santaXZ C# (си шарп) 1 20.04.2013 02:46
DSPack воспроизведение из ZIP архива Adult_Master Мультимедиа в Delphi 0 22.01.2013 18:32
Delphi 2010 создания zip архива MORPEH Общие вопросы Delphi 5 11.12.2012 16:03
Чтение с zip архива Nikk[UA] Общие вопросы Delphi 15 21.06.2012 00:15