VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CFileLogConsumer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'==============================================================================
'
' File   : FileLogConsumer.cls
' Date   : 18.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
'==============================================================================
'
' Implementation von ILogConsumer. Loggt in eine neue Datei mit dem
' Namen "Protokoll-dd.mm.yyyy hh:mm.TXT".
'
' @see ILogConsumer
'
'==============================================================================
'
' History:
'
' Date   : 18.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
' Erste dokumentierte Version.
'
'==============================================================================

Option Explicit

Implements ILogConsumer


' Private Member
' --------------
Private m_sFilename As String


'------------------------------------------------------------------------------
' Öffentliche Funktionalität
'------------------------------------------------------------------------------

' Implementation von ILogConsumer
' Logger meldet sich hier erstmalig
'
Public Sub ILogConsumer_logStart()
    m_sFilename = "Protokoll " + Format$(Now, "dd.mm.yyyy hh-mm") + ".txt"
End Sub

' Implementation von ILogConsumer
' Logger hat etwas protokolliert
'
Public Sub ILogConsumer_log(nLevel As Integer, sText As String)
    Static bInLog As Boolean
    Dim sFilename As String
    Dim nFile As Integer
    
    If bInLog Then Exit Sub
    
    On Error GoTo logErr
    
    bInLog = True
    sFilename = makePathname(g_App.getSettings().getProtokollDateiDir(), m_sFilename)
    nFile = FreeFile
    
    Open sFilename For Append Access Write As #nFile
    
    Print #nFile, sText
    Close #nFile
    
    bInLog = False
    Exit Sub
    
logErr:
    Call g_Logger.log(1, "Logfile konnte nicht geschrieben werden (" & Err.Description & " / " & Err.Number & ").")
    bInLog = False
    Exit Sub
    
End Sub

' Implementation von ILogConsumer
' Logger verabschiedet sich
'
Public Sub ILogConsumer_logClose()
End Sub