IocpLog简单日志

街边太多人与车

1.纯源码;
2.大家一起优化优化;
\

街边太多人与车

2024.08.10
测试了 云服务器、vps 和低配服务器  这种wait写法挂机稳定...

不苦小和尚

试试看看效果

街边太多人与车

最新...
iocp队列执行任务  队列和挂机任务很稳定
IocpFunc.e (19.3 KB, 下载次数: 22)

2023-4-27 12:00 上传

点击文件名下载附件

xb982577146

66666666666666666666666666666666

街边太多人与车

独倚斜阳 发表于 2023-2-2 00:16
还有就是调用子程序传参问题也很烦  我有时候 子程序（自定义数据类型，高级表格组件类型）  这种类型参数 ...

最新的25楼

街边太多人与车

IOCP  +YYDS   的键值类型   实现自定义类型和其他类型  传递

独倚斜阳

还有就是调用子程序传参问题也很烦  我有时候 子程序（自定义数据类型，高级表格组件类型）  这种类型参数很烦
现在阶段  我还是用的线程池 加许可去控制 因为不会传递这种参数 就没有去搞异步了  

不然我想用这种排队序列的去作为一个线程异步更新界面的ui

独倚斜阳

  

子程序名	返回值类型	公开	备 注
IOCPLogWork			IOCP工作线程

变量名	类 型	静态	数组	备 注
文本	文本型
指针	整数型
wParam	整数型

调试输出 (取程序名称 (1) ＋ “,开始执行!”)
' 1:当前语句所处子程序名称;2:当前语句所处程序集名称;3:当前语句所处易语言程序的全路径文件名称(注意如果编译时易语言程序没有保存,将为空);4:当前语句所处程序配置信息中的程序名称;5:当前语句所处程序配置信息中的作者名称;6:当前语句所处易语言程序的无路径和后缀文件名称(注意如果编译时易语言程序没有保存,将为空)。
判断循环首 (真)
' 没有任务了自动阻塞
如果真 (GetQueuedCompletionStatus (c_IOCPLog, wParam, -1, -1, -1))  ' 本身会线程安全，无需加锁
InterlockedDecrement (IOCPLog原子数)  ' 原子-1
文本 ＝ 指针到文本 (wParam)
释放内存 (wParam)
如果 (寻找文本 (文本, “排队运行子程序”, , 假) ＞ -1)
文本 ＝ 文本_取右边 (文本, “排队运行子程序”)  ' 得到文本型的指针地址
输出调试文本 (“运行子程序”)
调用子程序 (到整数 (文本), , , )
输出调试文本 (“运行日志”)
日志写到本地 (文本)

' 调试输出 (wParam, 文本)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 IOCPLogWork, , , IOCP工作线程<br /> .局部变量 文本, 文本型<br /> .局部变量 指针, 整数型<br /> .局部变量 wParam, 整数型<br /> <br /> 调试输出 (取程序名称 (1) ＋ “,开始执行!”)<br /> ' 1:当前语句所处子程序名称;2:当前语句所处程序集名称;3:当前语句所处易语言程序的全路径文件名称(注意如果编译时易语言程序没有保存,将为空);4:当前语句所处程序配置信息中的程序名称;5:当前语句所处程序配置信息中的作者名称;6:当前语句所处易语言程序的无路径和后缀文件名称(注意如果编译时易语言程序没有保存,将为空)。<br /> .判断循环首 (真)<br />     ' 没有任务了自动阻塞<br />     .如果真 (GetQueuedCompletionStatus (c_IOCPLog, wParam, -1, -1, -1))  ' 本身会线程安全，无需加锁<br />         InterlockedDecrement (IOCPLog原子数)  ' 原子-1<br />         文本 ＝ 指针到文本 (wParam)<br />         释放内存 (wParam)<br />         .如果 (寻找文本 (文本, “排队运行子程序”, , 假) ＞ -1)<br />             文本 ＝ 文本_取右边 (文本, “排队运行子程序”)  ' 得到文本型的指针地址<br />             输出调试文本 (“运行子程序”)<br />             调用子程序 (到整数 (文本), , , )<br />         .否则<br />             输出调试文本 (“运行日志”)<br />             日志写到本地 (文本)<br />         .如果结束<br /> <br />         ' 调试输出 (wParam, 文本)<br />     .如果真结束<br /> <br /> .判断循环尾 ()

  

