一个可能是线程安全的日志记录类_ulog线程安全吗-程序员宅基地

技术标签： string constructor thread list class

unit ULog;

interface

uses
  Classes;

type
  TLogThread = class(TThread)
  private
    { Private declarations }
    private FLogFile:string;
    private FTextList:TThreadList;
    procedure DoWriteLog;
  protected
    procedure Execute; override;
  public
    constructor Create(AFileName:string);
    procedure WriteLog(AText:String);
  end;

implementation
uses SysUtils;
type
  TLogLine=class
  private
    Text:String;
  end;


{ TLogThread }

constructor TLogThread.Create(AFileName: string);
var
  dir:string;
begin
  FTextList:=TThreadList.Create;
  dir:=SysUtils.ExtractFileDir(AFileName);
  if not DirectoryExists(dir) then
    ForceDirectories(dir);
  if not FileExists(AFileName) then
  begin
    with TStringList.Create do
    try
      SaveToFile(AFileName);
    finally
      Free;
    end;
  end;
  FLogFile:=AFileName;
  FreeOnTerminate:=true;
  Inherited Create(false);
end;

procedure TLogThread.DoWriteLog;
var
  line:TLogLine;
  list:TList;
  logFile:Text;
begin
    list:=FTextList.LockList;
    try
      if list.Count>0 then
      begin
       AssignFile(logFile,FLogFile);
       Append(LogFile);
        try
          while list.Count>0 do
          begin
            line:=TLogLine(list[0]);
            WriteLn(LogFile,line.Text);
            list.Delete(0);
            line.Free;
          end;
          Flush(logFile);
          Close(logFile);
        except
        end;
      end;
    finally
      FTextList.UnlockList;
    end;
end;

procedure TLogThread.Execute;
begin
  { Place thread code here }
  repeat
    DoWriteLog;
    if not Terminated then
      sleep(100);
  until self.Terminated;
  DoWriteLog;
  FTextList.Free;
end;

procedure TLogThread.WriteLog(AText: String);
var
  line:TLogLine;
begin
  line:=TLogLine.Create;
  line.Text:=Format('%s %s',[formatdatetime('[HH:mm:ss:zzz]',now),AText]);
  FTextList.Add(line);
end;

end.

本文链接：https://blog.csdn.net/mu_x/article/details/7672139

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

深度学习04—反向传播算法（用于参数更新、troch实现）_反向传播实例及代码-程序员宅基地

文章浏览阅读4.6k次，点赞11次，收藏57次。（1）反向传播：该方法主要是应用链式法则的方法，求loss关于w和b的导数；（2）关于如下步骤中，l.backward()会将前向的各部梯度存入，而红色的两个代码会形成“计算图”；（3）其中：w是Tensor(张量类型)，Tensor中包含data和grad，data和grad也是Tensor。grad初始为None，调用l.backward()方法后w.grad为Tensor，故更新w.data时需使用w.grad.data。_反向传播实例及代码

MongoDB复杂分组聚合查询_mongodb分组查询-程序员宅基地

文章浏览阅读3.7k次，点赞4次，收藏16次。目录1 聚合查询1.1 MongoDB的聚合查询2 聚合管道方法2.1 聚合流程2.1.1 详细流程2.2 聚合语法2.2.1 参数说明2.2.2 注意事项2.3 常用聚合管道2.3.1 与mysql聚合类比3 使用示例3.1 统计所有数据3.2 对所有城市人数求合3.3 对城市缩写相同的城市人数求合3.4 state重复的城市个数3.5 state重复个数大于100的城市4 MapReduce4.1 什么是MapReduce4.1.1 执行阶段4.1.2 语法_mongodb分组查询

云服务器可以改系统吗,云服务器可以改系统吗？-程序员宅基地

文章浏览阅读788次。云服务器可以改系统吗？腾佑小编给出的答案是：可以的，云服务器可以改系统，不过更换系统是一个高风险操作。在更换系统盘之前，务必认真阅读服务商给出的注意事项。云服务器改系统的风险有：1.原系统盘的会被释放，建议提前创建快照备份数据。2.更换系统盘需要停止实例，因此会中断网站的业务。3.更换完成后，需要在新的系统盘中重新部署业务运行环境，有可能会对业务造成长时间的中断。更换系统盘相当于重新为云服务器实例...

Xilinx zynqmp USB开发-程序员宅基地

文章浏览阅读6.1k次，点赞4次，收藏35次。参考Linux USB DWC3 Host/Peripheral DriverZynq Ultrascale MPSOC Linux USB device driverU-Boot USB DriverZynq UltraScale＋ MPSoC USB 3.0 Mass Storage Device Class DesignZynq UltraScale＋ MPSoC USB 3.0...

离散余弦变换（DCT）的来龙去脉_dcd余弦变化-程序员宅基地

文章浏览阅读5.8w次，点赞40次，收藏238次。本文主要介绍离散余弦变换（DCT），从图像的二维离散变换入手，引出变换核的可分性与对称性导出DCT，并给出实现代码。_dcd余弦变化

使用python的requests 发送multipart/form-data 请求-程序员宅基地

文章浏览阅读3.9w次，点赞5次，收藏23次。发送post请求 1 r = requests.post("http://pythontab.com/postTest", data = {"key":"value"}) 以上得知，post请求参数是以data关键字参数来传递的。现在的data参数传递的是字典，我们也可以传递一个json格式的数据，如下： 1 2 3 ...