EDMIBenchmark: add logging
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user