我從自己的程序裏拿了一段出來, 我也在看這部分內容, 所以發下帖子關注一下.
procedure TForm1.btnGetInfoClick(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i,flag:integer;
item:IHTMLElement;
vAttri:Variant;
begin
if Assigned(IEThis) then begin
doc := IEThis.Document as IHTMLDocument2;
all := doc.Get_all;
len := all.Get_length;
for i:=0 to len-1 do begin
item := all.item(i,varempty) as IHTMLElement;
if item.Get_tagName = 'A' then begin
flag:=0;
item.setAttribute('href', 'Hello World', flag);
vAttri:=item.getAttribute('VALUE',flag);
end;
end;
end;
end;
