Delphi WebBrowser通过遍历Id查找元素是否存在

本文整理自网络，侵删。

 
{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 控制台程序加图标方法

Delphi 如何把类中的方法做参数

Delphi中url的编码与解码，即urlencode的使用

Delphi编解码js字符串

Delphi的对象注销方法destroy和free的区别

[Delphi]钩子(hook)机制的使用

Delphi删除只读文件

Delphi判断系统是否64位

Delphi mscomm1自动获取串口

关于Delphi下的三元运算符（三目运算）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser通过遍历Id查找元素是否存在