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 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi消息发送字符串

Delphi rest客户端程序

Delphi中的sender：tobject对象解析

Delphi xe8 中tidtcpclient的writeln编码变化

tidhttpresponseinfo 中文乱码问题解决

Delphi edit 让密码变成点

Delphi 获取外网ip的函数

Delphi android路径 tpath 文件路径，文件管理

Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的

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

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