js调用ActiveX(ocx)控件方法

<!--以下为一个ocx控件-->
<object
       id="gridStaff"
       classid="clsid:8A663037-8430-4393-8280-647DC9087B50"
       name= "devread"
       codebase="<%=request.getContextPath()%>/ocx/TableListX.ocx#version=1,0,0,5"
       width=100%
       height=210
       align=middle
       hspace=0
       vspace=0 >
 </object> 
       下面js方法页面可以进行事件调用，在页面中调出的控件在这里可以通过它的ID直接点出他的控件属性和方法，对控件对象进行操作。

<script type="text/javascript">
function tableInfo(){
    try{
           devread.DelAllSelectedData();//设置控件
           alllist=document.getElementById("slist").value;
           devread.AddData(alllist);   
     }
    catch(ex){
          alert("tableInfo: "+ex.description);
     }
} 

function call(AID,AName)
{
    alert(AID+AName);
}
</script>

<!-- 定义Delphi中访问的OnCall事件对应的Script方法 -->
<SCRIPT type="text/javascript" FOR="devread" EVENT="OnCall(AID,AName)" >
   <!-- insert script commands -->
   call(AID,AName);
</SCRIPT>