个人中心
gpt4 book ai didi

delphi - IHTMLStyleSheetRulesCollection 样式标签(内联样式)

转载 作者：行者123 更新时间：2023-12-03 15:52:22 25 4
gpt4 key购买 nike

我使用IHTMLDocument2检索接口(interface)IHTMLStyleSheetRulesCollection使用IHTMLDocument2::styleSheets属性(property)。它适用于检索 <style> 内的样式。标签(在文档 <head> 中)。

我使用上面的内容来查找具有 backgroundImage 的所有样式设置(我需要读取值)。

但是，此集合不包含 <body> 内的内联样式像:

<p style="background:url(image.jpg);"></p>从中提取“image.jpg”<p>标签。

扫描整个 DOM 树以查找具有附加背景图像的“style”属性的元素的方法是什么？欢迎使用 C++ 或 Delphi 编写代码示例。

最佳答案

您必须迭代 all 而不是 styleSheets 并查看元素的样式。

uses mshtml;

Procedure WebBrowserCreateStringListImagesFromElementStyles(const AWebBrowser: TWebBrowser; ResultList: TStrings; NoUrl: Boolean = false);
var
  nCount: Integer;
  element: IHTMLElement;
  elements: IHTMLElementCollection;
  bgImage: String;
begin
  Assert(Assigned(AWebBrowser.Document) and Assigned(ResultList));
  if Assigned(AWebBrowser.Document) then
  begin
    elements := (AWebBrowser.Document as IHTMLDocument2).all;
    for nCount := 0 To Pred(elements.Length) do
    begin
      element := elements.item(nCount, '') as IHTMLElement;
      if (element.style.backgroundImage <> '') and (UpperCase(element.style.backgroundImage) <> 'NONE') then
      begin
        bgImage := element.style.backgroundImage;
        if NoUrl then
        begin
          if Pos('URL(', UpperCase(bgImage)) = 1 then
          begin
            Delete(bgImage, 1, Length('URL('));
            if Pos(')', bgImage) = Length(bgImage) then
              Delete(bgImage, Length(bgImage), 1);
          end;
        end;
        ResultList.Add(AnsiLowerCase(bgImage));
      end;
    end;
  end;
end;

关于delphi - IHTMLStyleSheetRulesCollection 样式标签(内联样式)，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/19554883/

25 4 0
文章推荐： delphi - 为什么我的选取框进度条没有动画？
文章推荐： xslt - XSL 中每组值的最大总和
文章推荐： 用于识别未标记文本的 XPath 查询
文章推荐： delphi - DBGrid 通过代码突出显示找到的行？