基于阿婆的完成端口输出日志 模块源码带例程 增加写出log

独倚斜阳

aismy 发表于 2024-3-20 08:22
无法绑定右键 左键等事件？我方法不对吗？ 请指教！
[e=0].版本 2

他其实是模块源码里面是超级编辑框....

他把超级编辑框复制到了 外形框组件?

我对易语言的控件不熟悉

aismy

无法绑定右键 左键等事件？我方法不对吗？ 请指教！

  

子程序名	返回值类型	公开	备 注
_外形框1_鼠标右键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (aaaa, , )

子程序名	返回值类型	公开	备 注
_外形框2_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

调试输出 (“_外形框2_鼠标左键被按下”)

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

.版本 2<br /> <br /> .支持库 spec<br /> <br /> <br /> <br /> .子程序 _外形框1_鼠标右键被放开, 逻辑型<br /> <br /> .参数 横向位置, 整数型<br /> <br /> .参数 纵向位置, 整数型<br /> <br /> .参数 功能键状态, 整数型<br /> <br /> <br /> <br /> 弹出菜单 (aaaa, , )<br /> <br /> <br /> <br /> .子程序 _外形框2_鼠标左键被按下, 逻辑型<br /> <br /> .参数 横向位置, 整数型<br /> <br /> .参数 纵向位置, 整数型<br /> <br /> .参数 功能键状态, 整数型<br /> <br /> <br /> <br /> 调试输出 (“_外形框2_鼠标左键被按下”)

龍貓

感谢分享，很给力！~

ljx111

感谢分享

╯仅冇旳错觉

感谢分享，很给力！~

独倚斜阳

阿婆 发表于 2024-3-19 10:33
感谢分享 这么老的帖子没想到还有人关注 自用的已把线程换成了定时器也加入了写文件 表现似乎更好的同时代 ...

你这个有程序集 变量啊?是程序集+类么?能不能打包个文件发一下

独倚斜阳

阿婆 发表于 2024-3-19 10:33
感谢分享 这么老的帖子没想到还有人关注 自用的已把线程换成了定时器也加入了写文件 表现似乎更好的同时代 ...

我最讨厌计时器了 始终觉得计时器会出问题啊  我去拿你的测试下

515667395

多谢分享~

阿婆

感谢分享 这么老的帖子没想到还有人关注 自用的已把线程换成了定时器也加入了写文件 表现似乎更好的同时代码也更轻量 以下是参考 只有一个类 原理不变 缺失的常规函数还请自行补全

  

窗口程序集名	保 留	保 留	备 注
超级日志框, , 公开
变量名	类 型	数组	备 注
m_IOCP	整数型
m_OnTimerProc	整数型
m_Window	整数型
m_Edit	超级编辑框
m_Font	字符格式
m_MaxLine	整数型
m_EditLine	整数型
m_FileLine	整数型
m_Dir	文本型
m_Name	文本型
m_File	整数型
m_Level	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

m_OnTimerProc ＝ 类回调取地址 (2, 4, , )
m_IOCP ＝ CreateIoCompletionPort (-1, 0, 0, 0)  ' 创建完成端口

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

解除 ()
类回调释放 (m_OnTimerProc)
如果真 (m_File ＞ 0)
关闭文件 (m_File)
CloseHandle (m_IOCP)

子程序名	返回值类型	公开	备 注
__WindowProc	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
msg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
oldproc	整数型
时间	整数型
级别	整数型
指针	整数型
内容	文本型		3	时间 级别 内容
颜色	整数型		3	颜色 颜色 颜色
i	整数型

