Delphi中的TWebBrowser与MSHTML（1）: 从TWebBrowser获取DOM中的window对象

Delphi中的TWebBrowser与MSHTML（1）: 从TWebBrowser获取DOM中的window对象2012-12-17 博客园万一借助 TWebBrowser 可以把软件做的更漂亮、更灵活, 很多软件已经或者早就这样做了.

尽管 HTML DOM 内容繁杂（涉及到 HTML、JavaScript、CSS）, 但也都属于 TWebBrowser 的功能范围.

使用 TWebBrowser 时, 如果配合上 MSHTML, 将会有很好的代码提示; 不然也可以, 就是写代码困难.

HTML DOM 中的一切都是源于一个叫 window 对象, 为了和 JS 中的 DOM 一致起来, 本次先获取这个对象.

TWebBrowser 是调用 SHDocVw.dll 的功能并继承与 TOleControl 类, 会用到 SHDocVw 和 OleCtrls 单元.

另外 window 是 IHTMLWindow2 接口类型的, 此接口定义在 MSHTML 单元.

本例效果图:

代码文件:

unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, OleCtrls, SHDocVw, StdCtrls; typeTForm1 = class（TForm）WebBrowser1: TWebBrowser;Button1: TButton;Button2: TButton;procedure FormCreate（Sender: TObject）;procedure Button1Click（Sender: TObject）;procedure Button2Click（Sender: TObject）;end; varForm1: TForm1; implementation {$R *.dfm} uses MSHTML;var window: IHTMLWindow2; {打开一个页面}procedure TForm1.Button1Click（Sender: TObject）;beginWebBrowser1.Navigate（"http://del.cnblogs.com"）;end; {获取并试用 window 对象}procedure TForm1.Button2Click（Sender: TObject）;beginwindow := （WebBrowser1.Document as IHTMLDocument2）.parentWindow;window.document.body.innerHTML := "<hr>万一的 Delphi 博客<hr>";window.alert（"JavaScript 的提示: 修改成功！"）;end; {初始化}procedure TForm1.FormCreate（Sender: TObject）;beginPosition := poScreenCenter;WebBrowser1.Align := alTop;Button1.Caption := "打开";Button2.Caption := "改写";end; end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = "Form1"ClientHeight = 167ClientWidth = 318Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = "Tahoma"Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object WebBrowser1: TWebBrowserLeft = 8Top = 8Width = 300Height = 121TabOrder = 0ControlData = {4C000000021F0000810C00000000000000000000000000000000000000000000000000004C000000000000000000000001000000E0D057007335CF11AE6908002B2E126208000000000000004C0000000114020000000000C000000000000046800000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000}endobject Button1: TButtonLeft = 154Top = 135Width = 75Height = 25Caption = "Button1"TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 235Top = 135Width = 75Height = 25Caption = "Button2"TabOrder = 2OnClick = Button2Clickendend

从一个外部的 IE 窗口获取 window 对象也可以:

uses MSHTML, ComObj;varIE: Variant;window: IHTMLWindow2; procedure TForm1.Button1Click（Sender: TObject）;beginIE := CreateOleObject（"InternetExplorer.Application"）;IE.Visible := True;IE.Navigate（"http://del.cnblogs.com"）;end; procedure TForm1.Button2Click（Sender: TObject）;beginwindow := （IDispatch（IE.document） as IHTMLDocument2）.parentWindow;window.document.body.innerHTML := "<hr>万一的 Delphi 博客<hr>";end;