提示“未申请的标示符”,ExecWB,怎么办?(100分)

  • 主题发起人 monkey999
  • 开始时间
M

monkey999

Unregistered / Unconfirmed
GUEST, unregistred user!
提示“未申请的标示符”,ExecWB,怎么办?
procedure TForm1.A2Click(Sender: TObject);
begin
ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,EmptyParam,EmptyParam);
end;
这句“procedure ExecWB(cmdID: OLECMDID
cmdexecopt: OLECMDEXECOPT)
overload;”我不会使用?它有什么作用?
 
ExecWB这个过程没有定义,你找找这个单元是那定义的?
 
应该是一个ActiveX控件的方法,前面要加你的控件名,比如TWebBrowser就有:
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);



-----
http://www.8421.org
 
>> 它有什么作用?
ExecWB 让你使用接口( IOleCommandTarget)发送指令给TWebBrowser.
TWebBrowser 提供对WebBrowser(IE) 功能的访问。
这些功能包括微软公司Shell Doc Object 和 Control Library.
他们都封装在SHDOCVW.DLL里面.
TWebBrowser 吸取了WebBrowser(IE)超级功能, 你就可以在Delphi上做一些WebBrowser工具,
比如: 根据客户的特殊需要做一个WebBrowser啦, 各种文件格式的浏览啦等等.

>>怎么使用?
看看例子吧...
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := '打开空网页';
Button2.Caption := '另存...';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('about:blank');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.ExecWB( OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);
end;

end.

完了[:)]
 
谢谢各位,我下去试试.
 
多人接受答案了。
 
顶部