一个简单Tracer类,用来为应用写入跟踪

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

===================类的代码=========================={*******************************************************}

{ }

{ CodeMachine }

{ }

{ 版权所有 (C) 2004 nil }

{ }

{ 2004-6-10 }

{ }

{*******************************************************}

{

通常将TTracer的实例存放于application级的Session中,在使用时,

创建一个ITraceInfo,调用TTracer.Write(ITraceInfo)即可,

}

unit com.sunset.app.tracer;

interface

uses StrUtils,classes,SysUtils;

type

//==============================================================================

// 接口声明

//==============================================================================

//跟踪信息的接口

ITraceInfo = interface

function ToString: string;

end;

//输出目标的接口

IOutput = interface

procedure Write(const aInfo: ITraceInfo); //写入跟踪信息

end;

//==============================================================================

// 跟踪信息类 ,实现 ITraceInfo

//==============================================================================

//string形式的跟踪记录

TStringTI = class(TInterfacedObject, ITraceInfo)

private

FData: string;

public

constructor Create(data: string);

function ToString: string;

end;

//==============================================================================

// 跟踪信息输出类,实现 IOutput

//==============================================================================

TFileLog = class(TInterfacedObject, IOutput)

private

FLogFile: string;

public

constructor Create(const FileName: string);

procedure Write(const aInfo: ITraceInfo); //写入跟踪信息

end;

TProcStr = procedure(const value:string) of Object;

TDatabaseLog = class(TInterfacedObject, IOutput)

private

FWriteProc :TProcStr;

public

constructor Create(WriteProc: TProcStr);

procedure Write(const aInfo: ITraceInfo); //写入跟踪信息

end;

//==============================================================================

// 跟踪工具

//==============================================================================

{ TTracer }

//用来进行记录跟踪日志的类

TTracer = class(TObject)

private

FOutput: IOutput; //输出目标

procedure SetOutput(const Value: IOutput);

public

constructor Create; overload;

constructor Create(aOutput: IOutput); overload;

destructor Destroy; override;

property Output: IOutput read FOutput write SetOutput;

procedure Write(const aInfo: ITraceInfo); //写入跟踪信息

end;

implementation

{ TTracer }

constructor TTracer.Create;

begin

end;

constructor TTracer.Create(aOutput: IOutput);

begin

FOutput := aOutput;

end;

destructor TTracer.Destroy;

begin

if FOutput <> nil then FOutput := nil;

inherited;

end;

procedure TTracer.SetOutput(const Value: IOutput);

begin

FOutput := Value;

end;

procedure TTracer.Write(const aInfo: ITraceInfo);

begin

if FOutput = nil then raise Exception.CreateFmt('没有创建输出目标%s!!!', []);

FOutput.Write(aInfo);

end;

{ TStringTI }

constructor TStringTI.Create(data: string);

begin

FData := Data;

end;

function TStringTI.ToString: string;

begin

Result := FData;

end;

{ TStringLog }

constructor TFileLog.Create(const FileName: string);

begin

FLogFile := FileName;

end;

procedure TFileLog.Write(const aInfo: ITraceInfo);

begin

if not FileExists(FLogFile) then FileClose(FileCreate(FLogFile));

with TStringList.Create do

begin

try

LoadFromFile(FLogFile);

Add(aInfo.ToString);

SaveToFile(FLogFile);

finally

Free;

end;

end;

end;

{ TDatabaseLog }

constructor TDatabaseLog.Create(WriteProc: TProcStr);

begin

FWriteProc := WriteProc;

if not Assigned(FWriteProc) then raise Exception.CreateFmt('没有传入正确的写入跟踪方法%s!!!', []);

end;

procedure TDatabaseLog.Write(const aInfo: ITraceInfo);

begin

FWriteProc(aInfo.ToString);

end;

end.

===================测试代码==========================

{******************************************************************************}

{ }

{ 测试名称: }

{ 作 者: }

{ 版 本: }

{ 说 明: }

{ 备 注: }

{ }

{******************************************************************************}

unit test.com.sunset.app.tracer;

interface

uses

Windows, SysUtils, Classes, TestFramework, TestExtensions,

com.sunset.app.tracer;

type

TTest = class(TTestCase)

protected

procedure SetUp; override;

procedure TearDown; override;

published

procedure TestTracer;

end;

implementation

procedure TTest.Setup;

begin

end;

procedure TTest.TearDown;

begin

end;

procedure TTest.TestTracer;

var

tracer:TTracer;

aInfo:ITraceInfo;

const

testData ='adfadfdasf';

testFile ='d:\2.txt';

begin

aInfo := TStringTI.Create(testData);

Tracer := TTracer.Create(TFileLog.Create(testfile));

Tracer.Write(aInfo);

Tracer.Free;

aInfo := nil;

with TStringList.Create do

begin

LoadFromFile(testfile);

Check(Strings[Count -1] = testData);

Free;

end;

end;

initialization

TestFramework.RegisterTest(TTest.Suite);

end.

一竿残照@金棣.net

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航