98 lines
2.3 KiB
OpenEdge ABL
98 lines
2.3 KiB
OpenEdge ABL
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
|
|
|