FileStream 类实现日志

叽哩咕噜 — Wed, 24 Aug 2011 02:52:00 GMT

FileStream类几乎可以处理所有的文件操作.

以下为一个日志类,除了配置不太灵活外,挺好用的.

type
TBuffer = array [0..2000] of char;

TGameLogFile = class
private
    FFullPath:string;//完整路径,用这个路径来判断当前的打开的日志的大小.
    FileDate:TDateTime;
    FFileParth: string; //路径
    FText: Text;
    FLogFileStream:TFileStream;
    FIsCreateToNew: boolean; //是否是每次启动程序都创建新的记录文件否则就是当天只会有1个文件
    FIsControlFileSize:Boolean;//是否控制文件大小,true,超出文件大小时,重新创建一个log文件
public
    {带入日志文件存放的目录位置}
    constructor Create(Iparth: string);
    destructor Destroy; override;
    {写入内容即可自动记录}
    procedure init(Iparth: string);
    procedure AddLog(Icon: string; const LogLevel: Integer = 0);
    property IsCreateToNew: boolean read FIsCreateToNew write FIsCreateToNew;
end;

implementation
uses StdCtrls;
const
{分割符号}
CSplitStr = '===============================================================';
ClogFileName = '.log';
{ TGameLogFile }

procedure TGameLogFile.AddLog(Icon: string; const LogLevel: integer = 0);
var
txt:string;
buffer:TBuffer; //开一个2K的缓存
begin
try
    if FIsCreateToNew then
      if Date - FileDate >= 1 then    //超过一天.强制换掉日志文件
      begin
        CloseFile(FText);
        init(FFileParth);
      end;

    if FIsControlFileSize then
    begin
      if FLogFileStream.Size > 3 * 1000 * 1000 then    //这里的单位是M,有时间改成可配置
        init(FFileParth); //重新切换一个日志
    end;

    StrCopy(buffer,PChar(Icon));
    FLogFileStream.Write(buffer,Length(Icon));//如果直接write(Icon,Length(Icon)),会产生乱码.
except
    IOResult;
end;
end;

constructor TGameLogFile.Create(Iparth: string);
begin
FIsCreateToNew := false;
FIsControlFileSize := not (FIsCreateToNew xor False); //当FIsCreateToNew为true时,此变量为假
FFileParth := Iparth;
init(FFileParth);
end;

//在这里创建一个日志文件
procedure TGameLogFile.init(Iparth: string);
var
Ltep: string;
begin
if not DirectoryExists(FFileParth) then
    if not CreateDir(FFileParth) then begin
      raise Exception.Create('错误的路径，日志类对象不能被创建');
      exit;
    end;
if FIsCreateToNew then begin
    Ltep := FormatDateTime('yyyymmddhhnnss', Now);
    FileClose(FileCreate(FFileParth + ltep + ClogFileName));
end
else
    Ltep := FormatDateTime('yyyymmddhhnnss', Now);
if not FileExists(FFileParth + ltep + ClogFileName) then
    FileClose(FileCreate(FFileParth + ltep + ClogFileName));
FileDate := Date;
FFullPath := FFileParth + ltep + ClogFileName;
//此处改用TFileStream用来控制Log日志文件的大小 2011年8月24日9:28:25 ddz
//AssignFile(FText, FFileParth + ltep + ClogFileName);
if Assigned(FLogFileStream) then
     FLogFileStream.Free;
//新建日志文件.
FLogFileStream := TFileStream.Create(FFullPath,fmCreate   or fmShareDenyNone);
FLogFileStream.free;
//读写日志文件
FLogFileStream := TFileStream.Create(FFullPath,fmOpenReadWrite   or fmShareDenyNone);
end;

destructor TGameLogFile.Destroy;
begin
try
    if Assigned(FLogFileStream) then
      FreeAndNil(FLogFileStream);
except
end;
inherited;
end;
end.

叽哩咕噜 2011-08-24 10:52 发表评论

delphi 进程间通信的两种方法

叽哩咕噜 — Tue, 31 Aug 2010 10:31:00 GMT

WIN下面进程间通信的最常用办法就是消息了.

下面记录两种消息通信的方式:
--------------------------------------------------------------------------------------------
一.第一种办法,利用注册Windows全局的消息.并覆盖wndProc过程来监听消息处理.
1.
    发送消息方:
    private
            strWM:Cardinal;  //定义一个局部变量
    ...
    proccedure Form1.Create(sender:TObject);
    begin
        strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,通过这个消息与其它进程通信
    end;

    ...
    procedure Form1.Button1Click1(Sender:TObject);
    var
        h:Cardinal;
    begin
        //通信的步骤得先找到要通信的信息窗口Handle
        h:=findWindow('目标进程窗口类名','窗口Caption');
        //发送消息消息类型为自定义的strWM
        SendMessage(h,strWM,0,0);  //这里同样可以带参数.wParam,lParam.但我传一个PChar,读取的时候总报错.不知道为啥

    end;

2.
    接收消息方:
        private
            strWM:Cardinal;  //定义一个局部变量
            procedure wndProc(var msg:Tmessage);override; //覆盖这个方法,可以监听所有的Windows消息回调函数
         ...
        proccedure Form1.Create(sender:TObject);
        begin
            strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,这个相当于暗号
        end;
        procecure form1.wndProc(var msg:TMessage);
        begin
            //在这里处理这个消息就行了
            showmessage(strpas(PChar(mes.lparam))); //这样写会报错的.但可以处理其它无参数的事情
        end;

----------------------------------------------------------------------------------------------
二.第二种办法,发送一个WM_COPYDATA的消息.并且可以带一个TCopyDataStruct的结构类型参数.

1.
    发送消息方:

  procedure TMainForm.CallAgent(msg: string);
  var
    HlAgent:HWND;
    ds:TCopyDatastruct;    //定义一个TCopyDatastruct结构体变量
begin
    AgentMsg := msg;
    ds.cbData := Length(msg)+1; //结构体的第一个元素: 长度cbData
    GetMem(ds.lpData,ds.cbData); //分配内存,结构体的第二个参数: 数据的指针lpDATA
    StrCopy(ds.lpData,PChar(msg)); //复制值到结构指针

    HlAgent :=FindWindow('TmsgpopMainCaller','调用者'); //查找目标窗体的Handle
    if HlAgent <> 0 then
    begin
      //ShowMessage('主' + IntToStr(Cardinal(@ds)));
      SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds));   //发送WM_COPYDATA消息,并带上参数 @ds
    end;
    FreeMem(ds.lpData); //释放数据内存
end;

2.
    接收方程序:
    public
            procedure MyMessage(var m:TWmCopyData);message WM_CopyData;   //定义一个消息响应过程,并传入一个TWmCopyData的参数
    ...
    procedure TmsgpopMainCaller.MyMessage(var m: TWmCopyData); //实现响应
    var
      msg:string;
    begin
      msg :=StrPas(m.CopyDataStruct^.lpData);    //获取参数数据
      ShowMessageForm := TShowMessageForm.Create(self,msg); //处理
    end;

叽哩咕噜 2010-08-31 18:31 发表评论

BlogJava-叽哩咕噜-随笔分类-DELPHI

FileStream 类实现日志

delphi 进程间通信的两种方法