自己做的html,用TWebBrowser调用显示,配置文件中记录着字体样式、大小、颜色和网页背景颜色,但我想读取配置文件,动态改变网页中的字体及背景的相关设置,然后用TWebBrowser调用显示?请教delphi可否实现?如何实现?请指教。
解决方案 »
- 类方法的Virtual,有什么具体的运用
- 在一个已经打开并有好多记录的ADOQuery中,如何一下子删除所有记录啊?
- 服务程序的问题
- TStrings中IndexOf方法的问题,大家看看~~~
- 在存储过程内部怎样判断从客户端传送过来的参数为空值?
- 请大师赐教image 怎么通过openpicturedialog更换图片,怎么判断当前image中图像的名称
- 如何读取一个二进制数据文件到pchar类型?
- richedit riched20.dll 内存地址错误
- 判断是左击还是右击
- delphi & ado and Sqlserver
- 我用delphi做的程序为什么到其它机器上出现错误?
- 请问:delphi中如何用TQuery打开一个数字开头的数据库文件,如2003.dbf
TWebBrowser编程简述
发表日期:2005-10-17 作者:[转贴] 出处:
1、初始化和终止化(Initialization & inalization) 大家在执行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; 而在实际应用中,使用后几种方法调用时,由于我们很少用到后面几个参数,但函数声明又要求是变量参数,一般的做法如下: 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)--------------------------------------------------------------------------------------------------------3、命令操作 常用的命令操作用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);
剪切、复制、粘贴、全选: 功能无须多说,需要注意的是:剪切和粘贴不仅对编辑框文字,而且对网页上的非编
辑框文字同样有效,用得好的话,也许可以做出功能特殊的东东。获得其命令使能状
态和执行命令的方法有两种(以复制为例,剪切、粘贴和全选分别将各自的关键字替
换即可,分别为CUT,PASTE和SELECTALL):
A、用TWebBrowser的QueryStatusWB方法。
if(QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED) or
OLECMDF_SUPPORTED) then
ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam,
EmptyParam);
B、用IHTMLDocument2的QueryCommandEnabled方法。
var
Doc: IHTMLDocument2;
begin
Doc :=WebBrowser1.Document as IHTMLDocument2;
if Doc.QueryCommandEnabled('Copy') then
Doc.ExecCommand('Copy',false,EmptyParam);
end; 查找: 参考第九条“查找”功能。--------------------------------------------------------------------------------------------------------4、字体大小 类似“字体”菜单上的从“最大”到“最小”五项(对应整数0~4,Largest等假设为五个菜单项的名字,Tag 属性分别设为0~4)。
A、读取当前页面字体大小。
var
t: OleVariant;
Begin
WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
EmptyParam,t);
case t of
4: Largest.Checked :=true;
3: Larger.Checked :=true;
2: Middle.Checked :=true;
1: Small.Checked :=true;
0: Smallest.Checked :=true;
end;
end;
B、设置页面字体大小。
Largest.Checked :=false;
Larger.Checked :=false;
Middle.Checked :=false;
Small.Checked :=false;
Smallest.Checked :=false;
TMenuItem(Sender).Checked :=true;
t :=TMenuItem(Sender).Tag;
WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
t,t);