TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含3012字,纯文字阅读大概需要5分钟。
内容图文
TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象
借助 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 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses MSHTML; var window: IHTMLWindow2; {打开一个页面} procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://del.cnblogs.com'); end; {获取并试用 window 对象} procedure TForm1.Button2Click(Sender: TObject); begin window := (WebBrowser1.Document as IHTMLDocument2).parentWindow; window.document.body.innerHTML := '<hr>万一的 Delphi 博客<hr>'; window.alert('JavaScript 的提示: 修改成功!'); end; {初始化} procedure TForm1.FormCreate(Sender: TObject); begin Position := poScreenCenter; WebBrowser1.Align := alTop; Button1.Caption := '打开'; Button2.Caption := '改写'; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 167 ClientWidth = 318 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object WebBrowser1: TWebBrowser Left = 8 Top = 8 Width = 300 Height = 121 TabOrder = 0 ControlData = { 4C000000021F0000810C00000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end object Button1: TButton Left = 154 Top = 135 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 235 Top = 135 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 2 OnClick = Button2Click end end
从一个外部的 IE 窗口获取 window 对象也可以:
uses MSHTML, ComObj; var IE: Variant; window: IHTMLWindow2; procedure TForm1.Button1Click(Sender: TObject); begin IE := CreateOleObject('InternetExplorer.Application'); IE.Visible := True; IE.Navigate('http://del.cnblogs.com'); end; procedure TForm1.Button2Click(Sender: TObject); begin window := (IDispatch(IE.document) as IHTMLDocument2).parentWindow; window.document.body.innerHTML := '<hr>万一的 Delphi 博客<hr>'; end;posted on 2009-03-12 00:20? 万一? 阅读(7759)? 评论(5)? 编辑? 收藏
内容总结
以上是互联网集市为您收集整理的TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象全部内容,希望文章能够帮你解决TWebBrowser 与 MSHTML(1): 从 TWebBrowser 获取 DOM 中的 window 对象所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。