模拟IE浏览器事件

最新推荐文章于 2022-05-20 16:10:29 发布

god00

最新推荐文章于 2022-05-20 16:10:29 发布

阅读量885

点赞数

分类专栏： Delphi Webbrowser 文章标签：浏览器 ie delphi webbrowser javascript class

本文链接：https://blog.csdn.net/god00/article/details/6185220

版权

Delphi Webbrowser 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, MSHTML;

type
TForm1 = class(TForm)
    WebBrowser: TWebBrowser;
    Button: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser.Navigate('file://C:/Documents and Settings/Administrator/桌面/index.html'); //这个是我做的简单测试网页；
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
    doc:ihtmldocument3; //这里用HTMLdocument也是可以的。
    divs:IHTMLElementCollection;
    divelemen:IHTMLElement; //我的Delphi7没有IHTMLElement3，不知道为什么，所以搞了很久啊，哎~；
begin
doc:=webbrowser.document as iHTMLDocument3; //这里如果使用Ihtmldocument2是没有效果的，只会出错，下面代码也不能使用getElementById方法。
divelemen:=doc.getElementById('T1') as IHTMLElement;

//ShowMessage(divelemen.className);

第一种方法：
//divelemen.click; //只可以把onmousedown修改为onclick;

第二种方法：
WebBrowser.OleObject.document.all.item('T2',0).fireEvent('onmousedown'); //就是这个了，呵呵，fireEvent这个就是关键；

第三种方法：可以说是我原创的，呵呵，网上还没有见到过。或者是我太自大了。献丑~

OleVariant(divelemen).FireEvent('onmousedown'); //D7没有IhtmlElement3提示情况下，这样写代码简洁很多。功能一样；
end;

end.

第一种方法不可取，试过你就知道 -_-! .

第二种方法最有效，关键在IHTMLElement3.FireEvent，但是，我的Delphi7没有IHTMLElement3的提示，所以用了其它代码代替了。

以下是我制作的测试网页代码，文本文件保存格式为index.html

god00

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
模拟IE浏览器事件

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, MSHTML;type TForm1 = class(TForm) WebBrowser: TWebBrowser; Button: TButton; procedure FormCreate(Sender: T
复制链接

扫一扫

专栏目录