Обновление контента веб-страницы: проверка изменений в приложении на Delphi

Delphi , Синтаксис , Дата и Время

Вопрос пользователя заключается в необходимости отслеживания изменений веб-страницы, отображаемой в приложении Delphi с использованием компонента TWebBrowser. Для решения этой задачи необходимо определить, были ли изменения в HTML-странице с момента последнего отображения. Пользователь хочет получить информацию о времени последнего изменения или размере/хеш-сумме страницы, но без необходимости высокой точности и зависимости от свойств, которые могут быть нестабильными при использовании простых инструментов редактирования, таких как Notepad.

Подходы к решению проблемы

Использование HTTP-запроса HEAD

Один из подходов заключается в использовании HTTP-запроса HEAD для получения заголовков Last-Modified и Content-Length, которые предоставляют информацию о времени последнего изменения и размере файла соответственно. Это можно сделать с помощью компонента TIdHTTP из библиотеки Indy.

procedure TForm1.Button1Click(Sender: TObject);
var
  Url: string;
  Http: TIdHTTP;
  LastModified: TDateTime;
  ContentLength: Integer;
begin
  Url := 'http://yoursite.com/newspage.html';
  Http := TIdHTTP.Create(nil);
  try
    Http.Head(Url);
    LastModified := Http.Response.LastModified;
    ContentLength := Http.Response.ContentLength;
    ShowMessage(Format('Last-Modified: %s ; Content-Length: %d', [DateTimeToStr(LastModified), ContentLength]));
  finally
    Http.Free;
  end;
end;

Периодическая проверка

Для периодической проверки изменений страницы можно использовать TTimer для отправки HEAD-запросов и сравнения полученных заголовков.

Использование хеш-суммы

Если сервер не предоставляет необходимые заголовки, можно использовать хеш-сумму содержимого страницы для определения изменений. Это более ресурсоемкий метод, но он позволяет гарантированно определить, были ли изменения в содержимом страницы.

function HTTPToMD5HashHex(const AURL: string): string;
var
  HTTP: TidHTTP;
  ST: TMemoryStream;
begin
  HTTP := TidHTTP.Create(nil);
  try
    ST := TMemoryStream.Create;
    try
      HTTP.Get(AURL, ST);
      Result := StreamToMD5HashHex(ST);
    finally
      ST.Free;
    end;
  finally
    HTTP.Free;
  end;
end;

function ShouldShowNews(const ANewHash: string; AShowAfterDays: integer): boolean;
begin
  // ... код для проверки хеша и времени последнего отображения ...
end;

procedure CheckForWebNewsOnTimer;
var
  sHashHex, S: string;
begin
  S := GetNewsURL; // <my news address>
  sHashHex := HTTPToMD5HashHex(S);
  If ShouldShowNews(sHashHex, 120 {days default}) then
    begin
    WebBrowserDlg(S);
    end;
  // ... обработка исключений ...
end;

Заключение

Выбор метода зависит от конкретной ситуации и возможностей сервера. Для статических HTML-страниц на сервере IIS заголовок Last-Modified будет содержать время последнего изменения файла. Если сервер позволяет, можно настроить возвращение кастомных заголовков. В случае, если другие методы недоступны, использование хеш-суммы может быть эффективным решением.

В данной статье мы рассмотрели различные подходы к решению задачи проверки изменений веб-страницы в приложении на Delphi. Мы использовали примеры кода на Object Pascal, что соответствует основной тематике сайта.

Создано по материалам из источника по ссылке.

Контекст описывает задачу отслеживания изменений веб-страницы в приложении Delphi для обновления контента веб-страницы на клиенте.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::