Определение Типа и Версии Браузера Пользователя на Сайте с TMS Web Core в Delphi

Delphi , Интернет и Сети , Браузер

Введение

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

Проблема

Разработчики, использующие фреймворк TMS Web Core в сочетании с Delphi, могут столкнуться с задачей определения типа и версии браузера пользователя. Это может быть необходимо для адаптации поведения сайта под конкретные условия или для отладки.

Решение

Для решения этой задачи можно использовать свойство window.navigator.userAgentData.brands, которое предоставляет информацию о браузере и его версии. Однако, стоит отметить, что данный метод не поддерживается во всех браузерах, и для полной совместимости следует использовать его в качестве основного метода с заранее подготовленным альтернативным механизмом на основе строкового анализа свойства window.navigator.userAgent.

uses Web;

function GetBrowser(IncludeVersion: Boolean): String;
var
  UserAgent: String;
begin
  Result := '';
  asm
    const userAgentData = window?.navigator?.userAgentData?.brands;
    if (userAgentData !== undefined) then
    begin
      Result := `${userAgentData[0].brand}`;
      if (IncludeVersion) then
        Result := `${Result} (${userAgentData[0].version})`;
    end;
  end;
  if (Result = '') then
  begin // Альтернативный механизм определения браузера
    UserAgent := window.navigator.userAgent;
    // Здесь можно добавить код для анализа свойств UserAgent в соответствии с нужными шаблонами.
    // Это могут быть проверки на наличие определенных подстрок, как в примере ниже, или более сложный анализ.
    Result := 'Unknown Browser';
    if (UserAgent.indexOf('Firefox') <> -1) then Result := 'Mozilla Firefox'
    else if (UserAgent.indexOf('Safari') <> -1) then Result := 'Safari'
    // Другие проверки могут быть добавлены аналогичным образом.
    else
    begin
      // Здесь может быть код для обработки других популярных браузеров.
    end;
    if (IncludeVersion) then
      Result := Result + ' (Unknown Version)';
  end;
end;

Альтернативные методы

Так как методы определения браузера и его версии могут устаревать, а также могут быть не доступны во всех браузерах, важно следить за обновлениями стандартов и внедрять новые алгоритмы работы с window.navigator.userAgentData. Кроме того, всегда полезно иметь альтернативный план в виде простого анализа строки window.navigator.userAgent, который может быть расширен для более точного определения браузеров с ограниченной поддержкой современных технологий.

Заключение

Для получения информации о браузере пользователя на сайте, созданном с использованием TMS Web Core и Delphi, можно использовать сочетание современного API window.navigator.userAgentData и проверенных временем методов анализа строки window.navigator.userAgent. Это позволит обеспечить совместимость с большинством браузеров и версий, а также гибкость в адаптации к меняющимся условиям веб-разработки.

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

Уточнение и реализация метода определения типа и версии браузера пользователя на сайте, использующем TMS Web Core в Delphi, с использованием современных API и альтернативных методов для обеспечения совместимости

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

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

:: Главная :: Браузер ::