如何用Delphi 6开发ASP上传组件详解

发布: 2008-5-16 10:13 | 作者: 不详 | 来源: ccid | 查看: 90次 | 进入软件测试论坛讨论

Delphi6对开发ASP组件提供了极好的支持，大大简化了我们的开发过程。

启动Delphi 6，选择File-New-Other-ActiveX-ActiveX Library，这样就建立了一个ActiveX库。将此Library改名为myobj，存盘。选择File-New-Other-ActiveX-Active Server Object，在CoClassname中填入upfile，确定。这时会跳出一个标题为myobj.tlb的对话框，这是Delphi特有的以可视化方式编辑COM接口的功能，用Delphi开发过COM的读者应该比较熟悉。

在myobj下的名为Iupfile的Interface下，添加5个属性和一个方法。如果不懂得如何操作，

请参见Delphi参考书的相关部分。按F12可以看到生成的相应的myobj_tlb.pas文件，其中的

Iupfile接口应该是这个样子：

Iupfile = interface(IDispatch)
    [’{5C40D0EB-5A22-4A1E-8808-62207AE04B51}’]
    procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
    procedure OnEndPage; safecall;
    function  Get_Form(Formname: OleVariant): OleVariant; safecall;
    function  Get_FileName: OleVariant; safecall;
    function  Get_FileSize: Integer; safecall;
    procedure FileSaveAs(FileName: OleVariant); safecall;
    function  Get_FileData: OleVariant; safecall;
    function  Get_FileType: OleVariant; safecall;
    property Form[Formname: OleVariant]: OleVariant read Get_Form;
    property FileName: OleVariant read Get_FileName;
    property FileSize: Integer read Get_FileSize;
    property FileData: OleVariant read Get_FileData;
    property FileType: OleVariant read Get_FileType;
  end;