柳
柳帆
Unregistered / Unconfirmed
GUEST, unregistred user!
1.启动Delphi,选择File|New Application建立一个应用程序,设置主窗体的name为frmTest,width=400,height=300,同时你还可以在窗体上加入任何你想要使用的控件(这一切就和你平时编写Delphi程序一样),以及任何你想要实现的功能,保存此程序(如窗体文件为:test.pas,test.dfm)。
2.关闭上述程序,在Delphi中选择File|New|ActiveX|ActiveForm,单击OK按钮确定,出现如图2所示AxtiveForm Wizard对话框,其中New ActiveX Name项为将要在IE中用到的ActiveX名称,其余项目按照默认值即可,单击OK确定,得到一个新的ActiveForm工程,在产生了空白的ActiveForm窗体之后,设置这个窗体的Width=400,Height=300(Width和Height的值必须和你要在IE中显示的应用程序的相应值一样如上面的frmTest)。
3.保存此工程,然后拷贝第一步中的test.pas和test.dfm到保存此工程的目录中,在Delphi中选择View|Project Manager打开此ActiveForm的工程管理器,如图3所示加入test.pas和test.dfm。接下来要编写几行程序了,先在ActiveForm的程序单元的uses中加入test的窗体,再在ActiveForm主窗体中加入变量frmT,此变量为TfrmTest的对象变量(如图4)。接着在ActiveForm的OnCreate中编写如下程序。这些程序的作用是现动态建立Test的主窗体,设定它在ActiveForm的显示区域中执行,当此ActiveForm在IE中下载执行时,Test便会显示在ActiveForm显示区域之中。最后再在ActiveForm的OnDestroy函数中添加如下程序,释放OnCreate中创建的Test主窗体。
procedure TTestX.ActiveFormCreate(Sender: TObject);
begin
frmT := TfrmTest.Create(self);
frmT.Parent := self;
frmT.Align := alClient;
frmT.BorderStyle := bsNone;
frmT.Visible := true;
end;
procedure TTestX.ActiveFormDestroy(Sender: TObject);
begin
frmT.Free;
end;
接下来就可以把上述ActiveForm发布到自己的Web server中,以供使用。在发布之前,需要先对需要发布的ActiveForm作一些设置(如图5)。在Delphi中选择Project|Web Edployment Options...,其中“Target dir”指的是ActiveForm要发布到的目的地位置,我用“D:test”是因为在IIS中指定程序和ActiveX组件放置的目录。“Target URL”指的是此ActiveX组件在HTML首页中codebase tag的位置。“HTMLdir”指的是Delphi在发布ActiveX组件时会自动为我们产生一个HTML首页,“HTMLdir”则是保存此首页文件的位置。正确设定上述相关项目后,图中General Options之中的选项也是需要设置的。如果程序员在ActiveForm Wizard对话框中选定了Include Version Information选项,Delphi会自动选定Include file ersion number选项。
除此之外,程序员最好也选定Auto Increment release nember。此选项会在程序员每次重新编译范例ActiveForm时自动的增加范例ActiveForm的版本号。这样作的好处是,当我们以“客户/服务”模式在IE中使用此ActiveForm时,IE会发现客户端计算机中的范例ActiveForm是较旧的版本,那么IE就会自动的在服务器中下载新的范例ActiveForm组件到客户端计算机中。
完成上述设置后,再在Delphi中选择Project|Web Deploy开始发布范例ActiveForm组件到Web server中,如果都没遇问题的话,程序员可以看到一个标题为Deploying Project的画面。
关键是第3步有些不懂,请说详细点
2.关闭上述程序,在Delphi中选择File|New|ActiveX|ActiveForm,单击OK按钮确定,出现如图2所示AxtiveForm Wizard对话框,其中New ActiveX Name项为将要在IE中用到的ActiveX名称,其余项目按照默认值即可,单击OK确定,得到一个新的ActiveForm工程,在产生了空白的ActiveForm窗体之后,设置这个窗体的Width=400,Height=300(Width和Height的值必须和你要在IE中显示的应用程序的相应值一样如上面的frmTest)。
3.保存此工程,然后拷贝第一步中的test.pas和test.dfm到保存此工程的目录中,在Delphi中选择View|Project Manager打开此ActiveForm的工程管理器,如图3所示加入test.pas和test.dfm。接下来要编写几行程序了,先在ActiveForm的程序单元的uses中加入test的窗体,再在ActiveForm主窗体中加入变量frmT,此变量为TfrmTest的对象变量(如图4)。接着在ActiveForm的OnCreate中编写如下程序。这些程序的作用是现动态建立Test的主窗体,设定它在ActiveForm的显示区域中执行,当此ActiveForm在IE中下载执行时,Test便会显示在ActiveForm显示区域之中。最后再在ActiveForm的OnDestroy函数中添加如下程序,释放OnCreate中创建的Test主窗体。
procedure TTestX.ActiveFormCreate(Sender: TObject);
begin
frmT := TfrmTest.Create(self);
frmT.Parent := self;
frmT.Align := alClient;
frmT.BorderStyle := bsNone;
frmT.Visible := true;
end;
procedure TTestX.ActiveFormDestroy(Sender: TObject);
begin
frmT.Free;
end;
接下来就可以把上述ActiveForm发布到自己的Web server中,以供使用。在发布之前,需要先对需要发布的ActiveForm作一些设置(如图5)。在Delphi中选择Project|Web Edployment Options...,其中“Target dir”指的是ActiveForm要发布到的目的地位置,我用“D:test”是因为在IIS中指定程序和ActiveX组件放置的目录。“Target URL”指的是此ActiveX组件在HTML首页中codebase tag的位置。“HTMLdir”指的是Delphi在发布ActiveX组件时会自动为我们产生一个HTML首页,“HTMLdir”则是保存此首页文件的位置。正确设定上述相关项目后,图中General Options之中的选项也是需要设置的。如果程序员在ActiveForm Wizard对话框中选定了Include Version Information选项,Delphi会自动选定Include file ersion number选项。
除此之外,程序员最好也选定Auto Increment release nember。此选项会在程序员每次重新编译范例ActiveForm时自动的增加范例ActiveForm的版本号。这样作的好处是,当我们以“客户/服务”模式在IE中使用此ActiveForm时,IE会发现客户端计算机中的范例ActiveForm是较旧的版本,那么IE就会自动的在服务器中下载新的范例ActiveForm组件到客户端计算机中。
完成上述设置后,再在Delphi中选择Project|Web Deploy开始发布范例ActiveForm组件到Web server中,如果都没遇问题的话,程序员可以看到一个标题为Deploying Project的画面。
关键是第3步有些不懂,请说详细点