RENYUAN

Program Life

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

原文来自: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
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