www.pudn.com > indy10.0.52_source.rar > IdLogFile.pas

{ $HDR$} 
{**********************************************************************} 
{ Unit archived using Team Coherence                                   } 
{ Team Coherence is Copyright 2002 by Quality Software Components      } 
{                                                                      } 
{ For further information / comments, visit our WEB site at            } 
{ http://www.TeamCoherence.com                                         } 
{**********************************************************************} 
{} 
{ $Log:  11653: IdLogFile.pas 
{ 
{   Rev 1.8    7/23/04 6:36:54 PM  RLebeau 
{ Added extra exception handling to Open() 
} 
{ 
{   Rev 1.7    2004.05.20 12:34:30 PM  czhower 
{ Removed more non .NET compatible stream read and writes 
} 
{ 
{   Rev 1.6    2004.02.03 4:17:16 PM  czhower 
{ For unit name changes. 
} 
{ 
{   Rev 1.5    2003.10.17 6:15:54 PM  czhower 
{ Upgrades 
} 
{ 
{   Rev 1.4    2003.10.16 11:24:36 AM  czhower 
{ Bug fix 
} 
{ 
    Rev 1.3    10/15/2003 8:00:10 PM  DSiders 
  Added resource string for exception raised in TIdLogFile.SetFilename. 
} 
{ 
{   Rev 1.2    2003.10.14 1:27:10 PM  czhower 
{ Uupdates + Intercept support 
} 
{ 
{   Rev 1.1    6/16/2003 11:01:06 AM  EHill 
{ Throw exception if the filename is set while the log is open. 
{ Expose Open and Close as public instead of protected. 
} 
{ 
{   Rev 1.0    11/13/2002 07:56:12 AM  JPMugaas 
} 
unit IdLogFile; 
 
{ 
  Revision History: 
  19-Aug-2001 DSiders Fixed bug in Open.  Use file mode fmCreate when Filename 
                      does *not* exist. 
 
  19-Aug-2001 DSiders Added protected method TIdLogFile.LogWriteString. 
 
  19-Aug-2001 DSiders Changed implementation of TIdLogFile methods LogStatus, 
                      LogReceivedData, and LogSentData to use LogWriteString. 
 
  19-Aug-2001 DSiders Added class TIdLogFileEx with the LogFormat method. 
} 
 
interface 
 
uses 
  Classes, 
  IdLogBase, IdStreamVCL, 
  SysUtils; 
 
type 
  TIdLogFile = class(TIdLogBase) 
  protected 
    FFilename: TFilename; 
    FFileStream: TIdStreamVCL; 
    // 
    procedure LogFormat(AFormat: string; AArgs: array of const); virtual; 
    procedure LogReceivedData(AText: string; AData: string); override; 
    procedure LogSentData(AText: string; AData: string); override; 
    procedure LogStatus(AText: string); override; 
    procedure LogWriteString(AText: string); virtual; 
    // 
    procedure SetFilename(AFilename: TFilename); 
  public 
    procedure Open; override; 
    procedure Close; override; 
  published 
    property Filename: TFilename read FFilename write SetFilename; 
  end; 
 
implementation 
 
uses 
  IdGlobal, IdException, IdResourceStringsCore; 
 
{ TIdLogFile } 
 
procedure TIdLogFile.Close; 
begin 
  FreeAndNil(FFileStream); 
end; 
 
procedure TIdLogFile.LogReceivedData(AText, AData: string); 
begin 
  LogWriteString(RSLogRecv + AText + ': ' + AData + EOL);  {Do not translate} 
end; 
 
procedure TIdLogFile.LogSentData(AText, AData: string); 
begin 
  LogWriteString(RSLogSent + AText + ': ' + AData + EOL);  {Do not translate} 
end; 
 
procedure TIdLogFile.LogStatus(AText: string); 
begin 
  LogWriteString(RSLogStat + AText + EOL); 
end; 
 
procedure TIdLogFile.Open; 
var 
  LStream: TStream; 
  LFlags: Word; 
begin 
  if not (csDesigning in ComponentState) then begin 
    if FileExists(Filename) then begin 
      LFlags := fmOpenReadWrite or fmShareDenyWrite; 
    end else begin 
      LFlags := fmCreate; 
    end; 
    LStream := TFileStream.Create(Filename, LFlags); 
    try 
      FFileStream := TIdStreamVCL.Create(LStream, True); 
      if LFlags <> fmCreate then begin 
        FFileStream.Position := FFileStream.Size; 
      end; 
    except 
      if FFileStream <> nil then begin 
        FreeAndNil(FFileStream); 
      end else begin 
        FreeAndNil(LStream); 
      end; 
      raise; 
    end; 
  end; 
end; 
 
procedure TIdLogFile.LogWriteString(AText: string); 
begin 
  FFileStream.Write(AText); 
end; 
 
procedure TIdLogFile.LogFormat(AFormat: string; AArgs: array of const); 
var 
  sPre: string; 
  sMsg: string; 
  sData: string; 
begin 
  // forces Open to be called prior to Connect 
  if not Active then 
  begin 
    Active := True; 
  end; 
 
  sPre := '';   {Do not translate} 
  sMsg := '';   {Do not translate} 
 
  if LogTime then 
  begin 
    sPre := DateTimeToStr(Now) + ' ' ;      {Do not translate} 
  end; 
 
  sData := Format(AFormat, AArgs); 
  if FReplaceCRLF then begin 
    sData := StringReplace(sData, EOL, RSLogEOL, [rfReplaceAll]); 
    sData := StringReplace(sData, CR, RSLogCR,  [rfReplaceAll]); 
    sData := StringReplace(sData, LF,  RSLogLF,  [rfReplaceAll]); 
  end; 
  sMsg := sPre + sData + EOL; 
 
  LogWriteString(sMsg); 
end; 
 
procedure TIdLogFile.SetFilename(AFilename: TFilename); 
begin 
  EIdException.IfAssigned(FFileStream, RSLogFileAlreadyOpen); 
  FFilename := AFilename; 
end; 
 
end.