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

最新推荐文章于 2021-01-18 15:27:31 发布
最新推荐文章于 2021-01-18 15:27:31 发布
阅读量2.2k 收藏 1
点赞数
分类专栏： Delphi

原文来自：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. 

wbryfl
关注
专栏目录
delphi WebBrowser控件上网页验证码图片识别教程(一)
贪玩小神的专栏
02-18 3067
步骤一：获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下： procedure TForm1.BitBtn1Click(Sender: TObject); var   I:Integer; begin   for I:=0 to WebBrowser1.OleObj
Delphi将网页保存为图片
06-26
1. **添加TWebBrowser组件**：打开Delphi，创建一个新的VCL Forms应用程序。从Component Palette中的Internet类别中，将TWebBrowser组件拖放到Form上。 2. **加载网页**：通过TWebBrowser的`Navigate`方法可以加载...
精确判断webbrowser是否加载完成demo(delphi)
10-23
困扰好久的问题今天终于有个了结了！！ 用delphi实现的精确判断webbrowser是否全部已经加载完成。
Delphi 关于 某个名称的控件是否已经存在
qq_15267865的博客
06-29 1971
//判断名称为csb的cxgrid是否已经存在，存在则清空列和行。不存在则创建新的cxgrid表单 usescxGridCustomView,cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,cxGridLevel,cxDataStorage; var tvTemp: TcxGridTableView; lTemp: TcxGridLevel; gdTemp: TcxGrid; begi...
WebBrowser组件的execWB方法——Delphi控制浏览器组件
11-05 205
WebBrowser组件的execWB方法 1. <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object> 2. 调用方法: WebBrowser.ExecWB (nCmdID, nCmdExecOpt,...
Delphi控件自动查找方法
08-02 3968
<br />以下是Delphi控件自动查找注册单元和控件包单元的方法,把下面的复制到文本文件中,保存为"控件查找.bat",在安装控件前,可能有很多个dpk文件,但不知道哪个包含注册单元,只需要双击这个批处理文件,就可以在"控件包列表.txt"这个文件在看到应该按装哪个包了,有些包有依赖关系,可以先安装一个包,当不成功时,安装另一个包,然后再安装之前不成功的哪一个包,就能安装好.<br />findstr /ims "RegisterComponents" *.pas>注册单元列表.txt<br />fin
Delphi中WebBrowser判断页面及JS是否加载完成
冷寒生读书笔记
03-19 7158
<br />时间很完了，但问题总算解决了。<br /> <br />在一个程序中需要判断WebBrowser打开的页面是否加载完成，通常的做完是使用Busy属性，代码如下：<br /> <br />while WebBrowser1.Busy do<br />    Application.ProcessMessages;<br /> <br />这个访问对于访问纯Html的页面时是一点儿问题都没有的，但有些页面在设计时为了不影响打开速度，是让html代码优先显示，然后再运行js代码或框架代码，由于我要访问
WebBrowser组件和MSHTML 在Delphi中的使用.doc
07-05
WebBrowser 组件是一个 ActiveX 控件，它允许 Delphi 程序与 Internet Explorer 引擎进行交互，从而显示网页、执行 JavaScript 以及与网页内容进行交互。而 MSHTML 是 Internet Explorer 的 HTML 解析器，提供了丰富...
delphi操作webbrowser的几个技巧
07-15
标题与描述均提及了“Delphi操作WebBrowser的几个技巧”，这一主题聚焦于Delphi编程语言如何有效地控制和交互WebBrowser组件，实现诸如获取网页变量、执行网页函数、设置网页背景、调用网页对象等高级功能。...
写一个delphi win32程序， 在edit1输入一个网址后在webbrowser打开网页，将网页代码显示在一个文本框，提取该网页所有链接和文本并输出到另一个文本框，点保存按钮后保存为excel文件。
最新发布
06-02
2.获取网页源代码：在 Edit 的 OnKeyDown 事件中，判断按下的键是否为 Enter，如果是，则获取 Edit 中输入的网址，使用 TIdHTTP 组件获取网页源代码，并将其显示在源代码 Memo 控件中。 3.提取网页信息：使用正则...
delphi对窗体的查询(delphi xe2)
追
11-16 1317
1、显示所有窗口的标题 2、根据关键字查询窗口 3、某一窗口内的所有控件及其内容 . unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Con
Webbrowser判断网页控件是否存在？
路在何方
03-17 2513
网页代码： 新建网页 1 function aa(){ alert("abc"); } delphi判断网页中是否存在某个名字的控件   unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G
Delphi 判断文件夹是否存在+创建文件夹
小印丶的笔记
01-18 1514
RAD Studio 10.2.3 测试√ var mPath: string; begin // 判断路径下的文件是否存在 mPath:=ExtractFilePath(Paramstr(0))+'Temp\'; if not DirectoryExists(mPath) then // 创建文件夹 ForceDirectories(mPath); end; 一点点笔记，以便以后翻阅。 ...
检查页面元素是否存在
weixin_33897722的博客
07-06 114
1 # -*- coding:utf-8 -*- 2 3 """ 4 检查元素是否存在 5 isElementPresent():检查页面的元素上是否存在 6 """ 7 8 from selenium import webdriver 9 from selenium.common.exceptions import NoSuchElementExcept...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值