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

用 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>