WebBrower控件接口表

当前位置：网学 > 编程文档 > DELPHI > 正文

WebBrower控件接口表

作者：用户投稿来源：网络发布时间： 12/10/12

ress indicator if one is owned by the receiving object, usually a frame.

OLECMDID_SETPROGRESSTEXT

Sets the text contained in a progress indicator if one is owned by the receiving object, usually a frame. If the receiver currently has no progress indicator, this text should be displayed in the status bar (if one exists) as with IOleInPlaceFrame::SetStatusText.

OLECMDID_SETTITLE

Sets the title bar text of the receiving object, usually a frame.

OLECMDID_SETDOWNLOADSTATE

Called by the object when downloading state changes. Takes a VT_BOOL parameter, which is TRUE if the object is downloading data and FALSE if it not. Primarily implemented by the frame.

OLECMDID_STOPDOWNLOAD

Stops the download when executed. Typically, this command is propagated to all contained objects. When queried, sets MSOCMDF_ENABLED. Implemented by the document/object.

调用实例：ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam);

　１、初始化和终止化（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（还有很多地方要