生成DLL拷贝到winnt或system32目录,然后regsvc32看看

解决方案 »

  1.   

    在NT中启动MTS的expore然后New Package 然后New Component .
      

  2.   

    要拷出去除了*.dll还有那个??????????
      

  3.   

    nt 是否要另装mts????
     那里有的下载????
      

  4.   

    用delphi 我要创建一个内部变量,但没有string 类型的 只有一个istrings 类型的。
    即:
    unit Unit1;interfaceuses
      ComObj, ActiveX, AspTlb, Project2_TLB, StdVcl;type
      TMTSFILE = class(TASPMTSObject, IMTSFILE)
      protected
        procedure GETTEXT; safecall;
        function Get_text: IStrings; safecall;
        procedure Set_text(const Value: IStrings); safecall;
      end;implementationuses ComServ;
    var
       ss : string;
    procedure TMTSFILE.GETTEXT;
    VAR
        f : textfile;
        s : string;
    begin
        ss := '';
        assignfile(f,'c:/guo.txt');
        reset(f);    WHILE not seekeof(f) do BEGIN
           read(f,s);
           ss := ss + s;
        END;
        closefile(f) ;
    end;function TMTSFILE.Get_text: IStrings;
    begin
        Get_text := ss;
    end;procedure TMTSFILE.Set_text(const Value: IStrings);
    begin
         GETTEXT;
    end;initialization
      TAutoObjectFactory.Create(ComServer, TMTSFILE, Class_MTSFILE,
        ciMultiInstance, tmApartment);
    end.