利用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接口中将这个GetUserNameAndPwd方法的声明加进去。procedure GetUserNameAndPwd(const userName: WideString; const userPwd: WideString); dispid 209;然后HTML页面中建立这个事件函数，注意event字段写入事件名，for字段写入你给OCX取的名字，也就<object>把OCX包进去的时候取的name值：<script language="javascript" event="GetUserNameAndPwd(user,pass)" for="xxxx"> var userName=user; var userPwd =pass; alert("用户名:"+userName); alert("用户密码:"+userPwd); window.location.href="bbb.html"; </script>另外在delphi 的一个按钮上 的事件。procedure TActiveFormX.Button1Click(Sender: TObject);begin if FEvents <> nil then FEvents.GetUserNameAndPwd(edtUser.Text,edtPwd.Text) else showmessage('空');end;html 中用的 activex :<OBJECT id="xxxx" classid="clsid:26AA79A4-F2E5-4B28-9F43-75E4508F593F" codebase="http://LIUZS/ActiveFormProj1.inf" width=350 height=250 align=center hspace=0 vspace=0 >所有的代码在如下工程中,delphi版。</OBJECT> 点击下载此文件(563.56 KB)
