一个线程安全的轻量级的日志类

做服务类应用，总要输出日志，便于调试及掌握应用服务器的运行状态，在界面上显示日志内容，就要访问VCL可视控件，因此，输入日志的代码，一定要线程安全，才不会在写日志时，让应用产生AV错误。下面是基于网友梧桐树下Logger1.0版做的修改，适用于DelphiXE6。附了完整代码。使用时请保留原始信息。

下面是具体的调用方法：

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/ddhh:nn:ss.zzz'; // 日志显示添加时间的格式
  SHOW_LOG_CLEAR_COUNT = 1000; //日志显示容器最大显示条数

type
  TLogger = class
  private
      FCSLock:TRTLCriticalSection; // 临界区
      FFileStream:TFileStream; // 文件流
      FLogShower:TComponent; // 日志显示容器
      FLogName:String; // 日志名称
      FEnabled:Boolean;
      FLogFileDir:string; // 日志目录
      procedureSetEnabled(const Value: Boolean);
      procedureSetLogFileDir(const Value: string);
      procedureSetLogShower(const Value: TComponent);
  protected
      procedureShowLog(Log: String; const LogLevel: Integer = 0);
  public
      procedureWriteLog(Log: String; const LogLevel: Integer = 0); overload;
      procedureWriteLog(Log: String; const Args: array of const; const LogLevel:Integer = 0); overload;

      constructorCreate;
      destructorDestroy; override;

      //是否允许记录日志
      propertyEnabled: Boolean read FEnabled write SetEnabled;
      //日志文件目录,默认当前目录的Log目录
      propertyLogFileDir: string read FLogFileDir write SetLogFileDir;
      //显示日志的组件
      propertyLogShower: TComponent read FLogShower write SetLogShower;

  end;

implementation

constructor TLogger.Create;
begin
  InitializeCriticalSectio n(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 notEnabled 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 notForceDirectories(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
      ifSHOW_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
      ifSHOW_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;
      ifSHOW_LOG_ADD_TIME then
          listItem.Caption := FormatDateTime(SHOW_LOG_TIME_FORMAT,Now);
      ifAssigned(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);
      ifTListView(FLogShower).Items.Count >= SHOW_LOG_CLEAR_COUNTthen
          TListView(FLogShower).Items.Clear;
  end
  else
      raiseException.Create('日志容器类型不支持:' + FLogShower.ClassName);
end;

destructor TLogger.Destroy;
begin
  DeleteCriticalSection(FCSLock);
  if Assigned(FFileStream) then
      FreeAndNil(FFileStream);

end;

end.