Проверка Существования Параграфа с Определенным ID в Delphi

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

При работе с веб-страницами в среде разработки Delphi часто возникает необходимость проверки наличия элементов с определенным ID. В данной статье мы рассмотрим, как можно проверить, существует ли элемент p с ID SomeID и содержит ли он некоторый текст.

Проблема

Допустим, у нас есть HTML-структура, содержащая параграфы с идентификаторами. Необходимо определить, содержит ли параграф с ID SomeID некоторый текст.

<p id="SomeID" class="error" style="display: none"></p>
<p id="SomeID" class="error" style="display: none">Some text value</p>

Решение

Для решения этой задачи можно использовать следующий подход. Сначала получим элемент по его ID, а затем проверим, содержит ли он текст.

function ElementIdText(Web: TWebBrowser; Id: string): string;
var
  node: IHTMLDOMNode;
begin
  if Assigned(Web.Document) and Web.DocumentReadyState = rsLoaded then
  begin
    node := Web.Document.GetElementByID(Id);
    if Assigned(node) then
    begin
      Result := node.innerText;
      // Проверяем, не пустая ли строка
      if Result <> '' then
        Exit;
      // Если строка не содержит информацию о типе (например, не NULL), но является фактической пустой строкой
      if VarIsClear(Result) then
        Result := '';
    end;
  end;
end;

Альтернативный подход

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

function ElementIdText(Web: TWebBrowser; Id: string): string;
var
  element, text: OleVariant;
begin
  if Assigned(Web.Document) and Web.DocumentReadyState = rsLoaded then
  begin
    element := Web.Document.GetElementByID(Id);
    if VarIsClear(element) then
      Exit; // Элемент не найден, возвращаем пустую строку
    text := element.innerText;
    if VarIsNull(text) then
      Exit; // Текст не найден, возвращаем пустую строку
    Result := text;
  end;
end;

Подтвержденный ответ

В примере, предоставленном в контексте, был представлен следующий способ получения атрибута элемента и его текста:

ShowMessage(WebBrowser1.OleObject.Document.
    GetElementByID('SomeOtherID').getAttribute('style').Display);

Этот код выводит значение атрибута стиля, например, none. Чтобы получить текст параграфа, используется свойство innerText:

ShowMessage(WebBrowser1.OleObject.Document.
    GetElementByID('SomeOtherID').innerText);

Обсуждение

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

Заключение

В данной статье мы рассмотрели, как проверить наличие текста в элементе с заданным ID в среде Delphi. Представленные примеры кода демонстрируют, как можно работать с DOM-элементами и их текстом, используя Object Pascal.

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

В контексте рассматривается задача проверки существования параграфа с определенным ID в веб-странице с использованием среды разработки Delphi.

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

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

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