这是我写的一个IE工具条中取当前网页中的数据的一部分程序。
var
do
c:IHTMLDocument2;
all:IHTMLElementCollection;
len,i,flag:integer;
item:IHTMLElement;
vAttri:Variant;
begin
if Assigned(IEThis)then
begin
ComboBox1.Clear;
//获得Webbrowser对象中的文档对象
do
c:=IEThis.Document as IHTMLDocument2;
//获得文档中所有的HTML元素集合
all:=doc.Get_all;
len:=all.Get_length;
//访问HTML元素集合中的每一个元素
for i:=0 to len-1do
begin
item:=all.item(i,varempty) as IHTMLElement;
//如果该元素是一个输入框
if item.Get_tagName = 'INPUT' then
begin
//将tag的名字添加到combobox1
ComboBox1.Items.Add(item.Get_tagName);
flag:=0;
vAttri:=item.getAttribute('name',flag);
ComboBox1.Items.Add(vAttri);
//获得链接属性
//如果是mailto链接则将链接的目标地址添加到ComboBox1
//if vAttri = 'name'then
begin
//获得input中的值
vAttri:=item.getAttribute('value',flag);
ComboBox1.Items.Add(vAttri);
//end;
end;
end;
end;
end;