Delphi 编写ActiveForm窗体工程知识和样例（开发浏览器客户端应用程序）

时间 2019-11-10

标签 delphi 编写 activeform 窗体工程知识样例开发浏览器客户端应用程序栏目 Delphi 繁體版

原文原文链接

Delphi 编写ActiveForm窗体工程知识和样例（开发浏览器客户端应用程序）

目录(?)[+]程序员

一基础知识介绍编程
二 ActiveForm工程浏览器

1、基础知识介绍：

一、ActiveForm的基础知识介绍：安全

在Delphi中，ActiveForm是封装了Delphi Form的一种ActiveX控件。ActiveForm实际上是一种标准的Delphi From(ActiveForm继承自TForm)。ActiveForm中可能会包含某些VCL或者ActiveX组件，包括用户自定义的组件。就像“标准的”Windows应用程序同样，咱们也能够向ActiveForm中添加代码以及对事件做出应答。惟一的区别是，ActiveForm的标题栏(title bar)在运行时是不可见的，只是在设计时才可见。spa

二、ActiveForm的做用：开发B/S模式下的运行的应用程序（开发浏览器的客户端应用程序）.net

使用Delphi ActiveForm的功能能够开发一个在浏览器中执行的Delphi应用程序。因为ActiveForm能够包含任何Delphi中的VCL组件，因此程序员能够创建一个拥有数据感知能力的ActiveForm组件，具备处理数据的能力，当它使用于IE时，就可让IE变成可以处理数据的应用系统。设计

三、用ActiveForm开发B/S模式与C/S模式是不同的。code

使用Delphi ActiveForm的功能开发一个能够在浏览器中执行的Delphi应用程序时，与一般的Delphi开发应用程序并不相同。Delphi开发在C/S模式下运行的应用程序，一般选择菜单项“File”—〉“New”—〉“Application”，从而创建一个新的project来完成。开发在B/S模式下运行的应用程序，和C/S模式有些区别。 orm

2、 ActiveForm工程

一、建立一个ActiveForm工程的具体步骤：htm

1>、【File】—>【Close All】，首先关闭全部的项目。

2>、而后【File】—〉【New】，打开New Items对话框。切换到【ActiveX选项卡】中选择创建【Active Form】。而后点【OK】按钮,打开向导窗体。该向导会建立一个ActiveX library项目来包含ActiveForm和一个可定制的激活的Form窗口。

3>、在向导窗体中输入New ActiveX name,这里我输入一个AFHello,其它保持默认，点击【OK】。（自动建立了一个ActiveX Library 工程，一个Form窗口，一个实现文件，一个类型库，以及一个包含了全部这些类型库说明信息的类型库文件(.TLB文件)。）

4>、这时Delphi为咱们创建好了一个ActiveForm的窗体，咱们先拉一个按钮到窗体上，把按钮的name属性设为btnHello,Caption设为say hello,在按钮的onclick事件中，输入编程：

　　procedure TAFHello.btnHelloClick(Sender: TObject);
　　begin
　　 MessageBox(Handle,'个人第一个ActiveForm','hello',mb_ok)
　　end;　

5>、代码的部份完成了，选择菜单"File"->"Save All",保存全部工程，我这里是将工程中的全部文件保存在“D:\AFHello\＂目录下，

6>、下面就是要将ActiveForm发布出来了，从下拉菜单中选中"Project"->"Web Deployment Options"，在弹出的窗口输入以下信息：
Target dir : OCX保存的目录；ActiveForm组件于HTML首页中codebase tag的目的。
Target URL : OCX发布后的虚拟目录,这里".\"表示在根目下；Delphi分发ActiveX组件的时候自动产生一个HTML的首页档案；
HTML dir : 输出一个包含控件的Html文件，它的存放目录；点击【OK】按钮,

<HTML>

<H1> Delphi 7 ActiveX Test Page </H1><p>

You should see your Delphi 7 forms or controls embedded in the form below.

<OBJECT

classid="clsid:82C92557-9E0F-4E54-93BF-B36BDC598625"

codebase="./ActiveFormProj1.ocx#version=1,0,0,0"

width=350

height=250

align=center

hspace=0

vspace=0

</OBJECT>

</HTML>

7>、而后从下拉菜单中选中"Project"->"Web Deploy"，进行发布,在目标目录中生成了一个htm文件和一个ocx文件，从IE加载htm文件，就能够运行ocx了.用鼠标点击一个"say hello"按钮，看看运行状况是怎么样的。

8>、哈哈，第一个ActiveForm工程就完成了！点击htm文件运行。(另外须要修改IE的设置，不然默认状况下OCX会由于安全性问题禁止被运行。若是有签名就没有安全性问题，可是签名的证书是要花钱买的)

二、注册ActiveForm控件

要想在其它项目中调用咱们刚建立的Active Form，咱们必须先将其注册到Windows消息系统中，而后还要将其添加到Delphi的VCL类库中，这样在其它项目中才能找到该Active Form控件并进相应的使用。

注册ActiveForm，也组成普通的Active控件的同样的。

三、调用ActiveForm控件

使用其它的VCL控件同样使用咱们添加的ActiveForm控件。在Delphi中，点击File->New->Application建立一个新的应用程序，而后在其默认建立的Form窗口中添加咱们刚添加的Active Form控件。