关于ActiveX开发的。 其实我不确定是否该用这个技术。我想实现的是:网页中 JAVASCRIPT :demo = new ActiveXObject("demoActivex");...... 来调用这个控件。  实现,用户安装这个控件后,在网页中输入某IP地址,显示PING内容,然后,我不知道DELPHI如何编写 ActiveX 控件能给我个例子么???JS调用控件的例子。。

解决方案 »

  1.   

    我就是做这个的.
    请查看我发的一个帖子,我有详细说明.
    我是用在Domino的开发,生成的控件是ActvixeX dll.
      

  2.   

    帖子名字叫什么??URL?
    我只稍微会点DELPHI
      

  3.   

    一、先将控件中要实现的功能在普通的工程中编写,并测试完毕;
    二、加ActiveX外壳:
       1、在File-New-Other-ActiveX页中新建一个ActiveX Libtary 工程,然后在相同的页中添加Automation Object;
       2、在弹出的向导中,将CoClaee Name设为TEST(当然你也可以设为其它);
       3、在随后的TLB设置中你能看到系统为你生成了一个接口(ITEST),当然你也可以改为其它名称;
       4、在ITEST中你可以增删各种属性和方法;这和DELPHI的VCL控件开发没有什么区别;需要注意的是参数类型。字符串可以用BSTR,布尔可以用OLE_ENABLEDEFAULTBOOL,还要注意传入传出方式(IN 或OUT);
       5、假设我们设置了一个RUN方法,是运行该控件窗体的。
       至此,我们的ACTIVEX外壳已完成。
    三、将窗体加入控件中:
      在生成的主单元中,USE一下该窗体。随后在RUN的方法中加入:
      Form1:=TForm1.Create(nil);
      Form1.ShowModal;
      Form1.Free;
    四、编译控件:选择Project-Compile Test;
    五、发布控件:选择Run-Register ActiveX Server
    六、测试控件:生成一个HTML文档
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <script>
    var Project1 = new ActiveXObject("Test.test");
    Project1.run();
    </script>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>无标题文档</title>
    </head>
    <body>
    </body>
    </html>
    双击该文档,即可看到窗体被弹出。
      
      

  4.   

    我按照这么做了,但是 var Project1 = new ActiveXObject("Test.test"); 创建口,,没反应try{
    Project1 = new ActiveXObject("Test.test");
    }catch(e){
    alert("no");
    }显示的是NO。  大哥能浪费1分钟给份:  Project1.run('1+1')  返回 2  的 源代码可用示例么?  谢谢![email protected]
      

  5.   

    delphi的ocx等做安全证书比较麻烦。没有dotnet方便。
    我以前好像也找过类似的文章。你google一下呢。