EDMI

Modules.EDMIAPI/Client.vb

@@ -36,6 +36,18 @@ Public Class Client
         End Try
     End Sub
 
+    Public Sub New(LogConfig As LogConfig, IPAddress As String, PortNumber As Integer)
+        _logger = LogConfig.GetLogger()
+
+        Try
+            Dim oBinding = Channel.GetBinding()
+            Dim oAddress = New EndpointAddress($"net.tcp://{IPAddress}:{PortNumber}/DigitalData/Services/Main")
+            Dim oFactory = New ChannelFactory(Of IEDMIServiceChannel)(oBinding, oAddress)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
     ''' <summary>
     ''' Connect to the service
     ''' </summary>