EDMIBenchmark: add logging

This commit is contained in:
Jonathan Jenne
2020-04-22 11:07:21 +02:00
parent 99e7a36d84
commit 162485e3f0
3 changed files with 40 additions and 22 deletions

View File

@@ -7,19 +7,24 @@ Imports System.IO
Public Class Form1
Private _Channel As EDMIServiceReference.IEDMIServiceChannel
Private _LogConfig As LogConfig
Private _Logger As Logger
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp)
_LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenschmark")
_Logger = _LogConfig.GetLogger()
Dim oChannelFactory As New ChannelFactory(Of EDMIServiceReference.IEDMIServiceChannel)(
Channel.GetBinding(TcpClientCredentialType.Windows),
"net.tcp://172.24.12.39:9000/DigitalData/Services/Main")
_Channel = oChannelFactory.CreateChannel()
_Channel.Open()
DocumentViewer1.Init(oLogConfig, "21182889975216572111813147150675976632")
DocumentViewer1.Init(_LogConfig, "21182889975216572111813147150675976632")
End Sub
Private Sub AddLogMessage(Message As String)
_Logger.Info(Message)
listboxLog.Items.Add(Message)
listboxLog.MakeItemVisible(listboxLog.Items.Count - 1)
End Sub
@@ -216,4 +221,8 @@ Public Class Form1
AddLogMessage("Timer Stopped!")
End If
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Process.Start(_LogConfig.LogDirectory)
End Sub
End Class