Khan's Notebook GCC/GNU/Linux Delphi/Window Java/Anywhere

路漫漫,长修远,我们不能没有钱

关于delphi的log的class已经完成,一如既往的open 他

delphi ,日志class,临界区,文件操作


如果你引用或者修改以下代码 请不要去掉注释,这个涉及到一个程序员的职业道德问题

转载请注明

/** 本代码为日志class

*   作者:刘昆

*   最后修改日期:  2004-9-23 

*   以上代码免费,若直接引用一下代码请告知,并保留此注释

*   作为一名程序员应该有最基本的职业道德*/

unit pushLog;

interface

uses classes, sysutils, windows;

var
  ThreadLock: TRTLCriticalSection; //临界区


const PathDelim = '\';
  DriveDelim = ':';

type
  Tlog = class
  private
    //logfile: file;
    fileName: string;

    function dirExist(const DirName: string): boolean;
    function getDirName(const fileName: string): string;
    function LastDelimiter(const Delimiters, S: string): Integer;

    procedure createLogDir();


  public
    constructor Create(const filename: string);
    destructor Destroy(); override;

    procedure addLog(p: Pchar);
  end;

implementation


{ Tlog }

procedure Tlog.addLog(p: Pchar);
var log_Line: pchar;
  log_len: integer;
  handle: Thandle;
  des_Len: longword;
begin
  EnterCriticalSection(ThreadLock);
  log_Line := nil;
  handle := $0;
  des_Len := $0;
  try
    createLogDir;
    log_len := strlen(p);
    getmem(log_Line, log_len);
    strcopy(log_Line, p);

    handle := createfile(
      pchar(fileName), //文件名
      GENERIC_READ or GENERIC_WRITE, //期望存取模式 通用读写
      FILE_SHARE_READ or FILE_SHARE_WRITE, //共享模式
      nil, //定义文件安全特性的指针(前提:操作系统支持)。
      OPEN_ALWAYS, //打开和创建文件方式。
      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_RANDOM_ACCESS, //要打开文件的标志和属性(如:隐藏,系统等)。
      0); //模板文件句柄

    if handle <> INVALID_HANDLE_VALUE then begin
      SetFilePointer(handle, 0, nil, FILE_END);
      WriteFile(handle, log_Line^, log_len, des_Len, nil);

    end;
  finally
    CloseHandle(handle);
    freeMem(log_Line);
    LeaveCriticalSection(ThreadLock);
  end;
end;

 

constructor Tlog.Create(const filename: string);
begin
  self.fileName := filename;
end;

 


procedure Tlog.createLogDir;
var dir_Name: string;
begin
  dir_Name := getDirName(fileName) + '\log';
  if not DirExist(dir_Name) then begin //检测日志目录是否存在
    mkdir(dir_Name);
  end;
end;

 

destructor Tlog.Destroy;
begin
  inherited;
end;

 

function Tlog.DirExist(const DirName: string): boolean;
var
  Handle: THandle;
  FindData: TWin32FindData;
begin
  result := false;
  Handle := FindFirstFile(PChar(DirName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then begin
    FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = $10 then begin
      result := true;
    end;
  end;
end;

 

function Tlog.getDirName(const fileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter(':\', Filename);
  if (I > 1) and (FileName[I] = PathDelim) and (((FileName[I - 1] <> PathDelim) and (FileName[I - 1] <> DriveDelim)) or (ByteType(FileName, I - 1) = mbTrailByte)) then
    Dec(I);
  while (ByteType(FileName, I - 1) = mbTrailByte) and (I > 0) do
    Dec(I);
  Result := Copy(FileName, 1, I);
end;

 

 


function Tlog.LastDelimiter(const Delimiters, S: string): Integer;
var
  P: PChar;
begin
  Result := Length(S);
  P := PChar(Delimiters);
  while Result > 0 do
  begin
    if (S[Result] <> #0) and (StrScan(P, S[Result]) <> nil) then // 检测最后一个字符是否为 '\'或者':'
      if (ByteType(S, Result) = mbTrailByte) then
        Dec(Result)
      else
        Exit;
    Dec(Result);
  end;
end;

 


initialization
  InitializeCriticalSection(ThreadLock);
finalization
  DeleteCriticalSection(ThreadLock);
end.

 

 

调用方法

procedure TMain.Button1Click(Sender: TObject);
var
  log: Tlog;
begin

  log := Tlog.Create(ExtractFileDir(Application.Exename) + '\' + 'aa.log');
  log.addLog(pchar('好的' + #13#10));
  log.addLog(pchar('aaaaaaaaaaaaaaaaaaaa' + #13#10));
  log.Free;
end;


posted on 2004-11-09 19:10 Khan 阅读(1221) 评论(0)  编辑 收藏 引用 所属分类: Delphi


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理


<2004年11月>
31123456
78910111213
14151617181920
21222324252627
2829301234
567891011

导航

统计

公告

短信大全 for android 1.5
豌豆荚一键安装

现在时刻

IM在线情况:
点击这里给我发消息

常用链接

留言簿(33)

随笔分类(218)

随笔档案(163)

相册

技术

友情链接

最新随笔

搜索

积分与排名

最新随笔

最新评论

阅读排行榜

评论排行榜