delphi中 TWebBrowser的各种用法 获得网页中变量值.docVIP

delphi中 TWebBrowser的各种用法 获得网页中变量值 delphi中 TWebBrowser的各种用法2010-08-30 12331.获得网页中变量值 htm中script var currID=123script 程序中可以这么调用 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 = 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.document.body.innerHTML); 6.BorderStyle=bsNone后Webbrowser会被重新初始化 这是一个让人很意外的一个问题,Delphi在窗口控件的控制方面做得非常好,很少出现这种BUG 根据分析,出现这个现象有很多情况 改变FormStyle也会出现 ; 如果 webbrowser.parent 由panel1 改到panel2.也会导致webbrowser重新 初始化。 7.直接向Webbrowser中写入html代码,不需要Navigate到实际存在的文件 var StrStreamTStringStream; SetNoteStr string; begin SetNoteStr =body bgcolor=222222 align=centerbrp align=centerfont size=+2 color=#FFFFFF点点博客 fontp; SetNoteStr =SetNoteStr+brp align=centerfont size=+2 color=#FFFFFF点击左边按钮可查看对应图片fontp; StrStream=TStringStream.Create(SetNoteStr); WebBrowser1.Navigate(aboutblank); try StrStream.Position=0; ( WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream)); finally StrStream.Free; end; 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 NewWindo