Question

我使用以下代码：

const
  HTML_DOC =
    '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' +
    '<BODY><P id="p1" style="width: 440px; height: 344px; margin: 3px 2px; float: left;">test</P></BODY>' +
    '</HTML>';

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLTxtRange: IHTMLTxtRange;
  HTMLDocument: IHTMLDocument2;
  HTMLElement: IHTMLElement;
  HTMLStyle: IHTMLStyle;
begin
  WebBrowser1.Navigate('about:blank');
  while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
    Application.ProcessMessages;

  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  HTMLTxtRange := (HTMLDocument.body as IHTMLBodyElement).createTextRange;
  HTMLTxtRange.PasteHTML(HTML_DOC);    

  HTMLElement := (HTMLDocument as IHTMLDocument3).getElementById('p1');
  if Assigned(HTMLElement) then
  begin
    HTMLStyle := HTMLElement.style {as IHTMLStyle2};
    Memo1.Lines.Add(HTMLStyle.cssText);  // MARGIN: 3px 2px; WIDTH: 440px; FLOAT: left; HEIGHT: 344px
    Memo1.Lines.Add(HTMLStyle.getAttribute('margin', 0)); // 3px 2px
  end;    
end;

我的问题是：如何使用DOM集合获取可用样式属性的列表，而无需手动解析HTMLStyle.cssText，即预期输出：

MARGIN
WIDTH
FLOAT
HEIGHT

Answer 1

IHTMLStyle（或其后代）不公开这种功能。但是，由于IHTMLStyle确实实现了IDispatch接口，因此您可以尝试使用IDispatch.GetTypeInfo()来获取描述样式对象的ITypeInfo接口，然后使用{迭代其可用属性{1}}读取您发现的每个属性的值。但是，如果IDispatch.Invoke()未返回可行的GetTypeInfo()，那么您运气不好，而是必须解析ITypeInfo。

Answer 2

var win7: ihtmlwindow7;
     css: ihtmlcssstyledeclaration;
begin
  Win7:= (webbrowser1.document as ihtmldocument2).parentwindow as ihtmlwindow7;
  css:= win7.getcomputedstyle(htmlelement as ihtmldomnode);

  for... css.length
   css.item

如何获取IHTMLElement的所有IHTMLStyle属性？

2 个答案: