一个成熟的易语言编写COM模板

lairmm

感谢楼主！学习了！~

DKSO

感谢分享！努力学习！

风林听雨

在 win service 2022 下无效，啥提示也没有。尝试了管理员身份各种zc没解决。另外在windows下，多线程创建对象，有一定几率失败，也没找到原因
这是调用过程：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
index	整数型

计次循环首 (32, index)
启动线程 (&子程序2, index, )
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序2
参数名	类 型	参考	可空	数组	备 注
index	整数型

变量名	类 型	静态	数组	备 注
obj	对象

线程_初始化COM库 ()
程序_延时 (500)
obj.创建 (“EFirstCom.1”, )
如果 (obj.创建 (“EFirstCom.1”, ))
计次循环首 (1000, )
子程序3 (index, obj)
处理事件 ()
计次循环尾 ()
log.记录 ( #日志等级_错误ERROR, 到文本 (index), “Creat Obj Err”)
程序_延时 (500)
线程_取消COM库 ()

子程序名	返回值类型	公开	备 注
子程序3
参数名	类 型	参考	可空	数组	备 注
index	整数型
obj	对象

变量名	类 型	静态	数组	备 注
intTmp	整数型

' obj.创建 (“EFirstCom.1”, )
' obj.创建 (“dm.dmsoft”, )
' obj.查看 ()
intTmp ＝ obj.数值方法 (“jishu”, )
如果真 (intTmp = 0)  ' 这里不可能为0，返回最小值是1
log.记录 ( #日志等级_错误ERROR, 到文本 (index), 到文本 (intTmp))
' 调试输出 (index, strTmp)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 index, 整数型<br /> <br /> .计次循环首 (32, index)<br />     启动线程 (&子程序2, index, )<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序2<br /> .参数 index, 整数型<br /> .局部变量 obj, 对象<br /> <br /> 线程_初始化COM库 ()<br /> 程序_延时 (500)<br /> obj.创建 (“EFirstCom.1”, )<br /> .如果 (obj.创建 (“EFirstCom.1”, ))<br />     .计次循环首 (1000, )<br />         子程序3 (index, obj)<br />         处理事件 ()<br />     .计次循环尾 ()<br /> .否则<br />     log.记录 (#日志等级_错误ERROR, 到文本 (index), “Creat Obj Err”)<br /> .如果结束<br /> 程序_延时 (500)<br /> 线程_取消COM库 ()<br /> <br /> .子程序 子程序3<br /> .参数 index, 整数型<br /> .参数 obj, 对象, 参考<br /> .局部变量 intTmp, 整数型<br /> <br /> ' obj.创建 (“EFirstCom.1”, )<br /> ' obj.创建 (“dm.dmsoft”, )<br /> ' obj.查看 ()<br /> <br /> intTmp ＝ obj.数值方法 (“jishu”, )<br /> .如果真 (intTmp = 0)  ' 这里不可能为0，返回最小值是1<br />     log.记录 (#日志等级_错误ERROR, 到文本 (index), 到文本 (intTmp))<br />     ' 调试输出 (index, strTmp)<br /> .如果真结束

这是com插件里，名为“jishu”，计数的方法。

  

窗口程序集名	保 留	保 留	备 注
自己实现COM方法
变量名	类 型	数组	备 注
m_cs	整数型

子程序名	返回值类型	公开	备 注
jishu	整数型
参数名	类 型	参考	可空	数组	备 注
this	整数型				每个子程序第一个参数都要有这个this，且不要去使用它
ret	整数型

进入许可区 (g_cs)
m_cs ＝ m_cs ＋ 1
写到内存 (m_cs, ret, 4)
退出许可区 (g_cs)
返回 (0)

.版本 2<br /> <br /> .程序集 自己实现COM方法<br /> .程序集变量 m_cs, 整数型<br /> <br /> .子程序 jishu, 整数型<br /> .参数 this, 整数型, , 每个子程序第一个参数都要有这个this，且不要去使用它<br /> .参数 ret, 整数型<br /> <br /> 进入许可区 (g_cs)<br /> <br /> m_cs ＝ m_cs ＋ 1<br /> 写到内存 (m_cs, ret, 4)<br /> 退出许可区 (g_cs)<br /> <br /> <br /> 返回 (0)

以下是部份日志：
2022-09-22 10:11:14.000213,警告(WARN),262,0
2022-09-22 10:11:14.000213,错误(ERROR),451,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),115,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),971,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),33,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),343,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),740,Creat Obj Err
2022-09-22 10:11:14.000213,错误(ERROR),655,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),848,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),805,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),281,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),424,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),576,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),380,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),654,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),918,Creat Obj Err
2022-09-22 10:11:14.000214,错误(ERROR),125,Creat Obj Err
2022-09-22 10:11:14.000215,警告(WARN),536,0


部份线程创建对象失败，部份“jishu”方法返回0

欸嘿

666666666666666666666666666

ywgs911

11111111111111111111111111111111111111111111

nihao3312

666666666666支持

ywgs911

1111111111111111111111111

hjh2112

李二嘎子

感谢分享

java22

楼上正解……ʅ（´◔౪◔）ʃ