开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2892|回复: 13
收起左侧

[易语言模块源码] COM事件挂接

[复制链接]
结帖率:50% (2/4)
发表于 2023-8-3 00:43:09 | 显示全部楼层 |阅读模式   广西壮族自治区柳州市
分享例程
界面截图:
备注说明: -
最近在研究COM,看到论坛上关于COM事件挂接这方面的资料非常少,其本没有源码,就尝试写个模块。
刚开始想把全部代码写到一个类里,奈何类里面取函数指针,使用汇编各种头痛,写出来不是事件不触发,就是触发后程序闪退。死了一片脑细胞也找不到原因。
最后把一部分代码写到程序集里,轻松多了,测试也算正常了
COM中事件应该分为两类,
(1) Interface (IUnknown) VT表前3个成员固定
QueryInterface   0

AddRef   1

Release   2

后面

事件1   3

事件2   4

事件n   

.....................
事件触发直接按TV表调用指定事件成员,这个比较简单,


(2) IDispatch  继承  IUnknown   VT表前7个成员固定
QueryInterface   0

AddRef   1

Release   2
GetTypeInfoCount   3
GetTypeInfo    4
GetIDsOfNames  5
Invoke   6
后面
事件1   7

事件2   8

事件 n   

.......................................
事件触发首先调用分发函数 Invoke 传入事件子程序的DISPID等 再由Invoke调用DISPID对应的事件成员,这个稍为复杂点,要自己实现Invoke

经过两天的奋战,终于把模块写出来,能不能用也没有深度测试,大概问题是不大的。
测试程序挂了3个对象的事件
首先是常用的Winhttp.WinhttpRequest.5.1,这个对象是有事件的,只有在异步调用的时候才会触发
用工具杳看了Winhttpcom.dll中的4个事件定义
QQ截图20230802224225.png
然后是VB6网络控件 Winsock   (MSWinsock.OCX) 7个事件

QQ截图20230802224225.png
再然后是微软的脚本引擎 ScriptControl (msscript.ocx) 2个事件
QQ截图20230802224225.png

测试程序
QQ截图20230803002522.png
QQ截图20230803002840.png
Http异步调用,访问网页,数据接收完成触发 Winhttp_OnResponseFinished 事件
QQ截图20230803003307.png
Winsock 随便连接一个服务器,触发了Error 错误事件
QQ截图20230803003403.png
ScriptContorl 添加了不是脚本的字符同样触发了Error错误事件
QQ截图20230803003509.png
E_COM_EVENT.rar (19.77 KB, 下载次数: 29)

评分

参与人数 4好评 +3 精币 +9 收起 理由
w589321 + 1 + 2 不知道excel、word这些能不能用这个方法挂接事件。
气质征服一切 + 1 + 2 支持开源~!感谢分享
易语言资源网 + 1 + 3 感谢分享,很给力!~
同学麻烦让让 + 2 支持开源~!感谢分享

查看全部评分


友情提醒:请选择可信度高的模块,勿用未知模块,防止小人在模块内加入木马程序。【发现问题模块请到站务投诉】。

签到天数: 1 天

发表于 2024-3-6 10:00:24 | 显示全部楼层   浙江省嘉兴市
感谢分享
回复 支持 反对

使用道具 举报

签到天数: 15 天

发表于 2023-12-7 13:57:22 | 显示全部楼层   湖北省武汉市
感谢分享
回复 支持 反对

使用道具 举报

发表于 2023-10-11 17:27:38 | 显示全部楼层   山东省*

这个 有深度,我只能仰观。
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)

签到天数: 25 天

发表于 2023-10-11 17:13:14 | 显示全部楼层   湖南省郴州市
66666666666666
回复 支持 反对

使用道具 举报

结帖率:0% (0/4)
发表于 2023-8-22 19:50:48 | 显示全部楼层   上海市上海市
开源精神必须支持~
回复 支持 反对

使用道具 举报

发表于 2023-8-10 08:09:21 | 显示全部楼层   广东省深圳市
感谢分享
回复 支持 反对

使用道具 举报

签到天数: 4 天

发表于 2023-8-10 00:53:32 | 显示全部楼层   福建省龙岩市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

发表于 2023-8-7 14:40:10 | 显示全部楼层   广东省广州市
66666666666666666666666
回复 支持 反对

使用道具 举报

签到天数: 16 天

发表于 2023-8-6 22:59:29 | 显示全部楼层   广东省茂名市
谢谢  学习学习
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表