、建立ActiveX Library工程
在ＤＥＬＰＨＩ中选择菜单File＝》New，在“New Item”对话框的ActiveX选项卡中选择“ActiveX Library”，ＤＥＬＰＨＩ会自动创建一个ＤＬＬ工程Project1。
２、建立Automation组件
在ＤＥＬＰＨＩ中选择菜单File＝》New，在“New Item”对话框的ActiveX选项卡中选择“Automation Object”;然后在“Automation Object Wizard”对话框中输入Class Name(如“UploadFile”)，Instancing选择“Multiple Instance”即可，单击“OK”后ＤＥＬＰＨＩ会自动创建一个ＴＬＢ（Type Library）文件Project1_TLB.PAS和一个ＰＡＳ(Unit)文件Unit1.PAS。在Type Library设计窗口中，将Project1改名为MyUpload，则该文件上载组件的ＯＬＥ
注册码为“MyUpload.UploadFile”。
３、引入ＡＳＰ类型库
为了使用ＡＳＰ的五个内建对象（Request、Response、Server、Application、Session），需要引入ＡＳＰ类型库。我们主要利用Request对象读取从客户端传递到服务器端的数据。
在Project菜单中选择“Import Type Library”，在“Import Type Library”对话框的“Type Libraries”列表选择“Microsoft Active Server Pages Object Library(Version 2.0)”（如果没有这个选项，请确定您的
计算机上安装了ＩＩＳ３以上或ＰＷＳ４以上并且ASP.DLL已正确注册），ＤＥＬＰＨＩ会自动创建一个ＴＬＢ文件ASPTypeLibrary_TLB.PAS，其中有我们需要的ＡＳＰ对象类型声明。
４、定义OnStartPage、OnEndPage过程
当在ＡＳＰ页面上用Server.CreateObject创建一个ＯＬＥ对象实例时，ＷＥＢ服务器会调用其方法OnStartPage，将ＡＳＰ应用环境信息传递给该对象，我们可以在该过程中获取客户端信息;当在ＡＳＰ页面中释放一个ＯＬＥ对象实例时，ＷＥＢ服务器会调用其方法OnEndPage，我们可以在该过程中进行释放内存等结束操作。在我们这个组件中，我们要用到其OnStartPage方法。
OnStartPage方法应该在Unit1.PAS中定义，OnStartPage的函数原型为：
procedure OnStartPage(AScriptingContext: IUnknown);
其中参数AScriptingContext是一个IScriptingContext类型变量，包含五个属性（Request、Response、Server、Application、Session）分别对应ＡＳＰ的五个内建同名对象。
我们需要在ＴＬＢ定义窗口（View＝》Type Library）中，为IUploadFile增加方法OnStartPage，其Declaration语句为“procedure OnStartPage(AScriptingContext: IUnknown);”。
（二）提取客户端上传的数据
该工作可以放在OnStartPage过程中进行。
利用AScriptingContext的属性Request(类型为IRequest)中的属性TotalBytes（请求信息内容长度）和方法BinaryRead可将客户端上传的请求信息数据读取到一个Byte类型的数组中，然后按RFC1867标准定义的数据格式来分析和提取数据。
１、首先定义TUploadFile的几个私有变量
在单元文件UP01.PAS（由Unit1.PAS另存）中加入对ASPTypeLibrary_TLB.PAS的引用（Uses），
然后加入
private
FContentLength : LongInt;//请求信息内容长度
FContentData : Variant;//内容数据,以数组形式存储请求信息内容
FFileName, //要上载的文件名称
FDelimeter : string; //表单域分界符
FScriptingContext : IScriptingContext;//ASP处理上下文环境内容
FFileDataStart, //文件数据开始位置
FFileDataEnd : LongInt; //文件数据结束位置
２、提取客户端上传的请求信息数据
//在OnStartPage事件中，获取ASP上下文信息、请求信息内容、表单域的分界符、文件数据
procedure TUploadFile.OnStartPage(AScriptingContext: IUnknown);
var
ARequest : IRequest; //WWW请求对象
AOleVariant : OleVariant; //记录请求信息内容长度
intDelimterLength : integer;//分界符长度
longIndex,ALongInt,longPo
