Release für ewa

Windream/Helpers.vb

@@ -298,4 +298,5 @@ Public Class Helpers
     Friend Shared Function IsVectorIndex(indexType As Integer)
         Return VectorIndicies.Contains(indexType)
     End Function
+
 End Class

Windream/Windream.vb

@@ -4,8 +4,6 @@ Imports System.Text.RegularExpressions
 Imports System.Data
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Logging
-
-
 Imports WINDREAMLib
 Imports WINDREAMLib.WMObjectEditMode
 Imports WMOBRWSLib
@@ -1560,6 +1558,29 @@ Public Class Windream
         Dim oIndexType As Integer = GetIndexType(IndexName)
         Return Helpers.IsVectorIndex(oIndexType)
     End Function
+    Public Function Start_WMCC_andCo()
+        Try
+            ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
+            ' Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
+            'Dim userExistsInServerUserGroup = DatabaseFallback.GetScalarValueECM(sql) ', CONNECTION_STRING_ECM, "StartWMCC-userExistsInServerUserGroup")
+
+            ' If WMSESSION_STARTSTOP_STARTUP = True Then
+            'And userExistsInServerUserGroup Is Nothing
+            _logger.Info(">> WINDREAM-Start on ApplicationStart is active!")
+
+                Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
+                Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
+                owindreamControlCenter.StartVFSService(1)
+                System.Threading.Thread.Sleep(1000)
+                owindreamIndexService.Start()
+                System.Threading.Thread.Sleep(1500)
+            ' End If
+            '            Create_Session()
+        Catch ex As Exception
+            _logger.Error(ex)
+            _logger.Info("Error while starting up WMCC and IndexService: " & ex.Message, True)
+        End Try
+    End Function
 #End Region
 
 #Region "Private Methods"