文档章节

TWebBrowser 与 MSHTML(2): 获取 window 对象的时机

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 145
阅读 6
收藏 0

这是在页面下载完毕后即刻获取:

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 WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MSHTML;
var window: IHTMLWindow2;

{建立时同时打开页面}
procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Align := alTop;
  WebBrowser1.Navigate('http://del.cnblogs.com');
end;

{当页面打开完毕时获取 window 对象}
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = (ASender as TWebBrowser).Application then
  begin
    window := ((ASender as TWebBrowser).Document as IHTMLDocument2).parentWindow;
  end;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/03/13/1410930.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
delphi中Webbrowser

1.获得网页中变量值 htm中<script> var currID=123</script> 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可......

任远
2015/05/08
0
0
delphi 设置 TwebBrowser 背景色与所在form颜色一致

uses SHDocVw, mshtml IHtmlDocument2(WebBrowser1.Document).body.style.background := ColorToWebColorStr(Form1.Color);...

jingshishengxu
2010/11/30
0
0
Context Activity Service Application之间的关系

Context: 1、它描述的是一个应用程序环境的信息,即上下文。 2、该类是一个抽象(abstract class)类,Android提供了该抽象类的具体实现类(后面我们会讲到是ContextIml类)。 3、通过它我们可以...

TedYin
2013/11/12
0
0
怎么才能用 ie 插件(不是控件)拿到 当前页面的 dom 对象

需求是拿到另外一个系统中拿到段文本,但改不了另外一个系统的代码,目前限定的是 IE6,想通过编写一个 IE 插件(类型 IE 的 F12 网页调试工具),通过这个 IE 插件 来拿到当前活动页面的 DOM ...

clt
2014/06/27
250
2
JavaScript函数介绍

一、函数定义 1、函数声明 2、函数表达式 3、对象实例化(一般不使用) 二、函数声明与对象实例化、函数表达式的区别 1、函数声明可以在函数声明之前调用。 而对象实例化、函数表达式只能在定义...

AAASSSSddd
2016/10/16
16
0

没有更多内容

加载失败,请刷新页面

加载更多

09.ajax局部渲染---《Beetl视频课程》

本期视频实现分类实时获取; 内容简介:使用了局部渲染技术,实现分类的实时获取 一起学beetl目录:https://my.oschina.net/u/1590490?tab=newest&catalogId=6214598 作者:GK Beetl满足了更...

Gavin-King
14分钟前
1
0
同步访问共享的可变数据(66)

关键字synchronized 保证同一时刻,只有一个线程执行某一个方法或代码块 当一个对象被一个线程修改时,可以阻止其他线程看到其内部的不一致状态 正确的使用同步可以避免任何对象看到其不一致...

Java搬砖工程师
16分钟前
1
0
银行卡二要素真实性查询

验证用户的银行卡号、持卡人姓名是否真实。 示例代码: private static String host = "https://bank.market.alicloudapi.com";private static String path = "/bank2";private sta...

貔貅叔
20分钟前
1
0
iOS补位动画、沙漏效果、移动UITableViewCell、模拟贪吃蛇、拖拽进度等源码

iOS精选源码 JHAlertView - 一款黑白配色的HUD之沙漏效果 继承UIButton的自定义按钮SPButton 用递归算法实现iOS补位动画 iOS 长按移动UITableViewCell JHLikeButton - 有趣的点赞动画 兼容X...

Android爱开源
30分钟前
1
0
上币至iamToken

https://github.com/consenlabs/token-profile 点击Fork按钮,插入到自己的github项目中 cd /Users/shijun/Desktop/blockChain/iamToken git clone https://github.com/yellmi1983/token-pro......

八戒八戒八戒
34分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部