| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверить дату обновления файла на WEB Server-е [D6, WinXP]

DSKalugin ©   (2005-07-15 18:08:00) 

необходимо получить значение переменной окружения, которое содержится в 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г. да и скачивание само не нужно, пока дата не будет выяснена
Вчем проблема и как решить?

---

DSKalugin   (2005-07-15 18:48:00) [1]

Так?
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;

---

DSKalugin   (2005-07-15 18:40:00) [2]

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

---

Reindeer Moss Eater   (2005-07-15 18:25:00) [3]

FDownloadHTTP.Request.

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

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

---

Reindeer Moss Eater   (2005-07-15 18:15:00) [4]

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

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

---

Наверх