Delphi如何访问WebBrowser里的各种元素
一、访问网页中指定类型的元素
比如网页有一段“<div class="c-font ">其他人还在搜</div>”，如果我要访问类型名称是“c-font”的元素，我会想到访问它的Class属性。
引用MSHTML
代码如下
Var
doc: IHtmlDocument2;
i:integer;
begin
doc:=webbrowser1.Document as IHtmlDocument2;
for i:= 0 to doc.all.length-1 do
begin
if (doc.all.item(i,EmptyParam) as IHTMLElement).getAttribute('class',0)=’c-font’ then
begin
//代码
End;
End;
end;
但运行的时候你会发现出错，没有Class这个属性，这是为什么？其实Class是个关键字，如果想访问类型名称应该用”classname”。
if (doc.all.item(i,EmptyParam) as IHTMLElement).getAttribute('classname',0)=’c-font’ then
begin
//代码
End;
这样写就能正常访问做类型名称了。
二、如何保证不出错
在访问WebBrowser里的元素时容易出现各种错误，所以我在访问IHTMLElement的属性时写了一个统一的函数，这样语言就会简洁很多。
Function GetItemArrtribute(HItem: IHTMLElement; ItemName: string): OleVariant;
begin
VarClear(Result); //初始化返回结果为空值
try
if HItem=nil then //有可能要访问的IHTMLElement不存在
Exit;
if VarType(HItem.getAttribute(ItemName,0))= varEmpty then //有可能属性不存在
Exit;
Result:=HItem.getAttribute(ItemName,0);
except on E: Exception do
VarClear(Result);
end;
end;
调用过程
Var
doc: IHtmlDocument2;
tmp,sTitle:string;
i:integer;
begin
doc:=webbrowser1.Document as IHtmlDocument2;
for i:= 0 to doc.all.length-1 do //遍历网页所有元素
begin
tmp:=GetItemArrtribute((doc.all.item(i,EmptyParam) as IHTMLElement),'className');
if tmp='imgitem' then //找到指定类型名称的元素
begin
sTitle:=GetItemArrtribute((doc.all.item(i,EmptyParam) as IHTMLElement),'data-objurl');
//访问元素的data-objurl属性
End;
end;
end;
