Delphi中WebBrowser的使用技巧汇总
1>调用网页中已知对象
src := WebBrowser1.OleObject.document.getElementByIdx(’id1′).src
其实就是javascript中的 getElementByID 的函数
Html中的代码 : <script> var userID=123</script>
在delphi程序中这么调用
id := Form1.WebBrowser1.OleObject.Document.script.userID
userID变量可以是javascript定义的,也可以是vbscript定义的。如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量userID不存在
sRun := ‘userID = getNextID(userID)’+#13#10;
Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(sRun,’JavaScript’);
调用函数的方法就是execScript接口。如果函数不存在,或者运行错误会触发脚本错误异常
//获得frame对象数组frames
frames:=wb.OleObject.document.frames;
for i:=0 to frames.length do
memo1.lines.Add(frames[i].document.body.innerHTML);
注意: 每个iframe下载完毕都会触发DocumentComplete事件,所以一个页面在真正下载完毕前可能被触发多次!
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if WebBrowser1.Application = pDisp then showmessage(’页面已全部下载完毕’)
end;
GoBack：方法，后退到上一个页面。
GoForward：方法，前进到下一个页面。
GoHome：方法，调用默认的主页页面，该页面在IE的选项中设定。
GoSearch：方法，调用默认的搜索页面，该页面在IE的选项中设定。
Navigate(const URL: WideString; var Flags, TargetFrameName, PostData,
Headers: OleVariant)：方法，调用指定页面，具体参数如下：
URL：指定页面的URL。 Flags：Word类型，作用还不清楚，可设为0。
TargetFrameName：WideString，打开页面所在的Frame，为空字符串时在当前的
Frame中打开；TargetFrameName指定的Frame存在时在Frame中打开；
TargetFrameName指定的Frame不存在时则新建一个窗口打开，此时就相当
于调用外部的IE浏览器了。
PostData：boolean，是否允许发送数据。
Headers：WideString，要发送的URL请求的头部数据。
Refresh：方法，刷新当前页面。
Stop：方法，停止调用或打开当前页面。
LocationName：属性(WideString)，当前位置的名称。
LocationURL：属性(WideString)，当前位置的URL。
Busy: 属性(Boolean)，是否正忙。
Visible: 属性(Boolean)，浏览器窗口是否可见。
(以下属性为在TWebBrowser新增，TWebBrowser_V1中没有，，其作用有待探索)
StatusBar: 属性(Boolean)，是否显示状态栏。
StatusText: 属性(WideString)，状态栏内容。
ToolBar: 属性(SYSINT)，工具栏中的内容。
MenuBar: 属性(Boolean)，是否显示菜单条。
FullScreen: 属性(Boolean)，是否全屏显示。
Offline: 属性(Boolean)，是否脱机浏览。
AddressBar: 属性(Boolean)，是否显示地址栏。
TWebBrowser的常见事件主要有：
OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
在状态栏提示信息变化时发生，参数Text为当前状态栏提示信息，我们可以根据该信息
来更新我们自己的状态栏提示信息或处理其它的事务．
OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object;
在打开页面的进度变化时发生，参数Progress为当前进度，ProgressMax为总进度，我们
可以根据这两个参数来更新我们自己的状态栏提示信息或处理其它的事务．
OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
当执行新的命令时发生，Command为命令标识，Enable为是否允许执行该命令．
OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
在页面的标题发生变化时发生，Text为当前标题．
OnPropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;
在页面的属性发生变化时发生，Property_为属性名称
OnDownloadComplete: TNotifyEvent
在下载页面完成后发生．
OnDownloadBegin: TNotifyEvent
在下载页面开始前发生．
在uses中添加ActiveX
var
StrStream:TStringStream;
SetNoteStr: string;
begin
SetNoteStr :=’<body bgcolor=222222 align=center><br><p align=center><font size=+2 color=#FFFFFF>谷歌 </font></p>’ ;
SetNoteStr :=SetNoteStr+’<br><p align=center><font size=+2 color=#FFFFFF>实现webbrowser控件中显示动态html的程序代码</font></p>’;
StrStream:=TStringStream.Create(SetNoteStr);
WebBrowser1.Navigate(’about:blank’);
try
StrStream.Position:=0;
( WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
finally
StrStream.Free;
end;
end;
初始化和终止化（Initialization & Finalization）
温馨提示: 本文由Jm博客推荐，转载请保留链接: https://www.jmwww.net/file/70044.html
