本文整理自网络,侵删。
{Delphi: } function FindIds(Aid:String):Boolean; var Document :Variant; Id:Integer; begin Result := False; Document := WebBrowser.OleObject.Document.getElementsByTagName('*'); for Id := 0 to Document.Length-1 do begin if Document.item(Id).id = Aid then begin Result := True; Exit; end; end; end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>