cLogs 日志组件概述

简介

cLogs 是一个功能丰富的日志记录组件，支持多通道输出、日志级别控制、批量缓存写入。适用于调试、运行监控、错误追踪等场景。

特性

特性	说明
多通道输出	文件、窗体、DbgView、网页远程调试
日志级别	INFO/WARN/DANGER/ERROR/DEBUGGER 五级控制
批量缓存	先缓存后批量写入，提高性能
链式调用	流畅的 API 设计
灵活配置	支持按日/按月分文件，自定义目录结构
远程调试	支持实时推送日志到网页查看

输出通道

┌─────────────────────────────────────────────────────────────┐
│                         cLogs                               │
│  ┌───────────┐  ┌───────────┐  ┌───────────┐  ┌───────────┐│
│  │  文件日志  │  │  窗体显示  │  │  DbgView  │  │  网页远程  ││
│  │  Save()   │  │ FormView  │  │ ToDbgView │  │  ToWebView ││
│  └───────────┘  └───────────┘  └───────────┘  └───────────┘│
└─────────────────────────────────────────────────────────────┘

快速开始

基础用法

Dim Log As New cLogs

' 简单记录
Log.Data "应用程序启动" 
Log.Save

' 带标题和级别
Log.Data "连接成功", "数据库", LvInfo
Log.Save

' 链式调用
Log.Data("用户登录").DataLine("用户名: admin").Save

多通道同时输出

Dim Log As New cLogs

' 设置 Web 调试码（从 http://log.vb6.pro 获取）
Log.WebUserCode = "your-code-123"

' 开启所有通道
Log.SendToFormView = True     ' 输出到 ListBox
Log.SendToDbgView = True      ' 输出到 DbgView
Log.SendToWebView = True      ' 输出到网页

' 记录日志（自动输出到所有开启的通道）
Log.Data "系统事件", "INFO", LvInfo
Log.Save  ' 保存到文件

配置日志文件

Dim Log As New cLogs

' 设置日志目录
Log.LogDir = "C:\MyApp\Logs"

' 设置子目录（用于区分模块）
Log.LogSubDir = "database"

' 设置文件名规则
Log.LogFileNameRule = ByDay   ' 按天分割：2026\01\20260115.txt
' Log.LogFileNameRule = ByMonth  ' 按月分割：2026\202601.txt

' 记录日志
Log.Data "查询数据" 
Log.Save

使用日志查看器

Dim Log As New cLogs

' 显示内置日志查看器窗口
Log.ShowLogsViewer = True

' 或使用链式方法
Log.View(True).Data("日志内容").Save

' 关闭查看器
Log.ShowLogsViewer = False

日志文件结构

' 按天分割 (ByDay)
logs/
└── system/
    └── 2026/
        └── 01/
            ├── 20260115.txt
            └── 20260116.txt

' 按月分割 (ByMonth)
logs/
└── system/
    └── 2026/
        ├── 202601.txt
        └── 202602.txt

日志格式

::[2026/1/15 10:30:45] [INFO] 数据库
连接成功

::[2026/1/15 10:31:12] [WARN] 网络
连接超时，正在重试...

引用组件

• FLogs.frm - 日志查看器窗体（可选）
• ToolsLogs.bas - 日志级别常量

---

最后更新: 2026-05-17