本文整理自网络，侵删。
做服务类应用，总要输出日志，便于调试及掌握应用服务器的运行状态，在界面上显示日志内容，就要访问VCL可视控件，因此，输入日志的代码，一定要线程安全，才不会在写日志时，让应用产生AV错误。下面是基于网友梧桐树下Logger1.0版做的修改，适用于Delphi XE6。附了完整代码。使用时请保留原始信息。
下面是具体的调用方法：
1.建立log对象，并指定显示的控件。
log := TLogger.Create;
log.LogShower:=memo1;
2.输出日志
log.WriteLog(logstr);
真是轻量的代码，很易用，感谢梧桐树下
附完整代码。
unit Logger;
// =======================================================================
// 日志类（TLogger） ver.1.0
// 红鱼儿 http://blog.sina.com.cn/hblyuhong
// 2014/06/24
// 基于1.0修改
// PFeng (http://www.pfeng.org / xxmc01#gmail.com)
// 2012/11/08
// 日志级别约定：
// 0 - Information
// 1 - Notice
// 2 - Warning
// 3 - Error
// =======================================================================
interface
uses Windows, Classes, SysUtils, StdCtrls, ComCtrls, ComObj, Messages;
const
WRITE_LOG_DIR = 'log\'; // 记录日志默认目录
WRITE_LOG_MIN_LEVEL = 0; // 记录日志的最低级别，小于此级别只显示不记录
WRITE_LOG_ADD_TIME = True; // 记录日志是否添加时间
WRITE_LOG_TIME_FORMAT = 'hh:nn:ss.zzz'; // 记录日志添加时间的格式
SHOW_LOG_ADD_TIME = True; // 日志显示容器是否添加时间
SHOW_LOG_TIME_FORMAT = 'yyyy/mm/dd hh:nn:ss.zzz'; // 日志显示添加时间的格式
SHOW_LOG_CLEAR_COUNT = 1000; // 日志显示容器最大显示条数
type
TLogger = class
private
FCSLock: TRTLCriticalSection; // 临界区
FFileStream: TFileStream; // 文件流
FLogShower: TComponent; // 日志显示容器
FLogName: String; // 日志名称
FEnabled: Boolean;
FLogFileDir: string; // 日志目录
procedure SetEnabled(const Value: Boolean);
procedure SetLogFileDir(const Value: string);
procedure SetLogShower(const Value: TComponent);
protected
procedure ShowLog(Log: String; const LogLevel: Integer = 0);
public
procedure WriteLog(Log: String; const LogLevel: Integer = 0); overload;
procedure WriteLog(Log: String; const Args: array of const; const LogLevel: Integer = 0); overload;
constructor Create;
destructor Destroy; override;
// 是否允许记录日志
property Enabled: Boolean read FEnabled write SetEnabled;
// 日志文件目录,默认当前目录的Log目录
property LogFileDir: string read FLogFileDir write SetLogFileDir;
// 显示日志的组件
property LogShower: TComponent read FLogShower write SetLogShower;
end;
implementation
constructor TLogger.Create;
begin
InitializeCriticalSection(FCSLock);
FLogShower := nil;
LogFileDir := ExtractFilePath(ParamStr(0)) + WRITE_LOG_DIR;
end;
procedure TLogger.WriteLog(Log: String; const Args: array of const; const LogLevel: Integer = 0);
begin
WriteLog(Format(Log, Args), LogLevel);
end;
procedure TLogger.WriteLog(Log: String; const LogLevel: Integer = 0);
var
logName: String;
fMode: Word;
bytes: TBytes;
begin
EnterCriticalSection(FCSLock);
try
if not Enabled then
Exit;
ShowLog(Log, LogLevel); // 显示日志到容器
if LogLevel >= WRITE_LOG_MIN_LEVEL then
begin
logName := FormatDateTime('yyyymmdd', Now) + '.log';
if FLogName <> logName then
begin
FLogName := logName;
if FileExists(FLogFileDir + FLogName) then // 如果当天的日志文件存在
fMode := fmOpenWrite or fmShareDenyNone
else
fMode := fmCreate or fmShareDenyNone;
if Assigned(FFileStream) then
FreeAndNil(FFileStream);
FFileStream := TFileStream.Create(FLogFileDir + FLogName, fMode);
end;
FFileStream.Position := FFileStream.Size; // 追加到最后
case LogLevel of
0:
Log := '[Information] ' + Log;
1:
Log := '[Notice] ' + Log;
2:
Log := '[Warning] ' + Log;
3:
Log := '[Error] ' + Log;
end;
if WRITE_LOG_ADD_TIME then
Log := FormatDateTime(WRITE_LOG_TIME_FORMAT, Now) + ' ' + Log + #13#10;
bytes := TEnCoding.UTF8.GetBytes(Log);
FFileStream.Write(bytes, Length(bytes));
end;
finally
LeaveCriticalSection(FCSLock);
end;
end;
procedure TLogger.SetEnabled(const Value: Boolean);
begin
FEnabled := Value;
end;
procedure TLogger.SetLogFileDir(const Value: string);
begin
FLogFileDir := Value;
if not DirectoryExists(FLogFileDir) then
if not ForceDirectories(FLogFileDir) then
begin
raise Exception.Create('日志路径错误，日志类对象不能被创建');
end;
end;
procedure TLogger.SetLogShower(const Value: TComponent);
begin
FLogShower := Value;
end;
procedure TLogger.ShowLog(Log: String; const LogLevel: Integer = 0);
var
lineCount: Integer;
listItem: TListItem;
begin
if FLogShower = nil then
Exit;
if (FLogShower is TMemo) then
begin
if SHOW_LOG_ADD_TIME then
Log := FormatDateTime(SHOW_LOG_TIME_FORMAT, Now) + ' ' + Log;
lineCount := TMemo(FLogShower).Lines.Add(Log);
// 滚屏到最后一行
SendMessage(TMemo(FLogShower).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
if lineCount >= SHOW_LOG_CLEAR_COUNT then
TMemo(FLogShower).Clear;
end
else if (FLogShower is TListBox) then
begin
if SHOW_LOG_ADD_TIME then
Log := FormatDateTime(SHOW_LOG_TIME_FORMAT, Now) + ' ' + Log;
lineCount := TListBox(FLogShower).Items.Add(Log);
SendMessage(TListBox(FLogShower).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
if lineCount >= SHOW_LOG_CLEAR_COUNT then
TListBox(FLogShower).Clear;
end
else if (FLogShower is TListView) then
begin
listItem := TListView(FLogShower).Items.Add;
if SHOW_LOG_ADD_TIME then
listItem.Caption := FormatDateTime(SHOW_LOG_TIME_FORMAT, Now);
if Assigned(TListView(FLogShower).SmallImages) and (TListView(FLogShower).SmallImages.Count - 1 >= LogLevel) then
listItem.ImageIndex := LogLevel; // 可以根据不同等级显示不同图片
listItem.SubItems.Add(Log);
SendMessage(TListView(FLogShower).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
if TListView(FLogShower).Items.Count >= SHOW_LOG_CLEAR_COUNT then
TListView(FLogShower).Items.Clear;
end
else
raise Exception.Create('日志容器类型不支持:' + FLogShower.ClassName);
end;
destructor TLogger.Destroy;
begin
DeleteCriticalSection(FCSLock);
if Assigned(FFileStream) then
FreeAndNil(FFileStream);
end;
end. 相关阅读 >>
Delphi tstreamreader 和tstreamwriter
Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?
在rad studio Delphi或c++安卓应用中使用自定义java库
更多相关阅读请进入《Delphi》频道 >>
