Delphi3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式出现的,而且需要自己引入,在其后的4.0和5.0中,它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差,这次的TWebBrowser又是Microsoft的东东,自然不会好到哪里去,虽说MSDN上什么都有,可是内容太过庞杂,如果没有入口点更是件烦人的事,查找起来给人的感觉大概可以用一句话来形容:非常复杂、复杂非常。
这里有平时我自己用TWebBrowser做
程序的一些心得和上网收集到的部分例子和
资料,整理了一下,希望能给有兴趣用TWebBrowser编程的朋友带来些帮助。
1、初始化和终止化(Initialization & Finalization)
大家在执行TWebBrowser的某个方法以进行期望的操作,如ExecWB等的时候可能都碰到过“试图激活未注册的丢失目标”或“OLE对象未注册”等错误,或者并没有出错但是得不到希望的结果,比如不能将选中的网页内容复制到剪贴板等。以前用它编程的时候,我发现ExecWB有时侯起作用但有时侯又不行,在Delphi生成的缺省工程主窗口上加入TWebBrowser,运行时并不会出现“OLE对象未
注册”的错误。同样是一个偶然的机会,我才知道OLE对象需要初始化和终止化(懂得的东东实在太少了)。
我用我的前一篇文章《Delphi
程序窗口动画&正常排列平铺的解决》所说的方法编程,运行时出了上面所说的错误,我便猜想应该有OleInitialize之类的语句,于是,找到并加上了下面几句话,终于搞定!究其原因,我想大概是由于TWebBrowser是一个嵌入的OLE对象而不算是用Delphi编写的VCL吧。
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
这几句话放在主窗口所有语句之后,“end.”之前。
------------------------------------------------------------------------------------------------
2、EmptyParam
在Delphi 5中TWebBrowser的Navigate方法被多次重载:
procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags:
OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags:
OleVariant; var TargetFrameName: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags:
OleVariant; var TargetFrameName: OleVariant; var PostData:
OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags:
OleVariant; var TargetFrameName: OleVariant; var PostData:
OleVariant; var Headers: OleVariant); overload;
而在实际应用中,使用后几种方法调用时,由于我们很少用到后面几个参数,但函数声明又要求是变量参数,一般的做法如下: