Delphi_判断Webbrowser打开的网页组件是否存在?

转载 2013年12月04日 22:52:58

原文来自:http://blog.csdn.net/pengxuan/article/details/8684994


  1. <html>  
  2.   
  3. <head>  
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
  5. <title>新建网页 1</title>  
  6. <script>  
  7. function aa(){  
  8.   alert("abc");  
  9. }  
  10. </script>  
  11. </head>  
  12.   
  13. <body>  
  14.   
  15. <form method="POST" action="--WEBBOT-SELF--">  
  16.     <p><input type="button" value="按钮" name="B3" onclick="aa()"></p>  
  17. </form>  
  18.   
  19. </body>  
  20.   
  21. </html> 

  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML_TLB;  
  8.   
  9. type  
  10.   TForm1 = class(TForm)  
  11.     WebBrowser1: TWebBrowser;  
  12.     Button1: TButton;  
  13.     procedure FormCreate(Sender: TObject);  
  14.     procedure Button1Click(Sender: TObject);  
  15.   private  
  16.     { Private declarations }  
  17.   public  
  18.     { Public declarations }  
  19.   end;  
  20.   
  21. var  
  22.   Form1: TForm1;  
  23.   
  24. implementation  
  25.   
  26. uses Math;  
  27.   
  28. {$R *.dfm}  
  29.   
  30. procedure TForm1.FormCreate(Sender: TObject);  
  31. begin  
  32. WebBrowser1.Navigate('c:\index.htm');  
  33. end;  
  34.   
  35. procedure TForm1.Button1Click(Sender: TObject);  
  36. var b:IHTMLElement;  
  37. begin  
  38.   b:=(WebBrowser1.Document as IHTMLDocument3).getElementById('B3');  
  39.   if b=nil then exit;//这里判断网页中是不是找到了这个按钮,如果换成B4就不能执行下面的代码了  
  40.   b.click;  
  41. end;  
  42.   
  43. end

delphi获取webbrowser中的元素的值

webbrowser有一个隐藏域id为xx,值为0 procedure TForm1.btn1Click(Sender: TObject); var doc:olevariant; ...
  • hutao1101175783
  • hutao1101175783
  • 2015年01月08日 20:36
  • 2235

java判定数组或集合是否存在某个元素

引言:    今天群里有朋友问“怎么知道一个数组集合是否已经存在当前对象”,大家都知道循环比对,包括我这位大神群友。还有没其他办法呢?且看此篇。  正文:    能找到这里的都是程序...
  • az44yao
  • az44yao
  • 2013年04月03日 13:17
  • 31891

java判定数组或集合是否存在某个元素

Java代码   import java.io.Serializable;   import java.util.ArrayList;   import java.util.Arra...
  • zhengbo0
  • zhengbo0
  • 2014年06月13日 13:31
  • 917

算法学习笔记----判断集合S中是否存在有两个其和等于x的元素

题目:请给出一个运行时间为Θ(nlgn)的算法,使之能在给定一个由n个整数构成的集合S和另一个整数x时,判断出S中是否存在有两个其和等于x的元素。 解题思路: 直观的方法是直接计算集合中两两元素的...
  • moonvs2010
  • moonvs2010
  • 2013年01月29日 10:32
  • 1376

如何在前端用js判断一个元素在一个数组中是否存在

一、jQuery 如果是用JQuery的话,可以用inArray()函数: jquery inarray()函数详解 jquery.inarray(value,array) 确定第一个...
  • siyunx
  • siyunx
  • 2016年10月27日 14:30
  • 1112

使用jquery怎么去检查一个元素是否存在

在jquery中,你能够使用.length属性来检测一个元素是否存在。如果元素存在,则length属性会返回所以匹配的元素的个数。 例如: if($('#div1').length){   ...
  • taiyb
  • taiyb
  • 2014年10月13日 23:15
  • 1188

List.contains方法——判断列表中是否包含指定元素

1.2.4 List.contains方法——判断列表中是否包含指定元素 2013-09-05 09:01:09     我来说两句  收藏    我要投稿   ...
  • evilcry2012
  • evilcry2012
  • 2016年09月29日 08:59
  • 1714

Delphi2010Ping某IP是否连通的代码实现

很多时候不检查局域网内的IP是否连通,直接通过IP访问,程序会卡住很久,有1分钟左右,这给用户的体验非常不好,现在通过检查是否连通,设置为1.5S后不连通则不进行后面的操作,程序效率大大提升,如下是检...
  • Michael__mai
  • Michael__mai
  • 2016年01月23日 16:42
  • 695

C++(后台开发面试题)-判断数组中是否存在重复元素

今天进行了今日头条一轮的技术面试,面试官问了这样一道题,给定一个数组,长度为n,数组中的元素均为整数,范围是[0,n-1],问如何判断数组中是否出现重复数字。...
  • chender_sysu
  • chender_sysu
  • 2017年03月22日 11:43
  • 1336

判断数组中是否存在重复的元素

判断数组中是否存在重复的元素;数组查重;
  • lixinyao5281
  • lixinyao5281
  • 2017年04月14日 14:28
  • 1460
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi_判断Webbrowser打开的网页组件是否存在?
举报原因:
原因补充:

(最多只允许输入30个字)