Delphi开发嵌入IE的OCX,调用页面上JavaScript的方法

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

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

Delphi开发嵌入IE的OCX,调用页面上JavaScript的方法

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

1 procedure OnUploadPic; dispid 209;

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

1 <script language="javascript" event="OnUploadPic" for="OcxName">

2     alert("hello Delphi!");

3 </script>

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

1 if FEvents <> nil then FEvents.OnUploadPic;

搞定。

你可能感兴趣的:(JavaScript)