jj

EDMI_ClientSuite/frmFileTest.vb

@@ -1,24 +1,35 @@
 Imports DigitalData.Modules.EDMIFileOps
+Imports DigitalData.Modules.Logging
+
 Public Class frmFileTest
     Private _fileOp As FileOp
-    Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-            _fileOp = New FileOp(MyLogConfig, My.Settings.EDM_NetworkService_Adress)
+    Private _LogConfig As LogConfig
+    Private _Logger As Logger
 
-        Catch ex As Exception
-            MyLogger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
-        End Try
+    Public Sub New(LogConfig As LogConfig)
+        InitializeComponent()
 
+        _LogConfig = LogConfig
+        _Logger = LogConfig.GetLogger()
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            _fileOp = New FileOp(_LogConfig, My.Settings.EDM_NetworkService_Adress)
+
+        Catch ex As Exception
+            _Logger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
+        End Try
+    End Sub
+
+    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim oDialog = New OpenFileDialog()
         Dim oResult = oDialog.ShowDialog()
 
         If oResult <> DialogResult.OK Then
             Exit Sub
         End If
-        Dim oFileID = _fileOp.New_EDMI_File(oDialog.FileName, Environment.UserName)
+        Dim oFileID = Await _fileOp.New_EDMI_File(oDialog.FileName, Environment.UserName)
 
         MsgBox(oFileID)
         ListBox1.Items.Add(oFileID)