如何在网页中调用OCX控件中的方法？OCX控件中如何添加方法？

RT！另外我在调用的时候还希望给OCX控件传一个参数，这个参数在delphi中如何定义？请高手指点，在线等待！如果有例子，请给发一份好吗，[email protected]

解决方案 »

  1.   

    不太明白你的意思，直接用就行了阿....网页/delphi什么意思
      

  2.   

    <object classid="它的CLSID" name="obj1">
    然后你就可以用了，obj1就是它的对象名，如调用函数
    obj1.method1(var1)
      

  3.   

    用DELPHI可以写CGI程序。
    就直接可以调用那个注册OCX控件的程序了。
    再用ShellExecute
    进行注册。
      

  4.   

    procedure TWebModule1.WebModule1showfhChartAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    begin
      VSion:='2,1,87,1';
     // Ip:='192.168.100.33';
      Ip:=SwIp;
      Response.Content:='<HTML>'+
                    //   ' <H4><center>    </H4><center><p>'+
                    //   ' <H4><center>负荷曲线</H4><center><p>'+
            '<tr>'+
              '<td valign="middle" height="68">'+
                '<div align="center"><img src="../image/index1.gif" width="560" height="56"></div>' +
              '</td>'+
            '</tr>'+
            '<BODY text=#FF0000 bgColor=#ffffff leftMargin=0 topMargin=0;marginheight="0" marginwidth="0" background="../image/rback1a.gif" link="#000000">'+
                        ' <center><P>'+
                        ' <OBJECT'+
                          ' classid="clsid:6AC3960A-F099-4043-BADA-4276B1C71B5A"'+
                          ' codebase="http://'+Ip+'/WS/ClientAFDemoProj1.cab#version='+VSion+'"'+
                          ' width=660'+
                          ' height=450'+
                          ' align=center'+
                          ' hspace=0'+
                          ' vspace=0'+
                        ' >'+
                        ' <param name="IP" value="'+Ip+'">'+
                        ' <param name="UserID" value="'+Request.QueryFields.Values['User_ID']+'">'+
                        ' <param name="UserType" value="'+UserType+'">'+
                        ' <param name="ISearchType" value="'+ISearchType+'">'+
                        ' <param name="SUserOrProject" value="'+SSuser_Pro+'">'+
                        ' <param name="SMyTemp" value="5">'+
                        ' </OBJECT>'+          '</body>'+
                        ' </HTML>';end;
      

  5.   

    IP参数在delphi中定义function TClientAFDemo.Get_IP: WideString;
    beginend;procedure TClientAFDemo.Set_IP(const Value: WideString);
    begin  SIP := Value;
      HTTPRIO1.WSDLLocation := 'http://'+SIP+'/ws/CGIWebService.exe/wsdl/IIMyFirstWS';
      HTTPRIO2.WSDLLocation := 'http://'+SIP+'/ws/CGIWebService.exe/wsdl/IQueryName';
    end;
      

  6.   

    to firetoucher(风焱)：我的ocx是用delphi的active form写的
    to  ronaldli(木的):方法调用是写jscript吗？
      

  7.   

    先谢谢shenjhshen(公子)的热情相助！
    <HTML>
    <H1> Delphi 6 ActiveX Test Page </H1><p>
    <HR><center>
    <P> 
      <OBJECT
      classid="clsid:BF6E49A2-DEFF-4E3B-88AF-EFF20381766A"
      codebase="http://localhost/print_test/Project1.cab#version=1,0,8,0"
      name=ox1
      width=305
      height=25
      align=center
      hspace=0
      vspace=0
    >
      </OBJECT>
    <P> 
      <input type="button" name="button" value="print" onClick="SetText()">
      <script language="JavaScript" type="text/JavaScript">
    function SetText(){
      ox1.Edit1.text = '1';
    }  
    </script>
    </HTML>
    以上代码是我想点击网页上的一个BUTTON按钮，给一个OCX控件中的一个EDIT文本框赋‘1’，可这样写不行，请大家赐教！