用 Delphi 7 创建 ActiveX 组件交 ASP 使用

一、启动 Delphi 7 ，新建 ActiveX  - ActiveX Library ；

二、引入类库先，若你的 Delphi 还没有引入 asp 组件的话。
Project - Import Type Library ，“Microsoft Active Server Pages Object Library(Version 3.0)”，对应的dll文件是：“系统盘:/Windows目录/system32/inetsrv/asp.dll”，为防止组件名称重复，将TRequest，TResponse，TSession 分别重命名为 TAspRequest，TAspResponse，TAspSession，再点击“Install...”。

三、新建 ActiveX - Automation Object ，coClassName ="test2"，Instancing="Multiple Instance"；

四、在"Itest2"上新建方法：
1、OnStartPage，参数：const unk:IUnknown，
2、OnEndPage
3、Test（测试方法）

五、代码：
unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, Project1_TLB, StdVcl,ASPTypeLibrary_TLB; //1

type
  TTestObject = class(TAutoObject, ITestObject)
  protected
    procedure OnStartPage(const unk: IUnknown); safecall;
    procedure OnEndPage; safecall;
    procedure test; safecall;
  end;

implementation

uses ComServ;

var
  m_scriptContext:IScriptingContext;  //2

procedure TTestObject.OnStartPage(const unk: IUnknown);
begin
  m_scriptContext:=unk as IScriptingContext;  //3
end;

procedure TTestObject.OnEndPage;
begin
  m_scriptContext:=nil;   //4
end;

//5
procedure TTestObject.test;
begin
  m_scriptContext.Response.Write('ActiveX test for Delphi');
  m_scriptContext.Response.Write('大家好，我是由Delphi创建的ActiveX组件的输出信息.');
end;

initialization
  TAutoObjectFactory.Create(ComServer, TTestObject, Class_TestObject,
    ciMultiInstance, tmApartment);
end.

 六、注册ActiveX组件：
regsvr32 Project1.dll
反注册是：regsvr32 /u Project1.dll

注：若Delphi需重新编译工程，而IIS又在用这个dll，则重启w3c服务才能断开iis与dll的连接，才能编译。

七、ASP使用：
<div>

 <%
 Dim obj
 Set obj=Server.CreateObject("Project1.TestObject")
 obj.test
 Set obj=nothing
 %>
 
 </div>