activex和javascript交互(delphi版本)

摘要: 利用Delphi的ActiveForm,可以很方便地开发出可以嵌入IE的ActiveX组件,无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢,研究了一个下午,使用ActvieForm的Events接口搞定。说穿了不值钱,只要一句代码就搞定,但是Google半天,琢磨了N久,看来还是基本功不扎实。首先在ActiveForm的项目中找到ridl文件,打开它,选择ActiveForm的Events接口,点击右键,建立一个新的方法,方法名为我需要调用javascript的函数名。这里我要调用一个JS的上传图片脚本,所以将其命名为“OnUploadPic”。得到这个事件的ID,这里是209图片链接

利用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取的名字,也就把OCX包进去的时候取的name值:



另外在delphi 的一个按钮上 的事件。
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
if FEvents <> nil then FEvents.GetUserNameAndPwd(edtUser.Text,edtPwd.Text)
else showmessage('空');
end;

html 中用的 activex :
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版。
点击下载此文件

上一篇: activex调DLL在网页上调用.
下一篇: 常用英语400句
 评论 ( What Do You Think )
名称
邮箱
网址
评论
验证
   
 

 


  • 微信公众号

  • 我的微信

站点声明:

1、一号门博客CMS,由Python, MySQL, Nginx, Wsgi 强力驱动

2、部分文章或者资源来源于互联网, 有时候很难判断是否侵权, 若有侵权, 请联系邮箱:summer@yihaomen.com, 同时欢迎大家注册用户,主动发布无版权争议的 文章/资源.

3、鄂ICP备14001754号-3, 鄂公网安备 42280202422812号