一个简单Tracer类,用来为应用写入跟踪_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：1628 更新时间：2009/4/23 18:34:55

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.