困扰了几天的问题，急，请高手们帮忙！up有分

我现在在用delphi6修改一个用delphi7编写的不可见的activex，已经能够添加新的函数，编译一切正常，在自己的及其上面可以运行，但是在别的机器上面所有的函数都说对象不支持此方法的错误！为什么会这样？
我在其他的机器上面（没有安装delphi）用regsvr32进行注册，说loadlibrary失败，找不到制定的模块的错误我现在应该怎么办？
谢谢了！

解决方案 »

  1.   

    regsvr32,文件所在路径搞对了没有？还有你可以不用这个注册，DLL的引出函数就有一个注册用的，你可以写一个程序调用你的ActiveX所在的DLL的那个注册函数。
      

  2.   

    先发布一下，然后再拿过去执行看可不可以？
    另外，发布了以后，看html文件中cab文件的路径对不对，最好用相对路径。
      

  3.   

    下面是我写的一个html来调用这个ocx，只有这一种调用方法，但是不知道为什么点击任何一个按钮的时候总是说对象不支持此方法，请大家帮帮忙，后面的参数是不是这个ocx的输入参数？跟这个应该没有关系吧！<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
    <!--Sub B3_onclick
      wrd.openfile "huangzl","1","1"
    End SubSub B4_onclick
      wrd.test 
    End SubSub B5_onclick
      if wrd.isopenfile="1" then
         msgbox "Open file"
      end if   
    End SubSub B6_onclick
      wrd.newfile "huangzl","1",""
    End SubSub B7_onclick
      wrd.readfile "1"
    End SubSub B8_onclick
      wrd.clearedit "huangzl","http://huangzl:88/upload/test.doc"
    End SubSub B9_onclick
    '  wrd.openfile "huangzl","http://huangzl:88/upload/test.doc","1"
      wrd.newpaper "http://huangzl:88/upload/test.doc"
      wrd.addstr "test","I add bookmart"
    End SubSub B10_onclick
      wrd.add "test","h just"
    End SubSub B11_onclick
      wrd.openAttachedFile frm.T1.value,""
    End SubSub B12_onclick
      wrd.start "http://huangzl:88/upload/test.doc"
      wrd.addtext "test","0624kkkkk"
      wrd.end 
    End SubSub B13_onclick
      wrd.setprint "djc"
    End SubSub B14_onclick
      wrd.printcell "djc","http://huangzl:88/upload/p0.doc","sql","0"
    End SubSub B15_onclick
    '  wrd.printcell "b001001","http://huangzl:88/upload/p1.doc","SELECT receiveDate, fromDept, urgencyStatus, sendDate, title, secretStatus, origNo FROM dbo.ioa_df_shouwen where processID='247'","1"
      wrd.printcell "b001002","http://huangzl:88/upload/p1.doc","select c.banliOption,c.banliTime,c.banliName from(SELECT  ioa_df_niban.niBanOpinion as BanliOption,auth_user.userName as BanliName, ioa_df_niban.niBanTime as BanliTime ,iOA_df_task.processID as processID FROM iOA_df_task INNER JOIN  ioa_df_niban ON iOA_df_task.taskID = ioa_df_niban.taskID INNER JOIN  auth_user ON ioa_df_niban.niBanUserName = auth_user.userId union all SELECT ioa_df_shouwen.shenheNiban as BanliOption, auth_user.userName as BanliName,  ioa_df_shouwen.receiveDate as BanliTime,ioa_df_shouwen.processID as processID FROM ioa_df_shouwen INNER JOIN auth_user ON ioa_df_shouwen.userid = auth_user.userId) c where c.processID = '247'","1"
    End SubSub B16_onclick
      wrd.openAttachedFile frm.T2.value,frm.T3.value 
    End SubSub B17_onclick
      wrd.opendoc "huangzl","","111","1"
    End SubSub B18_onclick
      wrd.addprint "huangzl","aaa"
    End Sub-->
    </SCRIPT>
    <HTML>
    <H1 align="center"> 在线编辑控件测试 </H1> 
    <form method="POST" name="frm">
      <p align="left"><input type="button" value="打开（在线编辑）" name="B3"> <input type="button" value="新建（在线编辑）" name="B6">       
      <input type="button" value="只读查看文件" name="B7">          
      <input type="button" value="是否有文件在编辑" name="B5">&nbsp;&nbsp; </p>          
      <p align="left"> <input type="button" value="发文稿纸书签" name="B9">　<input type="button" value="正文书签" name="B10">　<input type="button" value="不打开文件插书签" name="B12">　<input type="button" value="接受修改" name="B8"> </p>   
      <p align="left">   
      <input type="button" value="打印设置" name="B13"> <input type="button" value="打印册子" name="B14"> 
      <input type="button" value="打印办理单" name="B15"></p>    
      <p><input type="text" name="T1" size="49" value="http://huangzl:88/upload/001.pdf"><input type="button" value="打开附件" name="B11"></p>  
      <p><input type="text" name="T2" size="49" value="http://www.toone.com.cn:88/OA/jsp/document/download.jsp?id=327&amp;folderId=0001&amp;userid=7f9e04-f2de9f8d7f-1db73e62509fa87d41709bda70c213f4">&nbsp;    
      <input type="text" name="T3" size="9" value="001.xls"> <input type="button" value="打开流附件" name="B16"></p>     
      <p><input type="button" value="新建模板" name="B17">　<input type="text" name="T4" size="20" value="2"><input type="button" value="修改模板" name="B18"></p>   
    </form>
    <p> 　 </p><p>
    You should see your Delphi 7 forms or controls embedded in the form below. 
    <HR><center><P>
    <OBJECT
      classid="clsid:C21DA63E-4504-466C-AF37-CFF6634F6E1D" id="wrd"
      style="display:none"
      codebase="D:\OCX_源代码\新建文件夹\openwordXControl1.ocx#version=1,0,0,4"
      
      width=350
      height=250
      align=center
      hspace=0
      vspace=0
    >
    <param name="uploadjsp" value='Civwq<20jxbpj{n=9:2vrijnh/lvq'>
    <param name="downloadjsp" value='Eivwq<20jxbpj{n=9:2PC2kus0ohtudhg2eqzonrbf1kus'>
    <param name="setprintjsp" value='Tivwq<20jxbpj{n=9:2tgwqtlov1kus'>
    <param name="printdatajsp" value='Mivwq<20jxbpj{n=9:2qtlovgbvd/lvq'>
    </OBJECT>
    </HTML>
      

  4.   

    你把Object的标签,放到脚本前面去试试看
      

  5.   

    你可以把OCX组件不需要你的源代码，发给我，我帮你测试一下我的QQ6936391
      

  6.   

    这个要认真分析了
    可能是调用了D7的Dll导致的问题
    检查OCX，使其独立Delphi运行