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

领测软件测试网

 


其中的OnStartPage方法和OnEndPage方法是Delphi默认生成的，其它的是手动加入的。 

切换到unit1.pas（也是Delphi自动生成的），改名为upfile.pas存盘。可以看到存在一个Tupfile类的声明，它是继承自TASPObject类和Iupfile接口的。Delphi 6已经自动生成了相应的代码。接下来的任务就是实现这个接口。 

除了完成Iupfile接口中的属性和方法之后，还需要补充一些东西，以便完成我们的任务。最终的 

Tupfile类的声明如下： 

Tupfile = class(TASPObject, Iupfile)
  public
  protected
    procedure OnEndPage; safecall;  //页面开始 
    procedure OnStartPage(const AScriptingContext: IUnknown); safecall;  //页面
结束
    procedure FileSaveAs(Filename: OleVariant); safecall;  //保存文件
    function Get_Form(Formname: OleVariant): OleVariant; safecall;  //
    function Get_FileName: OleVariant; safecall;  
    function Get_FileSize: Integer; safecall;
    function Get_FileData: OleVariant; safecall;
    function Get_FileType: OleVariant; safecall;
  private
    FContentData:string;
    FFileData,FFileName,FFileType:string;
    FFormInfo:TStringList;
    function instr(str1,str2:string;startpos:integer):integer;

文章来源于领测软件测试网 https://www.ltesting.net/