我使用以下代码：
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;
我的问题是：如何在不手动解析
HTMLStyle.cssText即期望输出的情况下使用DOM集合获取可用样式属性的列表：MARGIN
WIDTH
FLOAT
HEIGHT
最佳答案
IHTMLStyle（或其后代）不提供这种功能。但是，由于IHTMLStyle确实实现了IDispatch接口，因此您可以尝试使用IDispatch.GetTypeInfo()获取描述样式对象的ITypeInfo接口，然后遍历其可用属性，并使用IDispatch.Invoke()读取每个值。您发现的财产。但是，如果GetTypeInfo()没有返回可行的ITypeInfo，则说明您不走运，因此必须解析IHTMLStyle.cssText。