超级日志框模块，基于完成端口实现的日志队列，绝对线程安全哦

悸动的青春

支持开源~！感谢分享

百晓生123

阿婆 发表于 2024-3-20 12:19
此处为最新版

哥，时间咋加上毫秒

阿婆

此处为最新版 超级日志框.e (35.72 KB, 下载次数: 94)

2024-3-20 12:18 上传

点击文件名下载附件

阿婆

由于转语言了，所以很少在逛易论坛了，没想到这么老的帖子还有人关注，以下是最新代码，原理未变，把更新日志的单独线程换成了定时器也加入了写文件 表现似乎更好的同时代码也更轻量 以下是参考 只有一个类 原理不变 缺失的常规函数还请自行补全

  

窗口程序集名	保 留	保 留	备 注
超级日志框, , 公开
变量名	类 型	数组	备 注
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 /> .如果真结束

易夫

        支持开源~！感谢分享

koflion

感谢分享，很给力！~

jia201314973

花了一晚上封装这么个玩意，挺实用的，希望有缘点进来的不喜勿喷。

葛大力

66666

不得了了

线程绝对安全

选马的人

牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