delphi TWebBrowser 使用
来源:互联网 发布:绿盾软件 编辑:程序博客网 时间:2024/05/16 20:27
1.前进,后退,刷新
2.捕捉NewWindow2事件,即新开窗口事件
值得一题的是该方法不能获得新开窗口的URL,退一步的方法只能是等到在新的Webbrowser中触发BeforeNavigate2事件判断了
3.网页中存在iframe时判断页面是否下载结束
self.WebBrowser1.GoBackself.WebBrowser1.GoForwardself.WebBrowser1.Refresh
2.捕捉NewWindow2事件,即新开窗口事件
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); varNewWindow: TForm2;begin NewWindow:= TForm2.Create(nil);
NewWindow.Show;ppDisp:= NewWindow.Webbrowser1.DefaultDispatch;end;
值得一题的是该方法不能获得新开窗口的URL,退一步的方法只能是等到在新的Webbrowser中触发BeforeNavigate2事件判断了
3.网页中存在iframe时判断页面是否下载结束
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); beginif WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕') end;
4. 执行网页中的函数
tmpf := 'currID = getNextID(currID)'+#13#10;Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmpf,'JavaScript');
一个不错的例子:
- WebBrowser1.GoHome; //到浏览器默认主页
- WebBrowser1.Refresh; //刷新
- WebBrowser1.GoBack; //后退
- WebBrowser1.GoForward; //前进
- WebBrowser1.Navigate('...'); //打开指定页面
- WebBrowser1.Navigate('about:blank'); //打开空页面
- //打开空页面, 并写入...
- WebBrowser1.Navigate('about:<head><title>标题</title><body>页面内容</body>');
- //读取网页脚本中的变量:
- 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;
- &lt;br&gt;假如网页中有这样的语句:&lt;br&gt;&amp;amp;lt;script&amp;amp;gt;&lt;br&gt;var&lt;br&gt; str = &quot;Hello&quot;;&lt;br&gt; i = 99;&lt;br&gt;&amp;amp;lt;/script&amp;amp;gt;
- //调用网页脚本中的函数:
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js
- //如需指定脚本语言, 需要:
- WebBrowser1.OleObject.document.parentWindow.execScript('MB()','JavaScript'); //HTML-Js
- end;
- &lt;br&gt;假如有这样的脚本:&lt;br&gt;&amp;amp;lt;script&amp;amp;gt;&lt;br&gt;function MB(){ &lt;br&gt; alert('HTML-Js');&lt;br&gt;}&lt;br&gt;&amp;amp;lt;/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.getElementByIdx_x('span1').innerText;
- ShowMessage(s); //这是 span1 标签中的内容
- //或者:
- s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;
- ShowMessage(s); //这是 span1 标签中的内容
- //隐藏它:
- WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none';
- end;
- &lt;br&gt;假如网页中有这样的内容:&lt;br&gt;&amp;amp;lt;span id=span1&amp;amp;gt;这是 span1 标签中的内容&amp;amp;lt;/span&amp;amp;gt;&lt;br&gt;
- //获取网页源代码
- 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;
阅读全文
0 0
- delphi TWebBrowser 使用
- delphi TWebBrowser组件使用详解
- delphi TWebBrowser组件使用详解
- Delphi TWebBrowser
- Delphi TWebBrowser
- Delphi下TWebBrowser控件的使用
- Delphi中使用TWebBrowser时存在内存泄漏问题
- Delphi中TWebBrowser的使用,实现IDocHostUIHandler接口
- delphi TWebBrowser 用法
- Delphi TWebBrowser(1)
- Delphi TWebBrowser事件说明
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程参考
- Delphi TWebBrowser编程简述(转帖)
- SpringMVC Validator分组校验
- Android数据的四种存储方式
- QT视频播放器的一些笔记
- kafka消息发送-消费流程
- SpringMVC利用AOP实现自定义注解记录日志
- delphi TWebBrowser 使用
- 修改MyEclipse工作空间名称
- quartz详解4:quartz线程管理
- 身份证验证
- PHP项目部署-开启rewrite(伪静态)
- CSS伪类链接:点击某一个链接后,刷新页面,其他所有从没点击过的链接都变成a:visited中定义的颜色
- spring boot admin + spring boot actuator + erueka 微服务监控
- HDU:2013蟠桃记
- Java多线程基础:进程和线程之由来