OCX调用页面上JavaScript的方法(解决FEvents=nil的问题)

利用Delphi的ActiveForm，可以很方便地开发出可以嵌入IE的ActiveX组件，无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢，研究了一个下午，使用ActvieForm的Events接口搞定。说穿了不值钱，只要一句代码就搞定，但是Google半天，琢磨了N久，看来还是基本功不扎实。

      首先在ActiveForm的项目中找到ridl文件，打开它，选择ActiveForm的Events接口，点击右键，建立一个新的方法，方法名为我需要调用javascript的函数名。这里我要调用一个js的上传图片脚本，所以将其命名为“OnUploadPic”。得到这个事件的ID，这里是209。

 

 

    来到xxx_TLB.pas文件中（xxx为你的项目名），在ActiveForm中Events接口中将这个OnUploadPic方法的声明加进去。

procedure OnUploadPic; dispid 209;

 

    然后HTML页面中建立这个事件函数，注意event字段写入事件名，for字段写入你给OCX取的名字，也就<object>把OCX包进去的时候取的name值：

<script language="javascript" event="OnUploadPic" for="OcxName">
    alert("hello Delphi!");

</script>

然后在Delphi中需要调用这个函数的地方，加入代码：

if FEvents <> nil then FEvents.OnUploadPic;

 

 

=========================================================================================
以上摘自http://www./blog/?p=658
但是如果不注意js部分，会出现FEvents=nil的问题

注意：

<OBJECT   id="testid"
   classid="clsid:62949CA7-D723-4D98-AD9A-0DFEBCE5C14F"
   codebase="http://LENOVO-NB/ActiveFormProj1.ocx#version=1,0,0,0"
   width=350
   height=250
   align=center
   hspace=0
   vspace=0
>
</OBJECT>
<script language="javascript" event="OnUploadPic" for="testid">
    alert("Hello Delphi!");
</script>

for="testid"，for要用Object对象中的id，不能用ocx名称ActiveFormProj1，否则就会出现FEvents=nil。