子程序名	返回值类型	公开	备 注
s	逻辑型		写日志
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
iLen	整数型
hMem	整数型
Presult	逻辑型

如果真 (文本 ＝ “”)
返回 (假)
hMem ＝ 申请内存 (取文本长度 (文本) ＋ 1, )
如果真 (hMem ＝ 0)
' 调试输出 (“申请内存失败”, hMem)
返回 (假)
写到内存 (文本, hMem, )
Presult ＝ PostQueuedCompletionStatus (c_IOCPLog, hMem, hMem, hMem)
如果真 (Presult)
InterlockedIncrement (IOCPLog原子数)  ' 原子+1
返回 (Presult)

子程序名	返回值类型	公开	备 注
排队运行子程序	逻辑型		IOCP调用子程序排队处理
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
iLen	整数型
hMem	整数型
Presult	逻辑型

如果真 (文本 ＝ “”)
返回 (假)
文本 ＝ “排队运行子程序” ＋ 文本
hMem ＝ 申请内存 (取文本长度 (文本) ＋ 1, )
如果真 (hMem ＝ 0)
' 调试输出 (“申请内存失败”, hMem)
返回 (假)
写到内存 (文本, hMem, )
Presult ＝ PostQueuedCompletionStatus (c_IOCPLog, hMem, hMem, hMem)
如果真 (Presult)
InterlockedIncrement (IOCPLog原子数)  ' 原子+1
返回 (Presult)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 s, 逻辑型, 公开, 写日志<br /> .参数 文本, 文本型<br /> .局部变量 iLen, 整数型<br /> .局部变量 hMem, 整数型<br /> .局部变量 Presult, 逻辑型<br /> <br /> .如果真 (文本 ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> hMem ＝ 申请内存 (取文本长度 (文本) ＋ 1, )<br /> .如果真 (hMem ＝ 0)<br />     ' 调试输出 (“申请内存失败”, hMem)<br />     返回 (假)<br /> .如果真结束<br /> 写到内存 (文本, hMem, )<br /> Presult ＝ PostQueuedCompletionStatus (c_IOCPLog, hMem, hMem, hMem)<br /> .如果真 (Presult)<br />     InterlockedIncrement (IOCPLog原子数)  ' 原子+1<br /> .如果真结束<br /> 返回 (Presult)<br /> <br /> <br /> .子程序 排队运行子程序, 逻辑型, 公开, IOCP调用子程序排队处理<br /> .参数 文本, 文本型<br /> .局部变量 iLen, 整数型<br /> .局部变量 hMem, 整数型<br /> .局部变量 Presult, 逻辑型<br /> <br /> .如果真 (文本 ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> 文本 ＝ “排队运行子程序” ＋ 文本<br /> hMem ＝ 申请内存 (取文本长度 (文本) ＋ 1, )<br /> .如果真 (hMem ＝ 0)<br />     ' 调试输出 (“申请内存失败”, hMem)<br />     返回 (假)<br /> .如果真结束<br /> 写到内存 (文本, hMem, )<br /> Presult ＝ PostQueuedCompletionStatus (c_IOCPLog, hMem, hMem, hMem)<br /> .如果真 (Presult)<br />     InterlockedIncrement (IOCPLog原子数)  ' 原子+1<br /> .如果真结束<br /> 返回 (Presult)

你看我这好傻，
IOCPLog.s (文本型日志内容)   运行日志，文本型日志内容相当于参数 传递给写日志 就是你本来的
IOCPLog.排队运行子程序 (到文本 (到整数 (&测试)))  ，然后把子程序指针转化成整数后 再到文本，方法内部 补充一段文本型的识别符号 最后work里面 通过传入的文本识别符号去判断是执行日志还是其他子程序

虽然能解决 但是很傻

独倚斜阳

街边太多人与车 发表于 2023-2-1 16:50
IOCP主要是能 异步 和 线程安全(不需要加锁)  
IOCPlog.s() 命令不卡你后续其他代码执行,  
同理你把耗时代 ...

明白了 iocp类 可以开启多个工作线程对吧

如果在同一个线程里面 怎么传入子程序呢

比如
IOCPlog.s("日志内容")  就是执行排队日志
IOCPlog.子程序指针(&测试程序)  就是在日志那个iocp工作线程里面 加入排队执行外部子程序

测试程序写在其他程序集里面 不写到类里面
我传递指针老出错  我都把指针转换成整数型了
怎么才能在类里面加入另外个方法 执行程序集里面的子程序