Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Проверить дату обновления файла на WEB Server-е   Найти похожие ветки 

 
DSKalugin ©   (2005-07-15 18:08) [0]

необходимо получить значение переменной окружения, которое содержится в HTTP заголовке Last-Modified

Оно примерно следующего содержания
Fri Jul 15 17:07:36 2005 Last-Modified: Fri, 11 Jan 2002 20:00:00 GMT

procedure TForm1.Button1Click(Sender: TObject);
var
Response      :TFileStream;
FDownloadHTTP :TIdHTTP;
t1, t2, t3 :pFileTime;
begin
 try
  Response := TFileStream.Create("C:\z_proga\free_1.txt", fmCreate);
  FDownloadHTTP := TIdHTTP.Create(nil);
  try
    FDownloadHTTP.Request.Referer := "xxx";
    FDownloadHTTP.Get("http://fight-of-tanks.narod.ru/index.html", Response);

    Label1.Caption:= DateToStr( FDownloadHTTP.Request.LastModified );

  finally
    FDownloadHTTP.Free;
    Response.Free;
  end;
end;

этот код возвращает неверную дату типа 1988г. да и скачивание само не нужно, пока дата не будет выяснена
Вчем проблема и как решить?


 
Reindeer Moss Eater ©   (2005-07-15 18:15) [1]

этот код возвращает неверную дату типа 1988г.

Откуда утверждение что неверную?
А что реально в заголовке написано?


 
Reindeer Moss Eater ©   (2005-07-15 18:25) [2]

FDownloadHTTP.Request.

При чем здесь request, если тебя ответ сервера интересовать должен?
Смотри поля Response

Увидишь там 18.05.2005 18:47:27


 
DSKalugin ©   (2005-07-15 18:40) [3]

Точно! Спасибо, а как выяснить дату/время перед закачкой


 
DSKalugin ©   (2005-07-15 18:48) [4]

Так?
procedure TForm1.Button2Click(Sender: TObject);
var
FDownloadHTTP :TIdHTTP;
begin
 FDownloadHTTP := TIdHTTP.Create(nil);
 try
   FDownloadHTTP.Head("http://fight-of-tanks.narod.ru/index.html");
   ShowMessage(DateToStr(FDownloadHTTP.Response.LastModified));
 finally
   FDownloadHTTP.Free;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
14-1128713108
Старшеклассник
2005-10-07 23:25
2005.10.30
cmd и кодировки


2-1128605830
Толян
2005-10-06 17:37
2005.10.30
Массивы


14-1128501028
MBo
2005-10-05 12:30
2005.10.30
Ветка об $ALIGN


1-1129013418
Gorez
2005-10-11 10:50
2005.10.30
janXMLparser2


1-1128439890
~SaM~
2005-10-04 19:31
2005.10.30
Арифметические действия с числами, записанными в строках.