oldproc ＝ GetPropA (hWnd, “__WindowProc_Timer”)
判断 (msg ＝ #WM_TIMER )
如果真 (GetQueuedCompletionStatus (m_IOCP, 时间, 级别, 指针, 0))  ' 本身会线程安全，无需加锁
颜色 [1] ＝ MemGetInt (指针, 0)
颜色 [2] ＝ 多项选择 (级别, #墨绿, #橙黄, #红色 )
颜色 [3] ＝ MemGetInt (指针, 4)
内容 [1] ＝ “[” ＋ TimeFormat (增减时间 (到时间 (“1970-01-01 08:00:00”), #秒, 时间), , ) ＋ “] ”
内容 [2] ＝ 多项选择 (级别, “[信息] ”, “[警告] ”, “[错误] ”)
内容 [3] ＝ MemGetText (指针, 8, ) ＋ #换行符
MemFree (指针)
' 优先处理写文件
如果真 (m_Dir ≠ “” 且 级别 ≥ m_Level)
如果真 (m_File ＝ 0)
m_File ＝ 打开文件 (m_Dir ＋ m_Name ＋ “_” ＋ TimeFormat (, “yyyyMMdd”, “_HHmmss”) ＋ “.log”, #重写, #无限制 )
移到文件尾 (m_File)

如果真 (m_File ＞ 0)
写出文本 (m_File, 内容 [1] ＋ 内容 [2] ＋ 内容 [3])
m_FileLine ＝ m_FileLine ＋ 1
如果真 (m_FileLine ≥ m_MaxLine)
关闭文件 (m_File)
m_File ＝ 0
m_FileLine ＝ 0



' 更新UI
m_EditLine ＝ m_EditLine ＋ 1
如果真 (m_EditLine ≥ m_MaxLine)
m_Edit.内容 ＝ “”
m_EditLine ＝ 0

计次循环首 (3, i)
m_Edit.起始选择位置 ＝ 取文本长度 (m_Edit.内容)
m_Font.文本颜色 ＝ 颜色 [i]
m_Edit.置选择区字符格式 (m_Font)
m_Edit.被选择文本 ＝ 内容 [i]
计次循环尾 ()

返回 (0)


返回 (CallWindowProc (oldproc, hWnd, msg, wParam, lParam))

子程序名	返回值类型	公开	备 注
注册	逻辑型
参数名	类 型	参考	可空	数组	备 注
编辑框	超级编辑框				组件：扩展界面支持库二.超级编辑框
字体	文本型				默认：微软雅黑
字号	整数型				默认：9
最大行数	整数型				日志框允许显示的最大行数（同：单个日志文件最大允许写入行数），默认：5200  换行标志CRLF
保存目录	文本型				指定日志文件保存的目录，默认：空（不写文件）
文件名称	文本型				日志文件名（不包含后缀）默认：“日志”
记录级别	整数型				日志记录级别（#信息 < #警告 < #错误），默认：#信息 表示全部记录

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

m_MaxLine ＝ 选择 (最大行数 ≤ 0, 5200, 最大行数)
m_Font.文本颜色 ＝ #黑色
m_Font.字体名称 ＝ 选择 (字体 ＝ “”, “微软雅黑”, 字体)
m_Font.字体大小 ＝ 选择 (字号 ≤ 0, 9, 字号)
m_Level ＝ 选择 (记录级别 ≥ 1 且 记录级别 ≤ 3, 记录级别, 1)
m_Name ＝ 选择 (文件名称 ＝ “”, “日志”, 文件名称)
m_Dir ＝ 保存目录
如果真 (m_Dir ≠ “”)
如果真 (DirExist (m_Dir) ＝ 假)
DirCreate (m_Dir)


如果真 (是否已创建 (编辑框))
m_Edit ＝ 编辑框
m_Edit.自动换行 ＝ 假
m_Edit.只读 ＝ 真
m_Edit.隐藏选择 ＝ 假
m_Window ＝ m_Edit.取窗口句柄 ()
oldproc ＝ GetPropA (m_Window, “__WindowProc_Timer”)
如果真 (oldproc ＝ 0)
oldproc ＝ SetWindowLongA (m_Window, #GWL_WNDPROC, m_OnTimerProc)
SetPropA (m_Window, “__WindowProc_Timer”, oldproc)

返回 (SetTimer (m_Window, m_Window, 10, 0) ≠ 0)
返回 (假)

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

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

KillTimer (m_Window, m_Window)
oldproc ＝ GetPropA (m_Window, “__WindowProc_Timer”)
如果真 (oldproc ≠ 0)
SetWindowLongA (m_Window, #GWL_WNDPROC, oldproc)
RemovePropA (m_Window, “__WindowProc_Timer”)

子程序名	返回值类型	公开	备 注
加入日志	逻辑型
参数名	类 型	参考	可空	数组	备 注
日志内容	文本型				日志内容，末尾无需带换行
日志级别	整数型				日志级别，默认：#信息 （#信息 < #警告 < #错误）
日志颜色	整数型				日志颜色，默认：#黑色
时间颜色	整数型				时间颜色，默认：#天蓝

变量名	类 型	静态	数组	备 注
指针	整数型
时间	整数型

日志级别 ＝ 选择 (日志级别 ≥ 1 且 日志级别 ≤ 3, 日志级别, 1)
如果真 (日志内容 ＝ “”)
返回 (假)

时间 ＝ 取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒 )
指针 ＝ MemAlloc (取文本长度 (日志内容) ＋ 1 ＋ 8)
如果真 (指针 ≤ 0)
返回 (假)
MemSetInt (指针, 0, 选择 (是否为空 (时间颜色), #天蓝, 时间颜色))
MemSetInt (指针, 4, 日志颜色)
MemSetText (指针, 8, 日志内容, )
返回 (PostQueuedCompletionStatus (m_IOCP, 时间, 日志级别, 指针))

子程序名	返回值类型	公开	备 注
清空日志

如果真 (是否已创建 (m_Edit))
m_Edit.内容 ＝ “”
处理事件 ()

子程序名	返回值类型	公开	备 注
定位日志
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
行数组	文本型		0
i	整数型
可视行	整数型

如果真 (是否已创建 (m_Edit))
可视行 ＝ m_Edit.取首可视行 ()
行数组 ＝ 分割文本 (m_Edit.内容, #换行符, )
计次循环首 (取数组成员数 (行数组), i)
如果真 (寻找文本 (行数组 [i], 文本, , 假) ≠ -1)
m_Edit.滚动 (i － 可视行 － 1)
跳出循环 ()

计次循环尾 ()
处理事件 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 超级日志框, , 公开<br /> .程序集变量 m_IOCP, 整数型<br /> .程序集变量 m_OnTimerProc, 整数型<br /> .程序集变量 m_Window, 整数型<br /> .程序集变量 m_Edit, 超级编辑框<br /> .程序集变量 m_Font, 字符格式<br /> .程序集变量 m_MaxLine, 整数型<br /> .程序集变量 m_EditLine, 整数型<br /> .程序集变量 m_FileLine, 整数型<br /> .程序集变量 m_Dir, 文本型<br /> .程序集变量 m_Name, 文本型<br /> .程序集变量 m_File, 整数型<br /> .程序集变量 m_Level, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> m_OnTimerProc ＝ 类回调取地址 (2, 4, , )<br /> m_IOCP ＝ CreateIoCompletionPort (-1, 0, 0, 0)  ' 创建完成端口<br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> 解除 ()<br /> 类回调释放 (m_OnTimerProc)<br /> .如果真 (m_File ＞ 0)<br />     关闭文件 (m_File)<br /> .如果真结束<br /> CloseHandle (m_IOCP)<br /> <br /> <br /> .子程序 __WindowProc, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 oldproc, 整数型<br /> .局部变量 时间, 整数型<br /> .局部变量 级别, 整数型<br /> .局部变量 指针, 整数型<br /> .局部变量 内容, 文本型, , "3", 时间 级别 内容<br /> .局部变量 颜色, 整数型, , "3", 颜色 颜色 颜色<br /> .局部变量 i, 整数型<br /> <br /> oldproc ＝ GetPropA (hWnd, “__WindowProc_Timer”)<br /> .判断开始 (msg ＝ #WM_TIMER)<br />     .如果真 (GetQueuedCompletionStatus (m_IOCP, 时间, 级别, 指针, 0))  ' 本身会线程安全，无需加锁<br />         颜色 [1] ＝ MemGetInt (指针, 0)<br />         颜色 [2] ＝ 多项选择 (级别, #墨绿, #橙黄, #红色)<br />         颜色 [3] ＝ MemGetInt (指针, 4)<br /> <br />         内容 [1] ＝ “[” ＋ TimeFormat (增减时间 (到时间 (“1970-01-01 08:00:00”), #秒, 时间), , ) ＋ “] ”<br />         内容 [2] ＝ 多项选择 (级别, “[信息] ”, “[警告] ”, “[错误] ”)<br />         内容 [3] ＝ MemGetText (指针, 8, ) ＋ #换行符<br /> <br />         MemFree (指针)<br />         ' 优先处理写文件<br />         .如果真 (m_Dir ≠ “” 且 级别 ≥ m_Level)<br />             .如果真 (m_File ＝ 0)<br />                 m_File ＝ 打开文件 (m_Dir ＋ m_Name ＋ “_” ＋ TimeFormat (, “yyyyMMdd”, “_HHmmss”) ＋ “.log”, #重写, #无限制)<br />                 移到文件尾 (m_File)<br />             .如果真结束<br /> <br />             .如果真 (m_File ＞ 0)<br />                 写出文本 (m_File, 内容 [1] ＋ 内容 [2] ＋ 内容 [3])<br /> <br />                 m_FileLine ＝ m_FileLine ＋ 1<br />                 .如果真 (m_FileLine ≥ m_MaxLine)<br />                     关闭文件 (m_File)<br />                     m_File ＝ 0<br />                     m_FileLine ＝ 0<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />         ' 更新UI<br />         m_EditLine ＝ m_EditLine ＋ 1<br />         .如果真 (m_EditLine ≥ m_MaxLine)<br />             m_Edit.内容 ＝ “”<br />             m_EditLine ＝ 0<br />         .如果真结束<br /> <br />         .计次循环首 (3, i)<br />             m_Edit.起始选择位置 ＝ 取文本长度 (m_Edit.内容)<br />             m_Font.文本颜色 ＝ 颜色 <i><br />             m_Edit.置选择区字符格式 (m_Font)<br />             m_Edit.被选择文本 ＝ 内容 <i><br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     返回 (0)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (CallWindowProc (oldproc, hWnd, msg, wParam, lParam))<br /> <br /> <br /> .子程序 注册, 逻辑型, 公开<br /> .参数 编辑框, 超级编辑框, , 组件：扩展界面支持库二.超级编辑框<br /> .参数 字体, 文本型, 可空, 默认：微软雅黑<br /> .参数 字号, 整数型, 可空, 默认：9<br /> .参数 最大行数, 整数型, 可空, 日志框允许显示的最大行数（同：单个日志文件最大允许写入行数），默认：5200  换行标志CRLF<br /> .参数 保存目录, 文本型, 可空, 指定日志文件保存的目录，默认：空（不写文件）<br /> .参数 文件名称, 文本型, 可空, 日志文件名（不包含后缀）默认：“日志”<br /> .参数 记录级别, 整数型, 可空, 日志记录级别（#信息 < #警告 < #错误），默认：#信息 表示全部记录<br /> .局部变量 oldproc, 整数型<br /> <br /> m_MaxLine ＝ 选择 (最大行数 ≤ 0, 5200, 最大行数)<br /> m_Font.文本颜色 ＝ #黑色<br /> m_Font.字体名称 ＝ 选择 (字体 ＝ “”, “微软雅黑”, 字体)<br /> m_Font.字体大小 ＝ 选择 (字号 ≤ 0, 9, 字号)<br /> <br /> m_Level ＝ 选择 (记录级别 ≥ 1 且 记录级别 ≤ 3, 记录级别, 1)<br /> m_Name ＝ 选择 (文件名称 ＝ “”, “日志”, 文件名称)<br /> m_Dir ＝ 保存目录<br /> .如果真 (m_Dir ≠ “”)<br />     .如果真 (DirExist (m_Dir) ＝ 假)<br />         DirCreate (m_Dir)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (是否已创建 (编辑框))<br />     m_Edit ＝ 编辑框<br />     m_Edit.自动换行 ＝ 假<br />     m_Edit.只读 ＝ 真<br />     m_Edit.隐藏选择 ＝ 假<br />     m_Window ＝ m_Edit.取窗口句柄 ()<br /> <br />     oldproc ＝ GetPropA (m_Window, “__WindowProc_Timer”)<br />     .如果真 (oldproc ＝ 0)<br />         oldproc ＝ SetWindowLongA (m_Window, #GWL_WNDPROC, m_OnTimerProc)<br />         SetPropA (m_Window, “__WindowProc_Timer”, oldproc)<br />     .如果真结束<br /> <br />     返回 (SetTimer (m_Window, m_Window, 10, 0) ≠ 0)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> <br /> .子程序 解除, , 公开<br /> .局部变量 hWnd, 整数型<br /> .局部变量 oldproc, 整数型<br /> <br /> KillTimer (m_Window, m_Window)<br /> oldproc ＝ GetPropA (m_Window, “__WindowProc_Timer”)<br /> .如果真 (oldproc ≠ 0)<br />     SetWindowLongA (m_Window, #GWL_WNDPROC, oldproc)<br />     RemovePropA (m_Window, “__WindowProc_Timer”)<br /> .如果真结束<br /> <br /> <br /> .子程序 加入日志, 逻辑型, 公开<br /> .参数 日志内容, 文本型, , 日志内容，末尾无需带换行<br /> .参数 日志级别, 整数型, 可空, 日志级别，默认：#信息 （#信息 < #警告 < #错误）<br /> .参数 日志颜色, 整数型, 可空, 日志颜色，默认：#黑色<br /> .参数 时间颜色, 整数型, 可空, 时间颜色，默认：#天蓝<br /> .局部变量 指针, 整数型<br /> .局部变量 时间, 整数型<br /> <br /> 日志级别 ＝ 选择 (日志级别 ≥ 1 且 日志级别 ≤ 3, 日志级别, 1)<br /> .如果真 (日志内容 ＝ “”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 时间 ＝ 取时间间隔 (取现行时间 (), 到时间 (“1970-01-01 08:00:00”), #秒)<br /> <br /> 指针 ＝ MemAlloc (取文本长度 (日志内容) ＋ 1 ＋ 8)<br /> .如果真 (指针 ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> MemSetInt (指针, 0, 选择 (是否为空 (时间颜色), #天蓝, 时间颜色))<br /> MemSetInt (指针, 4, 日志颜色)<br /> MemSetText (指针, 8, 日志内容, )<br /> 返回 (PostQueuedCompletionStatus (m_IOCP, 时间, 日志级别, 指针))<br /> <br /> <br /> .子程序 清空日志, , 公开<br /> <br /> .如果真 (是否已创建 (m_Edit))<br />     m_Edit.内容 ＝ “”<br />     处理事件 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 定位日志, , 公开<br /> .参数 文本, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 可视行, 整数型<br /> <br /> .如果真 (是否已创建 (m_Edit))<br />     可视行 ＝ m_Edit.取首可视行 ()<br />     行数组 ＝ 分割文本 (m_Edit.内容, #换行符, )<br />     .计次循环首 (取数组成员数 (行数组), i)<br />         .如果真 (寻找文本 (行数组 <i>, 文本, , 假) ≠ -1)<br />             m_Edit.滚动 (i － 可视行 － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     处理事件 ()<br /> .如果真结束

yangdoudou

感谢分享，很给力！~