给你一段...
ACTIVEX FROM
首先设置一个虚拟目录，定名为Delphi
1）进入Delphi，Close all
2）New -> Other -> ActiveX -> ActiveX Form ->Name: MyActiveX
OK
3）出现一个普通的Form界面，放入
TButton
TListBox
TEdit
三个控件，设计目标是，点Button后ListBox添加一个Edit的内容。
4）Save all 到虚拟目录的 ActiveX/Ac2/ 子目录下。
5）双击Button，在Button1Click事件程序下写：
ListBox1.items.add(edit1.text);
6）这就完成了，保存。
7）Porject ->Build All 编译
8）Porject -〉Web Deployment Options 设置分发参数
第一项：OCX保存的目录 （虚拟目录/ActiveX/ac2/）
第二项：OCX保存在哪个相对路径中
（http://127.0.0.1/delphi/ActiveX/ac2/）
第三项：Delphi产生的HTML 保存路径（虚拟目录/ActiveX/ac2/）
Ok
9）产生嵌入ActiveXForm的HTML文件
Porject -〉Web Deploy
现在保存这个工程然后退出
观察效果
打开IE浏览器， 把网址写为：http://127.0.0.1/delphi/activex/ac2/
就可以看到下面的文件列表：
[To Parent Directory]
2000年5月27日 9:10 750 MyActiveImpl1.~dfm
2000年5月27日 9:11 9160 MyActiveImpl1.~pas
2000年5月27日 9:31 16936 MyActiveImpl1.dcu
2000年5月27日 9:16 51 MyActiveImpl1.ddp
2000年5月27日 9:14 778 MyActiveImpl1.dfm
2000年5月27日 9:15 9307 MyActiveImpl1.pas
2000年5月27日 9:11 334 MyActiveProj1.~dpr
2000年5月27日 9:11 6424 MyActiveProj1.~tlb
2000年5月27日 9:27 386 MyActiveProj1.cfg
2000年5月27日 9:27 1436 MyActiveProj1.dof
2000年5月27日 9:11 334 MyActiveProj1.dpr
2000年5月27日 9:29 382 MyActiveProj1.htm
2000年5月27日 9:31 477696 MyActiveProj1.ocx
2000年5月27日 9:27 1836 MyActiveProj1.res
2000年5月27日 9:11 6424 MyActiveProj1.tlb
2000年5月27日 9:11 15377 MyActiveProj1_TLB.~pas
2000年5月27日 9:31 11952 MyActiveProj1_TLB.dcu
2000年5月27日 9:11 15377 MyActiveProj1_TLB.pas
其中：MyActiveProj1.htm 就是刚才内嵌的HTML文件，点击这个超级
链接，就可以看到包含ActiveX的网页了。
打开这个网页的源代码，可以看到这个HTML文件中真正重要的是下面
的一段，把这一段镶嵌到任何一个网页中，都可以调用这个ActiveX 。而
其它部分可以用诸如Frontpage 等网页设计软件来完成。
<OBJECT
classid="clsid:937B0348-FF1E-4E70-9244-3375EF9AF5E5"
codebase="http://127.0.0.1/delphi/ActiveX/Ac2/MyActiveProj1.ocx#version=1,0,0,0"
width=313
height=248
align=center
hspace=0
vspace=0
>
</OBJECT>
真正使用的时候，codebase要使用下面的地址
codebase="http://127.0.0.1/delphi/ActiveX/Ac2/MyActiveProj1.ocx
用Delphi编写ASP的ActiveX
ASP中的ActiveX服务器组件为标准的Automation ActiveX组件，只要使用由ASP提供的接口和遵守ASP有关规则便可。Delphi 4.0作为一种高效、快速、强大的开发语言，为开发COM组件提供了很强的功能，但不知道什么原因，很少有人运用Delphi编写ASP中的ActiveX服务器组件。本文意在通过举例介绍如何运用Delphi编写ASP中的ActiveX 组件。
通过以下步骤创建ASP中的ActiveX 服务器组件：
1.创建一个ActiveX library工程
打开Delphi编辑器，选择选单中的File/New，在New Item中选择 the ActiveX 项中的ActiveX Library选项，Delphi将自动生成以下代码：
library Project1;
uses
ComServ;
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{＄R ＊.RES}
begin
end.
这是Delphi编译COM组件时必须的函数，DllGetClassObject函数负责将输入调用从COM库转换到相应的类工厂中；DllCanUnloadNow函数是通知OLE引擎如果没有程序引用将自动释放内存；DllRegisterServer与DllUnregisterServer函数用来登记COM服务器。总之Delphi已经为你做好了一切辅助工作，你只需用心编写主要功能模块便可。
2.在该工程中新增一个automation对象
选择Delphi编辑器选单中的File/New，在New Item中选择ActiveX 项中的Automation Object选项，系统将显示the Automation Object导向，在物件名称中输入TestObject和选择Multiple Instance选项,按OK键后系统将弹出类型编辑器，其实这时系统已经生成了两个单元（Project1-TLB.pas与unit1.pas），unit1.pas中有如下代码：
initialization
TAutoObjectFactory.Create(ComServer, TTestObject,
Class-TestObject, ciMultiInstance);
end.
这是告诉类工厂物件执行的方式与位置。
3.增加组件中的属性与方法
在类型编辑器中单击工具栏中的方法按钮增加以下方法：
OnStartPage(unk:IUnknown)
OnEndPage.
Test.
注意在增加方法OnStartPage时，在Parameters项中增加参数unk，类型为Iunknown，增加三项方法后，在类型编辑器中按Refrash键，Unit1.pas中将会出现三个函数，在每个函数下写如下程序：
procedure Ttestobject.OnStartPage(unk: IUnknown);
begin
m_scriptContext := unk as IScriptingContext;
end;
procedure Ttestobject.OnEndPage;
begin
m_scriptContext := nil;
end;
procedure Ttestobject.test;
begin
m-scriptContext.Response.Write(′ActiveX Test For Delphi′);
end;
当IIS激活一个ActiveX组件时它会自动寻找组件中是否有OnStartPage与OnEndPage方法，如果存在，服务器将在开启本ASP页时自动执行OnStartPage方法和当本ASP页所有脚本执行完毕后自动执行OnEndPage方法。
其中mscriptContext 与IScriptingContext是ASP中负责将ASP转换成HTML格式必不可少的变量与类型，因此必须将Unit1.pas文件中的Uses加上ASPTypeLibrary-TLB变成
unit unit1;
interface
uses ComObj, ActiveX, Delphi_TLB, ASPTypeLibrary-TLB, SysUtils;
ASPTypeLibrary-TLB.Pas文件可以通过类型库引入取得，打开Delphi编辑器中的选单Project/import type library 项，选择the Microsoft Active Server Pages Type library，按OK，Delphi便会自动生成一个ASPTypeLibrary_TLB.Pas。
4.编译与注册
选择Delphi编辑器中的选单Project/Compile 项编译文件，然后选择Run/Register ActiveX Server对Project1.dll文件注册。
5.在ASP文件中运用Project1.dll
在ASP文件中加入以下文字：
Set TestASP = Server.CreateObject(Project1.TestObject)
TestASP.Test
通过上面的例子，我们可以发现用Delphi编写ASP中的ActiveX服务器组件是十分容易的，加上Delphi丰富的组件与强大的功能，使我们相信运用Delphi编写特殊的ASP服务器组件，如数据库、服务器上各种信息与资源访问等，都会十分方便。
rocedure RunActiveX(const username,userpsw,userID:widestring);