标签：variant item end nbsp collect document 登录 form 其他
Delphi TWebBrowser[6] 获取网页所有链接（元素）及GetElementByID返回值的有效性判定方法
1、获取网页所有链接
var
elem: IHTMLElement;
coll: IHTMLElementCollection;
i: integer;
url, title: string;
begin
coll := (WebBrowser1.Document as IHTMLDocument2).all;
coll := (coll.tags(‘a‘) as IHTMLElementCollection);
for i := 0 to coll.Length - 1 do
begin // 循环取出每个链接
elem := (coll.item(i, 0) as IHTMLElement);
url := Trim(string(elem.getAttribute(WideString(‘href‘), 0)));
title := elem.innerText;
ShowMessage(Format(‘链接标题：%s，链接网址：%s‘, [title, url]));
end;
end;
其他元素的获取，方法类似
2、 GetElementByID返回值有效性判定方法
var
aElement: OleVariant;
begin
aElement := WebBrowser1.OleObject.Document.GetElementByID(‘btnLogin‘);
if IDispatch(aElement) <> nil then //对返回值进行有效性检查
begin
aElement.value := ‘登录按钮‘;
aElement.click;
end;
end;
创建时间：2020.11.23 更新时间：
Delphi TWebBrowser[6] 获取网页所有链接（元素）
标签：variant item end nbsp collect document 登录 form 其他
原文地址：https://www.cnblogs.com/guorongtao/p/14022777.html
