Сравнение времени локального Zip архива с Zip архивом на FTP

28.05.2013, 10:07. **Показов** 1114. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Доброго времени суток
Нужна помощь!!!
Нужно сравнить время локального Zip архива с Zip архивом на FTP и скачать его если дата и время локального Zip архива различаются на 5 минут с Zip архивом на FTP. Как сделать сравнение времени до 5 мин.
Сделал до 1 часа:

Delphi

begin
Panel1.Caption:='Идет проверка обновления для файла '+ListZips.Strings[k];
Application.ProcessMessages;
CheckDateZipFile(ListZips.Strings[k],size_zip_file,FZipRemoteDate);
FZipRemoteDate:=FZipRemoteDate+7*Ho ur; // +7 часов т.к. фтп в GMT
 
FZipLocalDate:=FileDateToDateTime(
FileAge(
FormMain.LabelCreat.Caption+'\'+'SU B_'+
FormMain.LabelNumber.Caption+'\'+
ListZips.Strings[k]));
 
if size_zip_file>0 then
if HoursBetween(FZipRemoteDate,FZipLoc alDate)>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;

28.05.2013, 13:21

Не по теме:

Как то сравнивал дату своего файла на компе и только что посланного на FTP - ни разу не совпали. Сервер выставлял свою дату.

angstrom
	28.05.2013, 13:21 Сравнение времени локального Zip архива с Zip архивом на FTP #2
	Не по теме: Как то сравнивал дату своего файла на компе и только что посланного на FTP - ни разу не совпали. Сервер выставлял свою дату.

Опции темы