Webbrowser技巧

wallimn

浏览: 5153554 次
性别:
来自: 北京

最近访客更多访客>>

java-007

xckouy

lengyun3566

zxjun8771

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

JAVA、WEB开发

JavaScript VBScript Delphi HTML 脚本

htm中<script> var currID=123</script>
程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
值得说明的是,变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currID不存在
2.执行网页中的函数
tmp := 'currID = getNextID(currID)'+#13#10;
Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmp,'JavaScript');
调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常

3.设置网页背景
背景图片 WebBrowser1.OleObject.Document.body.background := 'http://seelearn.com/bg.gif
' 背景颜色 WebBrowser1.OleObject.Document.body.bgcolor := '#eeeeee'

4.调用网页中已知对象
src := WebBrowser1.OleObject.Document.getElementByID('img1').src 该方法其实就是javascript中的 getElementByID

5.获取页面中所有的frame
使用DHTML。
 frames:=wb.OleObject.document.frames;
 for i:=0 to frames.length do
 memo1.lines.Add(frames[i].document.body.innerHTML);

6.BorderStyle=bsNone后Webbrowser会被重新初始化
这是一个让人很意外的一个问题,Delphi在窗口控件的控制方面做得非常好,很少出现这种BUG
根据分析,出现这个现象有很多情况改变FormStyle也会出现 ; 如果 webbrowser.parent
由panel1改到panel2.也会导致webbrowser重新初始化。

7.直接向Webbrowser中写入html代码,不需要Navigate到实际存在的文件
 var
 StrStream:TStringStream;
 SetNoteStr: string; begin SetNoteStr :='<body bgcolor=222222 align=center> 扬帆博客 http://wesohon.com';
 SetNoteStr :=SetNoteStr+' 点击左边按钮可查看对应图片';
 StrStream:=TStringStream.Create(SetNoteStr);
 WebBrowser1.Navigate('about:blank');
 try
 StrStream.Position:=0;
 ( WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
 finally
 StrStream.Free;
 end;
8.前进,后退,刷新
self.WebBrowser1.GoBack
self.WebBrowser1.GoForward
self.WebBrowser1.Refresh

9.捕捉NewWindow2事件,即新开窗口事件
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool);
var
 NewWindow: TForm2;
begin
 //exit;
 NewWindow:= TForm2.Create(nil);
 NewWindow.Show;
 ppDisp:= NewWindow.Webbrowser1.DefaultDispatch;
end; 值得一题的是该方法不能获得新开窗口的URL,退一步的方法只能是等到在新的Webbrowser中触发BeforeNavigate2事件判断了

10.网页中存在iframe时判断页面是否下载结束
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
 begin
 if WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕')end;
 说明一下,每个iframe下载完毕都会触发DocumentComplete事件,所以一个页面在真正下载完毕前可能被触发多次

11. 获取网页中图片//使用DOM模型，什么都能读下来
 uses MSHtml, ActiveX;
 var
 html_doc: IHTMLDocument2;
 doc_all : IHtmlElementCollection;
 vI : IHtmlImgElement;
 begin
 html_doc := WebBrowser1.Document as IHTMLDocument2;
 doc_all := html_doc.images;
 for I := 0 to doc_all.length - 1 do
 begin
 vI := doc_all.item(I, EMPTYPARAM) as IHtmlImgElement;
 //读取vI.src
 Memo1.Lines.Add(vI.src);
 end;
 end;12. 下面函数获得ISomeControl接口var
 html_doc: IHTMLDocument2;
 doc_all : IHtmlElementCollection;
 vI : IHtmlElement;
 vD : IDispatch;
 begin
 html_doc := WebBrowser1.Document as IHTMLDocument2;
 doc_all := html_doc.all;
 for I := 0 to doc_all.length - 1 do
 begin
 vI := doc_all.item(I, EMPTYPARAM) as IHtmlElement;
 if vI.tagName='OBJECT' then
 begin
 //读取Classid
 Memo1.Lines.Add((vI as IHtmlObjectElement).classid);
 //读取包容的对象接口
 vD := (vI as IHtmlObjectElement).object_;
 ...
 end;
 end;
 end;

分享到：

访问WebBrowser控件中的HTML源码 | WebBrowser 事件及ExecWB的参数

2009-12-11 22:06
浏览 2884
评论(0)
分类:Web前端
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论