偶看新闻复星康乐一生重大疾病:WebBrowser 操作记要（万一博客）
来源：百度文库 编辑：偶看新闻 时间：2024/05/05 15:20:11
WebBrowser1.GoHome; //到浏览器默认主页
WebBrowser1.Refresh; //刷新
WebBrowser1.GoBack; //后退
WebBrowser1.GoForward; //前进
WebBrowser1.Navigate('...'); //打开指定页面
WebBrowser1.Navigate('about:blank'); //打开空页面
//打开空页面, 并写入...
WebBrowser1.Navigate('about:标题> 页面内容
');
//读取网页脚本中的变量:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s := WebBrowser1.OleObject.document.Script.str;
i := WebBrowser1.OleObject.document.Script.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
//也可以这样读:
s := WebBrowser1.OleObject.document.parentWindow.str;
i := WebBrowser1.OleObject.document.parentWindow.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
end;
假如网页中有这样的语句:
<script>
var
str =
"Hello";
i = 99;
</script>
//调用网页脚本中的函数:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js
//如需指定脚本语言, 需要:
WebBrowser1.OleObject.document.parentWindow.execScript('MB
()','JavaScript'); //HTML-Js
end;
假如有这样的脚本:
<script>
function MB(){
alert
('HTML-Js');
}
</script>
//判断网页及内部框架网页是否全部下载完毕
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if WebBrowser1.Application = pDisp then
begin
Text := '网页下载完毕！';
end;
end;
//改变背景色或背景图片:
WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';
WebBrowser1.OleObject.document.body.background := '...图片地址';
//操作有 ID 标签的对象:
var
s: string;
begin
s := WebBrowser1.OleObject.document.getElementByID
('span1').innerText;
ShowMessage(s); //这是 span1 标签中的内容
//或者:
s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;
ShowMessage(s); //这是 span1 标签中的内容
//隐藏它:
WebBrowser1.OleObject.document.parentWindow.span1.style.display :=
'none';
end;
假如网页中有这样的内容:
<span id=span1>这是 span1 标签中的内
容</span>
//获取网页源代码
var
s: string;
begin
s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代
码
s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代
码, 包含body标签
s := WebBrowser1.OleObject.document.documentElement.innerHTML; //html
内的所有代码
end;
//获取网页全部源代码
uses ActiveX;
var
ms: TMemoryStream;
begin
if not Assigned(WebBrowser1.Document) then Exit;
ms := TMemoryStream.Create;
(WebBrowser1.Document as IPersistStreamInit).Save
(TStreamAdapter.Create(ms), True);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);
// Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节
}
ms.Free;
end;
//WebBrowser 中的右键菜单
//先要添加ApplicationEvents1,指定其Message事件
//屏蔽右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var
Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) then Exit;
Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP)
or (message = WM_CONTEXTMENU);
end;
end;
//替换右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var
Handled: Boolean);
var mPoint: TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP))
then
begin
GetCursorPos(mPoint); //得到光标位置
PopupMenu1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单
Handled:=True;
end;
end;
//新页面写入
begin
WebBrowser1.Navigate('about:blank');
WebBrowser1.OleObject.Document.Writeln('ok');
end;
//从流中写入:
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
Memo1.Lines.SaveToStream(ms);
ms.Position := 0;
(WebBrowser1.Document as IPersistStreamInit).Load
(TStreamAdapter.Create(ms));
ms.Free;
end;
//禁止提示脚步错误
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.Silent := True;
end;
//禁止弹出窗口
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
begin
Cancel := True;
end;
模拟点击网页中的按钮
操作链接
//待续...
posted on 2007-12-13 16:16 万一 阅读(4277) 评论(49) 编辑 收藏 网摘 所
属分类: 2a6.TWebBrowser
FeedBack:
#1楼 124.228.17.* 2008-04-07 20:49 dhunter [未注册用户]
打开网页,如何屏蔽掉flash \ 声音\ activex控件 \
回复 引用
#2楼 60.215.156.* 2008-04-07 21:04 万一
遍历 object 和 embed 标签, 把它们隐藏或把它们的 innerHTML 属性置为空肯
定就可以了.
回复 引用 查看
#3楼 116.30.174.* 2008-05-21 00:14 dhunter [未注册用户]
@万一
你这是下载以后再处理;实际是已经下载了,可以交个朋友吗?我QQ:56341721
回复 引用
#4楼 60.215.158.* 2008-05-21 09:14 万一
@dhunter 朋友:
我常在博客, 很少上 QQ(1443475), 尽量在这里交流.
回复 引用 查看
#5楼 221.232.137.* 2008-06-09 19:45 顾 [未注册用户]
万老师：
webbrowser 里面如何获得 newwindow2 事件 新的ur？
我其实是想在一个webbroser里面打开新网页，可是觉得那个
pDisp：= webbrowser1.default....起不了作用，很多时候点击网页没反应了。
我就想在这个事件中截获url，然后用 WebBrowser1.Navigate(...)
用status text方法也不可靠。万老师有更好的或更普适的办法吗？
回复 引用
#6楼 124.132.208.* 2008-06-09 21:29 万一
@顾: 试试这样行吗:
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
ShowMessage(URL);
end;
回复 引用 查看
#7楼 221.232.137.* 2008-06-11 11:06 顾 [未注册用户]
谢谢万老师及时回答啊。
我的意思是点击链接在新窗口没有打开之前截获其url，万老师给的代码是获得已
经打开的网页的url。我用的是delphi7.我准备看看新的delphi的webbrowser。
回复 引用
#8楼 221.232.137.* 2008-06-11 20:28 顾 [未注册用户]
万老师，我已经解决。用一个三方控件就可以了。
回复 引用
#9楼 60.215.111.* 2008-06-11 21:20 万一
@顾: 祝贺你.
回复 引用 查看
#10楼 123.54.7.* 2008-08-15 12:43 我不是小学生 [未注册用户]
s := WebBrowser1.OleObject.document.Script.str;
我想让程序读以WebBrowser1.OleObject.document.Script+'不确定的变量' 因为
用（Script.str）不能适用所有的网页 我想让程序以Script＋'abc'的方式读不
知道有没有办法 谢谢
回复 引用
#11楼 59.175.174.* 2008-08-15 13:22 uiuxt [未注册用户]
请教万一老师:如何获得打开了多少个IE窗口
回复 引用
#12楼 59.175.174.* 2008-08-15 13:30 uiuxt [未注册用户]
在上面找到例子了，呵呵
回复 引用
#13楼 222.68.155.* 2008-10-20 16:18 shilf [未注册用户]
请问万老师：WebBrowser的NewWindow2的过程中如何使链接限制在IE中打开？谢
谢！
回复 引用
#14楼 [楼主] 2008-10-20 16:58 万一
@shilf
看看这里就知道了:
http://www.cnblogs.com/del/archive/2008/02/13/1068229.html
回复 引用 查看
#15楼 222.68.155.* 2008-10-20 17:23 shilf [未注册用户]
万老师：
您好！单纯的调用ie我知道WinAPI的shellExecute，谢谢你指导，但是我想在
webbrowser控件中点击一个链接，该链接就直接指定在IE里面打开，并且
webbrowser控件自身不会跳转，盼您答复！
回复 引用
#16楼 [楼主] 2008-10-20 18:12 万一
@shilf 你这个问题恐怕回避不了 shellExecute. shellExecute 需要的是地址,
点击链接后不就有地址了吗?
回复 引用 查看
#17楼 222.68.155.* 2008-10-20 18:28 shilf [未注册用户]
嗯，呵呵，这倒是。
思维定势了，谢谢万老师你了！
回复 引用
#18楼 222.68.154.* 2008-11-19 14:53 sibad [未注册用户]
万老师：
你好！向你请教一个问题，也是上面一朋友提到的：WebBrowser 打开候点击网页
，如何获得新的URL？在TForm1.WebBrowser1NavigateComplete2事件中捕获不到
，什么方法可以获取到新的url呢？谢谢！
回复 引用
#19楼 [楼主] 2008-11-19 15:38 万一
@sibad
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = WebBrowser1.Application then
Text := URL;
end;
回复 引用 查看
#20楼 222.68.154.* 2008-11-19 16:07 sibad [未注册用户]
可能万老师没有明白我的意思，我的意图是：
WebBrowser1.Navigate('http://www.google.cn/');
然后点击打开页面中的“视频”，
这时如何获取到网页中“视频”对应的URL
用WebBrowser1NavigateComplete2不能获取到啊
回复 引用
#21楼 [楼主] 2008-11-19 16:35 万一
@sibad
还没明白你的意思.
回复 引用 查看
#22楼 119.122.31.* 2008-11-22 21:56 紫电青霜 [未注册用户]
WebBrowser1DocumentComplete事件中的pDisp参数表示什么？
回复 引用
#23楼 119.122.31.* 2008-11-22 23:11 紫电青霜 [未注册用户]
万老师，我还要请教一个问题：在WebBrowser中打开一个搜索页面，输入搜索字
符串，然后提交，出现一个链接列表，我要一个个地进入这些链接中去提取页面
元素，怎样在进入第一个链接中后等待它完成提取后再进入第二个链接？
回复 引用
#24楼 [楼主] 2008-11-23 12:36 万一
@紫电青霜
IDispatch 表示 TWebBrowser 中的一个对象, 譬如: Document、Parent、
Application 等.
第二个问题, 我没看明白.
回复 引用 查看
#25楼 2008-11-24 14:32 紫电青霜
多谢万一老师的回答！
回复 引用 查看
#26楼 2008-11-24 14:34 紫电青霜
第二个问题我已经找到办法解决了，就是再开一个窗体，也放置一个TWebBrowser
控件，把链接地址传过来，在这个窗体上打开该链接，然后再取出这个链接中的
网页元素。
回复 引用 查看
#27楼 117.40.20.* 2008-11-30 21:15 nobird [未注册用户]
请问万一老师，怎么向网页中发送键盘操作呢？比如网页上设置快捷键(shift+Q)
是下一页，如何发送这个操作呢？
回复 引用
#28楼 [楼主] 2008-11-30 21:35 万一
@nobird
这一般要调用页面中的脚本函数, 看看上面的
"调用网页脚本中的函数" 部分
回复 引用 查看
#29楼 60.4.184.* 2008-12-09 09:59 bingxue [未注册用户]
请问一下，WebBorwse操作 Office，比如Excel，它可以直接打开Excel，并可以
用Excel编辑，我想问，编辑完后怎么保存。。用IE打开不是可以用“文件”下边
那个保存按钮嘛。。在WebBrowse中怎么调用或实现这样的功能。。我想把保存事
件写入一个按钮事件中。但是不知道怎么弄。。特请教。。。请发到我邮箱。。
谢谢老师!!
回复 引用
#30楼 [楼主] 2008-12-09 10:08 万一
@bingxue
这属于 OLE 操作, 我没弄过, 有人研究过:
http://www.51testing.com/?57326/action_viewspace_itemid_98978.html
回复 引用 查看
#31楼 58.25.254.* 2008-12-10 19:31 门禁 [未注册用户]
万一老师的blog里面有很多好东西,以后会经常来的.
回复 引用
#32楼 125.77.97.* 2008-12-13 22:48 王生 [未注册用户]
万一老师好!
今遇一webbrowser的出错问题,恳请赐教。
我用webbrowser链接www.sina.com.cn,第一页打开后，又开了两页（IE）开的。
后两页我不想用IE打开，还用我现在的程序打开。于是在以下的过程中写了如下
程序：
procedure TForm1.webbrowser1NewWindow2(Sender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
var
myie:TForm1;
begin
myie:=TForm1.Create(nil);
myie.Visible :=true;
myie.AutoSize:=true;
ppDisp:= myie.webbrowser1.Application;
end;
效果是实现了。在打开其它网站的网页时，它也能实现用我写的程序在新窗体中
打开新链接，退出时也不报错（可能测试的网页还不够多）。就是新浪网，退出
时总是报错。
能否请万一老师帮我分析原委，并指点解决之道。谢谢！
回复 引用
#33楼 [楼主] 2008-12-14 10:41 万一
@王生
我没做过, 试了一下暂时没有明确的答案.
回复 引用 查看
#34楼 125.77.97.* 2008-12-14 14:19 王生 [未注册用户]
万一老师:
我想会不会是出在退出没有释放的问题!然后加了onclose事件,代码如下:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
结果是:逐级退出,OK!如果不逐级退出,直接关闭第一页,接着报错!看来,果然是没
有释放的问题.
我又试了下面的方法,将webbrowser1NewWindow2改成:
procedure TForm1.webbrowser1NewWindow2(Sender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
var
myie:TForm1;
begin
myie:=TForm1.Create(nil);
myie.Parent:=form1; //多加了这一句
myie.Visible :=true;
myie.AutoSize:=true;
ppDisp:= myie.webbrowser1.Application;
end;
运行后,逐级退出OK,直接关闭第一页,也OK,同时关闭其它各下级页.onclose应该
也可用可不用.
找到了旧问题,又出新问题,就出在这个Parent,各下级页边框全部受限于第一页,
太难看了.解决这一新问题,是否一定在打开新页面时,外部调用(winexec)我写的
这个程序呢?比如我写的这个程序叫myie.exe,该如何获得即将打开的URL呢?继续
求教万一老师,谢谢!
同时,以上分析,不知对否,请万一老师继续给予指点!
回复 引用
#35楼 125.77.97.* 2008-12-14 14:53 王生 [未注册用户]
打开新页面前的URL可以由webbrowser1BeforeNavigate2过程取得.
回复 引用
#36楼 222.210.234.* 2008-12-23 18:08 whole [未注册用户]
万老师 您好 请教两个问题。
问题一:
webBrowser在同一个进程中是可以共享session 的 ，但是点击webBrowser里的连
接弹出的新ie窗口却不能共享session,怎么让新的窗口也和我的程序中的
webBrowser的session一致呢?
例如:http://www.xxx.com/userCenter/index.asp 是需要登陆才能进入的页面,
我用webBrowser登陆了, 但弹出的新窗口却说我没有登陆.
回复 引用
#37楼 [楼主] 2008-12-23 18:12 万一
@whole
抱歉, 这我不会.
回复 引用 查看
#38楼 59.61.123.* 2008-12-24 06:46 [牛牛] [未注册用户]
麻烦 Mr.万一!
以上是我想操作的网页源码!现在我说说我的想要要做的功能吧!
譬如:有个网站http://127.0.0.1/ 打开以后是一个留言板,我现在想在Delphi里
面新建一个工程,放上一个Memo和Button组件,我想实现的是我在memo里面输入文
字以后点击Button可以实现和留言板里提交按钮相同的效果!
最终的效果是:在memo里面输入111,点击按钮,然后我打开http://127.0.01/ 可以
在留言板里面看到我刚刚在留言板里所写的111 !
回复 引用
#39楼 59.61.123.* 2008-12-24 06:49 [牛牛] [未注册用户]
我试过你上面的例子..都不行,可能是我太笨.!
回复 引用
#40楼 [楼主] 2008-12-24 08:59 万一
@[牛牛]
看看 http://www.cnblogs.com/del/archive/2008/06/13/1219324.html
回复 引用 查看
#41楼 2008-12-24 16:00 [牛牛]
Mr.万一..我的意思是,你上面的例子放在我38楼的问题中行不通- -
回复 引用 查看
#42楼 119.145.100.* 2008-12-28 12:06 Locet [未注册用户]
万老师
在Webbrowser中链接中的href的值有各式各样
比如有相对路径的，还有是JAVASCRIPT的...
取到一个链接的element,他的href是相对路径，Click后...打开的页面是错误页
面...这个怎么解决呢？
回复 引用
#43楼 [楼主] 2008-12-28 12:20 万一
@Locet
你输入的网址去掉文件名就是被省略的路径, 加上就行了.
回复 引用 查看
#44楼 119.145.100.* 2008-12-28 13:58 Locet [未注册用户]
这个倒想过...那为什么直接用鼠标点击的不用呢？它是调用了什么
我想模拟这种环境..
回复 引用
#45楼 [楼主] 2008-12-28 14:22 万一
@Locet
肯定也是: 基址+相对地址;
就一个简单的字符串连接, 离那个环境远着呢.
回复 引用 查看
#46楼 119.145.100.* 2008-12-28 14:36 Locet [未注册用户]
虽然是基址+相对地址..
但这不是IE内核或解释器做的事么...
我们鼠标操作的时候..他会自己加上，我们用IHTMLelement.Click的时候却没
有...这中间是不是跳过了一些事情....
我挺想知道它是怎么样做的...
回复 引用
#47楼 202.109.192.* 2008-12-29 16:13 雷雨 [未注册用户]
尊敬的万老师：
我用webBrowser做了一个多页面浏览器，目前遇到一个百思不得其解的问题，希
望老师能够指点一二：
多页面是通过TabSheet中包含分页WebBrowser来实现的，分页的NewWindow2中定
向到一个不可见的窗口浏览器进行新页面的处理。
正常浏览页面打开新页面都很正常，但遇到有的链接是一个需要下载的文件时，
第一次点击该链接之后，可以触发窗口浏览器的 BeforeNavigate2和
NavigateComplete2事件，处理也很正常，但之后再点击任何链接，就只有
BeforeNavigate2 但没有NavigateComplete2事件触发，也就变成点击链接没有任
何反应了。
这是为什么呢? 是不是出现是否下载文件的提示框之后，窗口浏览器的某些内部
机制发生了变化，导致不能正常导航了呢?
描述有点多，有劳老师了
回复 引用
#48楼 [楼主] 2008-12-29 16:37 万一
@雷雨: 我试了下, 发现不了不正常.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
Memo2: TMemo;
procedure WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName,
PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate
('http://www.cnblogs.com/del/archive/2008/06/06/1215319.html');
WebBrowser1.Align := alClient;
Memo1.Clear;
Memo2.Clear;
Memo1.ScrollBars := ssBoth;
Memo2.ScrollBars := ssBoth;
Memo2.Align := alBottom;
Memo1.Align := alBottom;
end;
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Memo1.Lines.Add(URL);
end;
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo2.Lines.Add(URL);
end;
end.
回复 引用 查看
#49楼 202.109.192.* 2008-12-31 13:52 雷雨 [未注册用户]
谢谢万老师，还特意写了这么详细的例子。
不过我的情况是多页面浏览器，后来跟踪了一下，在遇到有的链接是需要下载文
件的之后，确实就只有BeforeNavigate2但没有 NavigateComplete2事件触发。目
前的解决方法是把原来在NavigateComplete2中的处理搬到BeforeNavigate2 中，
也算解决问题了。
新年快要到了，祝万老师新年快乐！
回复 引用
#50楼 61.29.205.* 2009-02-27 17:05 oldsheep35 [未注册用户]
万老师，面对vbulletin这样的论坛（不是用Frame），如何判断他的页面完全打
开呢？
回复 引用
#51楼 [楼主] 2009-02-27 17:26 万一
@oldsheep35
我不知道这个论坛的地址.
回复 引用 查看
#52楼 221.0.92.* 2009-03-06 14:49 猪头1 [未注册用户]
万一老师 有一个变量类型 IPersistStreamInit 需要引用什么才能可用？我在用
var
ms: TMemoryStream;
begin
if not Assigned(WebBrowser1.Document) then Exit;
ms := TMemoryStream.Create;
(WebBrowser1.Document as IPersistStreamInit).Save
(TStreamAdapter.Create(ms), True);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);
// Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节}
ms.Free;
end;
这段代码取网页的所有源代码时 提示 IPersistStreamInit 未定义
回复 引用
#53楼 [楼主] 2009-03-06 15:11 万一
@猪头1
uses ActiveX;
回复 引用 查看
#54楼 123.247.192.* 2009-03-23 02:15 ¤玉儿●
你好万一老师我遇到个问题不知道怎么解决
https://login.XXXX.com/loginIFrame.aspx?
url=http://www.XXXX.com/default.aspx
问题来了怎么得到主页里面的这个https://login.XXXX.com/loginIFrame.aspx框
架窗口
我的朋友都不会希望能给个演示代码
回复 引用 查看
#55楼 [楼主] 2009-03-23 10:24 万一
@¤玉儿●
你没把问题说清楚.
回复 引用 查看
#56楼 123.247.224.* 2009-03-23 15:13 ¤玉儿●
现在只能实现正常网页的鼠标（坐标），遇到这样的我就不会了src="https://login.xxxx.com/loginIFrame.aspx?
url=http://www.xxxx.com/Default.aspx" width="238" height="290"
frameborder="0" scrolling="no">
获取https://login.xxxx.com/loginIFrame.aspx中的输入框鼠标（坐标）
0人 | 分享到：
阅读(1334)| 评论(1)| 引用 (0) |举报
在delphi中实现网页的自动输入
去除html标记函数strip_tags($str,"<b>")<br>历史上的今天<br>相关文章<br>最近读者<br><img style='max-width:300px;' id="img1" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_4.png" /><br>登录后，您可以在此留下足迹。<br><img style='max-width:300px;' id="img2" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_5" /> christio <br><img style='max-width:300px;' id="img3" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_6" /> Evil <br><img style='max-width:300px;' id="img4" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_7" /> stangray <br><img style='max-width:300px;' id="img5" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_8" /> test0626 <br><img style='max-width:300px;' id="img6" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_9" /> 鼠标工程 <br><img style='max-width:300px;' id="img7" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_10" /> gbfgbf <br><img style='max-width:300px;' id="img8" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_11" /> cylstc <br><img style='max-width:300px;' id="img9" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_12" /> moumou <br>评论<br>点击登录|昵称：<br>取消<br><img style='max-width:300px;' id="img10" src="http://image21.360doc.cn/DownloadImg/2010/12/2807/8018719_14" /><br>2009-10-07 16:25点点<br>欢迎回访，谢谢！<br>回复<br>页脚<br>公司简介 -联系方法 -招聘信息 -客户服务 -相关法律 -博客风格 -手机博客 -<br>网易公司版权所有 ?1997-2010<br>×<br>登录<br>欢迎通过Google搜索来到zhouhaijiang3的博客！<br>注册登录后，你也可以拥有自己的个人博客，还可以和博友更好的交流。<br>网易博客欢迎你的加入<br>请输入登录信息<br>用户名：<br>密 码：<br><br></form></div>
<div class="list-group">
<a href="/article/bhswpsq" class="list-group-item">万一鲁迅也博客会怎样？</a>
<a href="/article/biarorj" class="list-group-item">博客操作</a>
<a href="/article/bihlvjt" class="list-group-item">博客能存在多久?万一有一天消失了怎么办?</a>
<a href="/article/bigjmfd" class="list-group-item">新浪博客操作问题</a>
<a href="/article/bhscxzu" class="list-group-item">周记要怎样写?</a>
<a href="/article/bhwyncl" class="list-group-item">会议记要怎么写</a>
<a href="/article/bifppcl" class="list-group-item">会议记要怎么写</a>
<a href="/article/bijydfp" class="list-group-item">周记要写什么</a>
<a href="/article/bikyhvj" class="list-group-item">周记要怎么写</a>
<a href="/article/bimuctk" class="list-group-item">日记要怎么写。</a>
<a href="/article/bhyikzy" class="list-group-item">在博客加入网络电视，怎么操作？</a>
<a href="/article/biehchl" class="list-group-item">什么叫博客？怎么使用和操作</a>
<a href="/article/bifwwqp" class="list-group-item">关于博客网的操作问题！</a>
<a href="/article/bhudxdn" class="list-group-item">WebBrowser控件的问题</a>
<a href="/article/bhwrsxm" class="list-group-item">vb程序WebBrowser控件</a>
<a href="/article/bijimvk" class="list-group-item">VB WebBrowser问题</a>
<a href="/article/biadelh" class="list-group-item">亚当周记要哪里下载</a>
<a href="/article/biaflpl" class="list-group-item">去登记要那些证明？</a>
<a href="/article/bhubwzs" class="list-group-item">webbrowser如何拦截window.open</a>
<a href="/article/biljcfu" class="list-group-item">vb的webbrowser浏览器问题</a>
<a href="/article/bimbejv" class="list-group-item">vb中webbrowser的问题</a>
<a href="/article/biegyvu" class="list-group-item">我想买一台做河粉的机器,现在心里特别没底,这种机器该如何操作,万一做出来的河粉全都沾一起该如何啊?</a>
<a href="/article/bhvmyov" class="list-group-item">我想拥有自己的博客网页，不知如何操作？</a>
<a href="/article/bhwdrkf" class="list-group-item">我也想写博客,请告诉我具体如何操作?</a>
</div>
</div>
</div>
</div>
</div>
</div>
<footer id="footer" class="footer hidden-print">
<div class="container">
<div class="panel panel-default">
<div class="panel-heading">相关问题</div>
<div class="panel-body">
<a class="btn btn-default" href="/article/bhufqxq" title="糖醋小排骨做法大全">糖醋小排骨做法大全</a>
<a class="btn btn-default" href="/article/bhufqxr" title="典型K线组合学习笔记：揉搓线">典型K线组合学习笔记：揉搓线</a>
<a class="btn btn-default" href="/article/bhufqxs" title="五绝——284.随园诗话》（下）学习笔记">五绝——284.随园诗话》（下）学习笔记</a>
<a class="btn btn-default" href="/article/bhufqxt" title="曝长征红军各部队主要领导年龄 让80后大吃一惊">曝长征红军各部队主要领导年龄 让80后大吃一惊</a>
<a class="btn btn-default" href="/article/bhufqxu" title="打造女人完美乳房只需每天七步">打造女人完美乳房只需每天七步</a>
<a class="btn btn-default" href="/article/bhufqxv" title="幽默哲理:人心当如一只碗">幽默哲理:人心当如一只碗</a>
<a class="btn btn-default" href="/article/bhufqxw" title="【凤凰古城】中国最美丽的小城">【凤凰古城】中国最美丽的小城</a>
<a class="btn btn-default" href="/article/bhufqxx" title="工会2009年工作计划">工会2009年工作计划</a>
<a class="btn btn-default" href="/article/bhufqxy" title="穴位按摩疗法">穴位按摩疗法</a>
<a class="btn btn-default" href="/article/bhufqxz" title="这是一尊古老的财神如意造像。见者有福！好运常伴！">这是一尊古老的财神如意造像。见者有福！好运常伴！</a>
<a class="btn btn-default" href="/article/bhufqya" title="个人记忆技巧-经验之谈|">个人记忆技巧-经验之谈|</a>
<a class="btn btn-default" href="/article/bhufqyb" title="骨質疏鬆與骨折預防">骨質疏鬆與骨折預防</a>
<a class="btn btn-default" href="/article/bhufqyc" title="中国海军舰艇编队将赴西太平洋海域进行例行训练">中国海军舰艇编队将赴西太平洋海域进行例行训练</a>
<a class="btn btn-default" href="/article/bhufqyd" title="XXX工程监理工作总结">XXX工程监理工作总结</a>
<a class="btn btn-default" href="/article/bhufqye" title="罗盘研究：风水罗盘36层介绍">罗盘研究：风水罗盘36层介绍</a>
<a class="btn btn-default" href="/article/bhufqyf" title="22条喝酒军规,让你千杯不醉">22条喝酒军规,让你千杯不醉</a>
<a class="btn btn-default" href="/article/bhufqyg" title="读《不生病之真法》">读《不生病之真法》</a>
<a class="btn btn-default" href="/article/bhufqyh" title="魔幻瘦脸妆教你大脸变小">魔幻瘦脸妆教你大脸变小</a>
<a class="btn btn-default" href="/article/bhufqyi" title="赵汀阳：如何分析坏世界？">赵汀阳：如何分析坏世界？</a>
<a class="btn btn-default" href="/article/bhufqyj" title="温肾壮阳酒大全，是男人一定要收藏的！">温肾壮阳酒大全，是男人一定要收藏的！</a>
<a class="btn btn-default" href="/article/bhufqyk" title="公务员考试常识判断大全（16） - 国家公务员网">公务员考试常识判断大全（16） - 国家公务员网</a>
<a class="btn btn-default" href="/article/bhufqyl" title="[营销]《酒店营销策划十大攻略》">[营销]《酒店营销策划十大攻略》</a>
<a class="btn btn-default" href="/article/bhufqym" title="看了这张图,tmd 原来我们养了这么多机构啊！">看了这张图,tmd 原来我们养了这么多机构啊！</a>
<a class="btn btn-default" href="/article/bhufqyn" title="《大悲咒》（令人心平气和的音画欣赏）">《大悲咒》（令人心平气和的音画欣赏）</a>
<a class="btn btn-default" href="/article/bhufqyo" title="毛笔的起源">毛笔的起源</a>
<a class="btn btn-default" href="/article/bhufqyp" title="令人面红耳赤的A片是这样拍出来的">令人面红耳赤的A片是这样拍出来的</a>
<a class="btn btn-default" href="/article/bhufqyq" title=".酒的别称和典故">.酒的别称和典故</a>
<a class="btn btn-default" href="/article/bhufqyr" title="如何在经济危机中保住财富？">如何在经济危机中保住财富？</a>
<a class="btn btn-default" href="/article/bhufqys" title="闭目养神有益健康">闭目养神有益健康</a>
<a class="btn btn-default" href="/article/bhufqyt" title="看透人生的50个哲学！">看透人生的50个哲学！</a>
<a class="btn btn-default" href="/article/bhufqyu" title="《六十甲子歌》的警示">《六十甲子歌》的警示</a>
</div>
</div></div>
<div class="copy-right">
<p>偶看新闻，客观、专业、权威的知识性互动百科全书。</p></div>
</footer>
<div class="copy-right"> <div class="container">
<div class="col-md-12">
<a href="https://www.q-5.net/" target="_blank">最新新闻</a> <a href="https://www.wacths.com/" target="_blank">沃茨手表网</a>
<a href="https://www.csdndoc.com/" target="_blank">CSDN程序文档</a>
<a href="https://www.cmjoy.com/" target="_blank">上海旅游网</a> <a href="https://www.smbaike.com/" target="_blank">神马百科</a> <a href="https://www.familylifemag.com/" target="_blank">程序博客</a>
<a href="https://www.xjpta.cn/" target="_blank">香蕉皮作业帮</a> <a href="https://www.cidugushi.com/" target="_blank">景德镇新闻网</a> <a href="https://www.uyuyao.com/" target="_blank">余姚信息网</a>
<a href="https://www.zuoyewang.cc/" target="_blank">作业帮作业网</a> <a href="https://www.wenda8.com/" target="_blank">互助问答吧</a> <a href="https://www.16lo.com/" target="_blank">16楼社区</a>
<a href="https://www.zyebang.com/">解题作业帮</a><a href="https://www.6210k.com/">艺术百科</a><a href="http://www.ld5.top/">亮点网</a><a href="http://www.smbaike.com/">神马百科</a>
<a href="https://www.smwenxue.com/">神马文学网</a>
<a href="https://www.zuoye5.com/">拍题作业网</a>
<a href="https://www.uczhidao.com/">UC知道</a>
<a href="https://www.52sanwen.top/">我爱散文网</a>
<a href="https://www.bfwang.top/">北方网</a>
<a href="https://www.kexue5.top/">科学网</a>
<a href="https://www.wenku1.top/">第一文库网</a>
<a href="https://www.wszyw.top/">微思作业网</a>
<a href="https://www.wz51.top/">我要文章网</a>
<a href="https://www.dsp33.cn/">都市新闻网</a><a href="https://www.xofi.com.cn/">西欧教育</a><a href="https://www.xs2xf.cn/">西山新闻网</a><a href="https://www.holoes.com.cn/">好楼房产信息网</a>
<a href="https://www.9x1x.cn/">九乡新闻网</a><a href="https://www.vnql.com.cn/">农企信息网</a><a href="https://www.xnvm.com.cn/">仙女们写真照片</a><a href="https://www.lumta.com.cn/">音乐简谱网</a><a href="https://www.miliya.com.cn/">米粒芽</a><a href="https://www.xuexiaodaquan.net/">学校大全网</a><a href="https://www.wz95.cn/">95后网站</a><a href="https://www.ranatlanta.cn/">汝南网</a><a href="https://www.opuo.com.cn/">欧普网</a><a href="https://www.7c4.com.cn/">宝宝故事网</a>
<a href="https://www.pp6a.cn/">神马品牌网</a>
<a href="https://www.hzxzt.com.cn/">杭州交通信息网/"></a>
<a href="https://www.hzsgz.com.cn/">杭州市高中教育平台</a>
<a href="https://www.crrcn.cn/">查人人中国名人网</a>
<a href="https://www.amzr.com.cn/">爱美之人</a>
<a href="https://www.scmpx.com.cn/">上车买票</a>
<a href="https://www.azxt.com.cn/">安卓系统之家</a>
<a href="https://www.520sdw.cn/">中科新闻网</a>
<a href="https://www.218zy.cn/">科学院研究所</a>
<a href="https://www.ekowh.cn/">高考快车</a>
<a href="https://www.520gsw.cn/">高考志愿帮</a>
<a href="https://www.madbar.cn/">大学志愿大全</a>
<a href="https://www.oisogo.cn/">高校问答</a>
<a href="https://www.togowu.cn/">高考问答</a>
<a href="https://www.mdeusa.cn/">中考百科</a>
<a href="https://www.520bzw.cn/">大学知道</a>
<a href="https://www.9uwang.cn/">久游网</a>
</div></div></div> </body>
</html>
WebBrowser1.Refresh; //刷新
WebBrowser1.GoBack; //后退
WebBrowser1.GoForward; //前进
WebBrowser1.Navigate('...'); //打开指定页面
WebBrowser1.Navigate('about:blank'); //打开空页面
//打开空页面, 并写入...
WebBrowser1.Navigate('about:
');
//读取网页脚本中的变量:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s := WebBrowser1.OleObject.document.Script.str;
i := WebBrowser1.OleObject.document.Script.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
//也可以这样读:
s := WebBrowser1.OleObject.document.parentWindow.str;
i := WebBrowser1.OleObject.document.parentWindow.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
end;
假如网页中有这样的语句:
<script>
var
str =
"Hello";
i = 99;
</script>
//调用网页脚本中的函数:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js
//如需指定脚本语言, 需要:
WebBrowser1.OleObject.document.parentWindow.execScript('MB
()','JavaScript'); //HTML-Js
end;
假如有这样的脚本:
<script>
function MB(){
alert
('HTML-Js');
}
</script>
//判断网页及内部框架网页是否全部下载完毕
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if WebBrowser1.Application = pDisp then
begin
Text := '网页下载完毕！';
end;
end;
//改变背景色或背景图片:
WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';
WebBrowser1.OleObject.document.body.background := '...图片地址';
//操作有 ID 标签的对象:
var
s: string;
begin
s := WebBrowser1.OleObject.document.getElementByID
('span1').innerText;
ShowMessage(s); //这是 span1 标签中的内容
//或者:
s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;
ShowMessage(s); //这是 span1 标签中的内容
//隐藏它:
WebBrowser1.OleObject.document.parentWindow.span1.style.display :=
'none';
end;
假如网页中有这样的内容:
<span id=span1>这是 span1 标签中的内
容</span>
//获取网页源代码
var
s: string;
begin
s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代
码
s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代
码, 包含body标签
s := WebBrowser1.OleObject.document.documentElement.innerHTML; //html
内的所有代码
end;
//获取网页全部源代码
uses ActiveX;
var
ms: TMemoryStream;
begin
if not Assigned(WebBrowser1.Document) then Exit;
ms := TMemoryStream.Create;
(WebBrowser1.Document as IPersistStreamInit).Save
(TStreamAdapter.Create(ms), True);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);
// Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节
}
ms.Free;
end;
//WebBrowser 中的右键菜单
//先要添加ApplicationEvents1,指定其Message事件
//屏蔽右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var
Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) then Exit;
Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP)
or (message = WM_CONTEXTMENU);
end;
end;
//替换右键菜单
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var
Handled: Boolean);
var mPoint: TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP))
then
begin
GetCursorPos(mPoint); //得到光标位置
PopupMenu1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单
Handled:=True;
end;
end;
//新页面写入
begin
WebBrowser1.Navigate('about:blank');
WebBrowser1.OleObject.Document.Writeln('ok');
end;
//从流中写入:
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
Memo1.Lines.SaveToStream(ms);
ms.Position := 0;
(WebBrowser1.Document as IPersistStreamInit).Load
(TStreamAdapter.Create(ms));
ms.Free;
end;
//禁止提示脚步错误
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.Silent := True;
end;
//禁止弹出窗口
procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
begin
Cancel := True;
end;
模拟点击网页中的按钮
操作链接
//待续...
posted on 2007-12-13 16:16 万一 阅读(4277) 评论(49) 编辑 收藏 网摘 所
属分类: 2a6.TWebBrowser
FeedBack:
#1楼 124.228.17.* 2008-04-07 20:49 dhunter [未注册用户]
打开网页,如何屏蔽掉flash \ 声音\ activex控件 \
回复 引用
#2楼 60.215.156.* 2008-04-07 21:04 万一
遍历 object 和 embed 标签, 把它们隐藏或把它们的 innerHTML 属性置为空肯
定就可以了.
回复 引用 查看
#3楼 116.30.174.* 2008-05-21 00:14 dhunter [未注册用户]
@万一
你这是下载以后再处理;实际是已经下载了,可以交个朋友吗?我QQ:56341721
回复 引用
#4楼 60.215.158.* 2008-05-21 09:14 万一
@dhunter 朋友:
我常在博客, 很少上 QQ(1443475), 尽量在这里交流.
回复 引用 查看
#5楼 221.232.137.* 2008-06-09 19:45 顾 [未注册用户]
万老师：
webbrowser 里面如何获得 newwindow2 事件 新的ur？
我其实是想在一个webbroser里面打开新网页，可是觉得那个
pDisp：= webbrowser1.default....起不了作用，很多时候点击网页没反应了。
我就想在这个事件中截获url，然后用 WebBrowser1.Navigate(...)
用status text方法也不可靠。万老师有更好的或更普适的办法吗？
回复 引用
#6楼 124.132.208.* 2008-06-09 21:29 万一
@顾: 试试这样行吗:
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
ShowMessage(URL);
end;
回复 引用 查看
#7楼 221.232.137.* 2008-06-11 11:06 顾 [未注册用户]
谢谢万老师及时回答啊。
我的意思是点击链接在新窗口没有打开之前截获其url，万老师给的代码是获得已
经打开的网页的url。我用的是delphi7.我准备看看新的delphi的webbrowser。
回复 引用
#8楼 221.232.137.* 2008-06-11 20:28 顾 [未注册用户]
万老师，我已经解决。用一个三方控件就可以了。
回复 引用
#9楼 60.215.111.* 2008-06-11 21:20 万一
@顾: 祝贺你.
回复 引用 查看
#10楼 123.54.7.* 2008-08-15 12:43 我不是小学生 [未注册用户]
s := WebBrowser1.OleObject.document.Script.str;
我想让程序读以WebBrowser1.OleObject.document.Script+'不确定的变量' 因为
用（Script.str）不能适用所有的网页 我想让程序以Script＋'abc'的方式读不
知道有没有办法 谢谢
回复 引用
#11楼 59.175.174.* 2008-08-15 13:22 uiuxt [未注册用户]
请教万一老师:如何获得打开了多少个IE窗口
回复 引用
#12楼 59.175.174.* 2008-08-15 13:30 uiuxt [未注册用户]
在上面找到例子了，呵呵
回复 引用
#13楼 222.68.155.* 2008-10-20 16:18 shilf [未注册用户]
请问万老师：WebBrowser的NewWindow2的过程中如何使链接限制在IE中打开？谢
谢！
回复 引用
#14楼 [楼主] 2008-10-20 16:58 万一
@shilf
看看这里就知道了:
http://www.cnblogs.com/del/archive/2008/02/13/1068229.html
回复 引用 查看
#15楼 222.68.155.* 2008-10-20 17:23 shilf [未注册用户]
万老师：
您好！单纯的调用ie我知道WinAPI的shellExecute，谢谢你指导，但是我想在
webbrowser控件中点击一个链接，该链接就直接指定在IE里面打开，并且
webbrowser控件自身不会跳转，盼您答复！
回复 引用
#16楼 [楼主] 2008-10-20 18:12 万一
@shilf 你这个问题恐怕回避不了 shellExecute. shellExecute 需要的是地址,
点击链接后不就有地址了吗?
回复 引用 查看
#17楼 222.68.155.* 2008-10-20 18:28 shilf [未注册用户]
嗯，呵呵，这倒是。
思维定势了，谢谢万老师你了！
回复 引用
#18楼 222.68.154.* 2008-11-19 14:53 sibad [未注册用户]
万老师：
你好！向你请教一个问题，也是上面一朋友提到的：WebBrowser 打开候点击网页
，如何获得新的URL？在TForm1.WebBrowser1NavigateComplete2事件中捕获不到
，什么方法可以获取到新的url呢？谢谢！
回复 引用
#19楼 [楼主] 2008-11-19 15:38 万一
@sibad
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = WebBrowser1.Application then
Text := URL;
end;
回复 引用 查看
#20楼 222.68.154.* 2008-11-19 16:07 sibad [未注册用户]
可能万老师没有明白我的意思，我的意图是：
WebBrowser1.Navigate('http://www.google.cn/');
然后点击打开页面中的“视频”，
这时如何获取到网页中“视频”对应的URL
用WebBrowser1NavigateComplete2不能获取到啊
回复 引用
#21楼 [楼主] 2008-11-19 16:35 万一
@sibad
还没明白你的意思.
回复 引用 查看
#22楼 119.122.31.* 2008-11-22 21:56 紫电青霜 [未注册用户]
WebBrowser1DocumentComplete事件中的pDisp参数表示什么？
回复 引用
#23楼 119.122.31.* 2008-11-22 23:11 紫电青霜 [未注册用户]
万老师，我还要请教一个问题：在WebBrowser中打开一个搜索页面，输入搜索字
符串，然后提交，出现一个链接列表，我要一个个地进入这些链接中去提取页面
元素，怎样在进入第一个链接中后等待它完成提取后再进入第二个链接？
回复 引用
#24楼 [楼主] 2008-11-23 12:36 万一
@紫电青霜
IDispatch 表示 TWebBrowser 中的一个对象, 譬如: Document、Parent、
Application 等.
第二个问题, 我没看明白.
回复 引用 查看
#25楼 2008-11-24 14:32 紫电青霜
多谢万一老师的回答！
回复 引用 查看
#26楼 2008-11-24 14:34 紫电青霜
第二个问题我已经找到办法解决了，就是再开一个窗体，也放置一个TWebBrowser
控件，把链接地址传过来，在这个窗体上打开该链接，然后再取出这个链接中的
网页元素。
回复 引用 查看
#27楼 117.40.20.* 2008-11-30 21:15 nobird [未注册用户]
请问万一老师，怎么向网页中发送键盘操作呢？比如网页上设置快捷键(shift+Q)
是下一页，如何发送这个操作呢？
回复 引用
#28楼 [楼主] 2008-11-30 21:35 万一
@nobird
这一般要调用页面中的脚本函数, 看看上面的
"调用网页脚本中的函数" 部分
回复 引用 查看
#29楼 60.4.184.* 2008-12-09 09:59 bingxue [未注册用户]
请问一下，WebBorwse操作 Office，比如Excel，它可以直接打开Excel，并可以
用Excel编辑，我想问，编辑完后怎么保存。。用IE打开不是可以用“文件”下边
那个保存按钮嘛。。在WebBrowse中怎么调用或实现这样的功能。。我想把保存事
件写入一个按钮事件中。但是不知道怎么弄。。特请教。。。请发到我邮箱。。
谢谢老师!!
回复 引用
#30楼 [楼主] 2008-12-09 10:08 万一
@bingxue
这属于 OLE 操作, 我没弄过, 有人研究过:
http://www.51testing.com/?57326/action_viewspace_itemid_98978.html
回复 引用 查看
#31楼 58.25.254.* 2008-12-10 19:31 门禁 [未注册用户]
万一老师的blog里面有很多好东西,以后会经常来的.
回复 引用
#32楼 125.77.97.* 2008-12-13 22:48 王生 [未注册用户]
万一老师好!
今遇一webbrowser的出错问题,恳请赐教。
我用webbrowser链接www.sina.com.cn,第一页打开后，又开了两页（IE）开的。
后两页我不想用IE打开，还用我现在的程序打开。于是在以下的过程中写了如下
程序：
procedure TForm1.webbrowser1NewWindow2(Sender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
var
myie:TForm1;
begin
myie:=TForm1.Create(nil);
myie.Visible :=true;
myie.AutoSize:=true;
ppDisp:= myie.webbrowser1.Application;
end;
效果是实现了。在打开其它网站的网页时，它也能实现用我写的程序在新窗体中
打开新链接，退出时也不报错（可能测试的网页还不够多）。就是新浪网，退出
时总是报错。
能否请万一老师帮我分析原委，并指点解决之道。谢谢！
回复 引用
#33楼 [楼主] 2008-12-14 10:41 万一
@王生
我没做过, 试了一下暂时没有明确的答案.
回复 引用 查看
#34楼 125.77.97.* 2008-12-14 14:19 王生 [未注册用户]
万一老师:
我想会不会是出在退出没有释放的问题!然后加了onclose事件,代码如下:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
结果是:逐级退出,OK!如果不逐级退出,直接关闭第一页,接着报错!看来,果然是没
有释放的问题.
我又试了下面的方法,将webbrowser1NewWindow2改成:
procedure TForm1.webbrowser1NewWindow2(Sender: TObject; var ppDisp:
IDispatch;
var Cancel: WordBool);
var
myie:TForm1;
begin
myie:=TForm1.Create(nil);
myie.Parent:=form1; //多加了这一句
myie.Visible :=true;
myie.AutoSize:=true;
ppDisp:= myie.webbrowser1.Application;
end;
运行后,逐级退出OK,直接关闭第一页,也OK,同时关闭其它各下级页.onclose应该
也可用可不用.
找到了旧问题,又出新问题,就出在这个Parent,各下级页边框全部受限于第一页,
太难看了.解决这一新问题,是否一定在打开新页面时,外部调用(winexec)我写的
这个程序呢?比如我写的这个程序叫myie.exe,该如何获得即将打开的URL呢?继续
求教万一老师,谢谢!
同时,以上分析,不知对否,请万一老师继续给予指点!
回复 引用
#35楼 125.77.97.* 2008-12-14 14:53 王生 [未注册用户]
打开新页面前的URL可以由webbrowser1BeforeNavigate2过程取得.
回复 引用
#36楼 222.210.234.* 2008-12-23 18:08 whole [未注册用户]
万老师 您好 请教两个问题。
问题一:
webBrowser在同一个进程中是可以共享session 的 ，但是点击webBrowser里的连
接弹出的新ie窗口却不能共享session,怎么让新的窗口也和我的程序中的
webBrowser的session一致呢?
例如:http://www.xxx.com/userCenter/index.asp 是需要登陆才能进入的页面,
我用webBrowser登陆了, 但弹出的新窗口却说我没有登陆.
回复 引用
#37楼 [楼主] 2008-12-23 18:12 万一
@whole
抱歉, 这我不会.
回复 引用 查看
#38楼 59.61.123.* 2008-12-24 06:46 [牛牛] [未注册用户]
麻烦 Mr.万一!
以上是我想操作的网页源码!现在我说说我的想要要做的功能吧!
譬如:有个网站http://127.0.0.1/ 打开以后是一个留言板,我现在想在Delphi里
面新建一个工程,放上一个Memo和Button组件,我想实现的是我在memo里面输入文
字以后点击Button可以实现和留言板里提交按钮相同的效果!
最终的效果是:在memo里面输入111,点击按钮,然后我打开http://127.0.01/ 可以
在留言板里面看到我刚刚在留言板里所写的111 !
回复 引用
#39楼 59.61.123.* 2008-12-24 06:49 [牛牛] [未注册用户]
我试过你上面的例子..都不行,可能是我太笨.!
回复 引用
#40楼 [楼主] 2008-12-24 08:59 万一
@[牛牛]
看看 http://www.cnblogs.com/del/archive/2008/06/13/1219324.html
回复 引用 查看
#41楼 2008-12-24 16:00 [牛牛]
Mr.万一..我的意思是,你上面的例子放在我38楼的问题中行不通- -
回复 引用 查看
#42楼 119.145.100.* 2008-12-28 12:06 Locet [未注册用户]
万老师
在Webbrowser中链接中的href的值有各式各样
比如有相对路径的，还有是JAVASCRIPT的...
取到一个链接的element,他的href是相对路径，Click后...打开的页面是错误页
面...这个怎么解决呢？
回复 引用
#43楼 [楼主] 2008-12-28 12:20 万一
@Locet
你输入的网址去掉文件名就是被省略的路径, 加上就行了.
回复 引用 查看
#44楼 119.145.100.* 2008-12-28 13:58 Locet [未注册用户]
这个倒想过...那为什么直接用鼠标点击的不用呢？它是调用了什么
我想模拟这种环境..
回复 引用
#45楼 [楼主] 2008-12-28 14:22 万一
@Locet
肯定也是: 基址+相对地址;
就一个简单的字符串连接, 离那个环境远着呢.
回复 引用 查看
#46楼 119.145.100.* 2008-12-28 14:36 Locet [未注册用户]
虽然是基址+相对地址..
但这不是IE内核或解释器做的事么...
我们鼠标操作的时候..他会自己加上，我们用IHTMLelement.Click的时候却没
有...这中间是不是跳过了一些事情....
我挺想知道它是怎么样做的...
回复 引用
#47楼 202.109.192.* 2008-12-29 16:13 雷雨 [未注册用户]
尊敬的万老师：
我用webBrowser做了一个多页面浏览器，目前遇到一个百思不得其解的问题，希
望老师能够指点一二：
多页面是通过TabSheet中包含分页WebBrowser来实现的，分页的NewWindow2中定
向到一个不可见的窗口浏览器进行新页面的处理。
正常浏览页面打开新页面都很正常，但遇到有的链接是一个需要下载的文件时，
第一次点击该链接之后，可以触发窗口浏览器的 BeforeNavigate2和
NavigateComplete2事件，处理也很正常，但之后再点击任何链接，就只有
BeforeNavigate2 但没有NavigateComplete2事件触发，也就变成点击链接没有任
何反应了。
这是为什么呢? 是不是出现是否下载文件的提示框之后，窗口浏览器的某些内部
机制发生了变化，导致不能正常导航了呢?
描述有点多，有劳老师了
回复 引用
#48楼 [楼主] 2008-12-29 16:37 万一
@雷雨: 我试了下, 发现不了不正常.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
Memo2: TMemo;
procedure WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName,
PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate
('http://www.cnblogs.com/del/archive/2008/06/06/1215319.html');
WebBrowser1.Align := alClient;
Memo1.Clear;
Memo2.Clear;
Memo1.ScrollBars := ssBoth;
Memo2.ScrollBars := ssBoth;
Memo2.Align := alBottom;
Memo1.Align := alBottom;
end;
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Memo1.Lines.Add(URL);
end;
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo2.Lines.Add(URL);
end;
end.
回复 引用 查看
#49楼 202.109.192.* 2008-12-31 13:52 雷雨 [未注册用户]
谢谢万老师，还特意写了这么详细的例子。
不过我的情况是多页面浏览器，后来跟踪了一下，在遇到有的链接是需要下载文
件的之后，确实就只有BeforeNavigate2但没有 NavigateComplete2事件触发。目
前的解决方法是把原来在NavigateComplete2中的处理搬到BeforeNavigate2 中，
也算解决问题了。
新年快要到了，祝万老师新年快乐！
回复 引用
#50楼 61.29.205.* 2009-02-27 17:05 oldsheep35 [未注册用户]
万老师，面对vbulletin这样的论坛（不是用Frame），如何判断他的页面完全打
开呢？
回复 引用
#51楼 [楼主] 2009-02-27 17:26 万一
@oldsheep35
我不知道这个论坛的地址.
回复 引用 查看
#52楼 221.0.92.* 2009-03-06 14:49 猪头1 [未注册用户]
万一老师 有一个变量类型 IPersistStreamInit 需要引用什么才能可用？我在用
var
ms: TMemoryStream;
begin
if not Assigned(WebBrowser1.Document) then Exit;
ms := TMemoryStream.Create;
(WebBrowser1.Document as IPersistStreamInit).Save
(TStreamAdapter.Create(ms), True);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);
// Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节}
ms.Free;
end;
这段代码取网页的所有源代码时 提示 IPersistStreamInit 未定义
回复 引用
#53楼 [楼主] 2009-03-06 15:11 万一
@猪头1
uses ActiveX;
回复 引用 查看
#54楼 123.247.192.* 2009-03-23 02:15 ¤玉儿●
你好万一老师我遇到个问题不知道怎么解决
https://login.XXXX.com/loginIFrame.aspx?
url=http://www.XXXX.com/default.aspx
问题来了怎么得到主页里面的这个https://login.XXXX.com/loginIFrame.aspx框
架窗口
我的朋友都不会希望能给个演示代码
回复 引用 查看
#55楼 [楼主] 2009-03-23 10:24 万一
@¤玉儿●
你没把问题说清楚.
回复 引用 查看
#56楼 123.247.224.* 2009-03-23 15:13 ¤玉儿●
现在只能实现正常网页的鼠标（坐标），遇到这样的我就不会了
url=http://www.xxxx.com/Default.aspx" width="238" height="290"
frameborder="0" scrolling="no">
获取https://login.xxxx.com/loginIFrame.aspx中的输入框鼠标（坐标）
0人 | 分享到：阅读(1334)| 评论(1)| 引用 (0) |举报
在delphi中实现网页的自动输入
去除html标记函数strip_tags($str,"