Delphi的TWebBrowser编程综述

　　 Delphi3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的，而且需要自己引入，在其后的4.0和5.0中，它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东东，自然不会好到哪里去，虽说MSDN上什么都有，可是内容太过庞杂，如果没有入口点更是件烦人的事，查找起来给人的感觉大概可以用一句话来形容：非常复杂、复杂非常。
　　 这里有平时我自己用TWebBrowser做程序的一些心得和上网收集到的部分例子和资料，整理了一下，希望能给有兴趣用TWebBrowser编程的朋友带来些帮助。
　　
　　
　　
　　 １、初始化和终止化（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.”之前。
　　 -----------------------------------------------------------------------------------
　　 ２、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;
　　 　　而在实际应用中，使用后几种方法调用时，由于我们很少用到后面几个参数，但函数声明又要求是变量参数，一般的做法如下：
　　 　　var
　　 　　　t:OleVariant;
　　 　　begin
　　 　　　webbrowser1.Navigate(edit1.text,t,t,t,t);
　　 　　end;
　　 　　需要定义变量t（还有很多地方要用到它），很麻烦。其实我们可以用EmptyParam来代替（EmptyParam是一个公用的Variant空变量，不要对它赋值），只需一句话就可以了：
　　 　　webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
　　 　　虽然长一点，但比每次都定义变量方便得多。当然，也可以使用第一种方式。
　　 　　webbrowser1.Navigate(edit1.text)
　　 -----------------------------------------------------------------------------------
　　 ３、命令操作 　　常用的命令操作用ExecWB方法即可完成，ExecWB同样多次被重载：
　　 　　procedure ExecWB(cmdID: OLECMDID; cmdexecopt:
　　 OLECMDEXECOPT); overload;
　　 　　procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT;
　　 var pvaIn:
　　 　　　　OleVariant); overload;
　　 　　procedure ExecWB(cmdID: rOLECMDID; cmdexecopt:
　　 OLECMDEXECOPT; var pvaIn:
　　 　　　　OleVariant; var pvaOut: OleVariant); overload;
　　 　　打开：　弹出“打开Internet地址”对话框，CommandID为OLECMDID_OPEN（若浏览器版本为IE5.0，
　　 　　　　　　则此命令不可用）。
　　 　　另存为：调用“另存为”对话框。
　　 　　　　　　ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,
　　 EmptyParam,
　　 　　　　　　　　　　　EmptyParam);
　　
　　
　　 　　打印、打印预览和页面设置：　调用“打印”、“打印预览”和“页面设置”对话框（IE5.5及以上版本才支持打
　　 　　　　　　　　　　　　　　　　印预览，故实现应该检查此命令是否可用）。
　　 　　　　　　ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT,
　　 EmptyParam,
　　 　　　　　　　　　　　EmptyParam);
　　 　　　　　　if QueryStatusWB(OLECMDID_PRINTPREVIEW)=3 then
　　 　　　　　　　ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT,
　　 　　　　　　　　　　　EmptyParam,EmptyParam);
　　 　　　　　　ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT,
　　 EmptyParam,
　　 　　　　　　　　　　　EmptyParam);
　　
　　
　　 　　剪切、复制、粘贴、全选：　功能无须多说，需要注意的是：剪切和粘贴不仅对编辑框文字，而且对网页上的非编
　　 　　　　　　　　　　　　　　　辑框文字同样有效，用得好的话，也许可以做出功能特殊的东东。获得其命令使能状

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有