Форум: "Сети";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

Проверить дату обновления файла на 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c