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

FileStream�c�d��乎可以处理所有的文�g操作.

以下��Z��个日志类,除了配置不太灉|��?挺好用的.

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

TGameLogFile = class
private
    FFullPath:string;//完整路径,用这个�\径来判断当前的打开的日志的大小.
    FileDate:TDateTime;
    FFileParth: string; //路径
    FText: Text;
    FLogFileStream:TFileStream;
    FIsCreateToNew: boolean; //是否是每�ơ启动程序都创徏新的记录文�g 否则��是当天只会(x��)�?个文�?br />    FIsControlFileSize:Boolean;//是否控制文�g大小,true,��出文�g大小�?重新创徏一个log文�g
public
    {带入日志文�g存放的目录位�|�}
    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
{分割�W�号}
CSplitStr = '===============================================================';
ClogFileName = '.log';
{ TGameLogFile }

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

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

    StrCopy(buffer,PChar(Icon));
    FLogFileStream.Write(buffer,Length(Icon));//如果直接write(Icon,Length(Icon)),�?x��)��生�ؕ�?
except
    IOResult;
end;
end;

constructor TGameLogFile.Create(Iparth: string);
begin
FIsCreateToNew := false;
FIsControlFileSize := not (FIsCreateToNew xor False); //当FIsCreateToNew为true�?此变量�ؓ(f��)�?br /> FFileParth := Iparth;
init(FFileParth);
end;

//在这里创��Z��个日志文�?br />procedure TGameLogFile.init(Iparth: string);
var
Ltep: string;
begin
if not DirectoryExists(FFileParth) then
    if not CreateDir(FFileParth) then begin
      raise Exception.Create('错误的�\径，日志�c�d��象不能被创徏');
      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日志文�g的大��?nbsp; 2011�q?�?4�?:28:25 ddz
//AssignFile(FText, FFileParth + ltep + ClogFileName);
if Assigned(FLogFileStream) then
     FLogFileStream.Free;
//新徏日志文�g.
FLogFileStream := TFileStream.Create(FFullPath,fmCreate   or fmShareDenyNone);
FLogFileStream.free;
//��d��日志文�g
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 发表评论

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

WIN下面�q�程间通信的最常用办法��是消息�?

下面记录两种消息通信的方�?
--------------------------------------------------------------------------------------------
一.�W�一�U�办�?利用注册W(xu��)indows全局的消�?�q�覆盖wndProc�q�程来监听消息处�?
1.
    发送消息方:
    private
            strWM:Cardinal;  //定义一个局部变�?br />     ...
    proccedure Form1.Create(sender:TObject);
    begin
        strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,通过�q�个消息与其它进�E�通信
    end;

    ...
    procedure Form1.Button1Click1(Sender:TObject);
    var
        h:Cardinal;
    begin
        //通信的步骤得先找到要通信的信息窗口Handle
        h:=findWindow('目标�q�程�H�口�c�d��','�H�口Caption');
        //发送消息消息类型�ؓ(f��)自定义的strWM
        SendMessage(h,strWM,0,0);  //�q�里同样可以带参�?wParam,lParam.但我传一个PChar,��d��的时候��L��?不知道�ؓ(f��)�?br />
    end;

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

----------------------------------------------------------------------------------------------
�?�W�二�U�办�?发送一个WM_COPYDATA的消�?�q�且可以带一个TCopyDataStruct的结构类型参�?

1.
    发送消息方:

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

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

2.
    接收方程�?
    public
            procedure MyMessage(var m:TWmCopyData);message WM_CopyData;   //定义一个消息响应过�E?�q�传入一个TWmCopyData的参�?br />     ...
    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 发表评论

亚洲伊人久久大香线蕉在观 ,在线综合亚洲中文精品,亚洲综合在线视频