Anlage des Repos

2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
--- a/test/GetSearchDocuments.txt
+++ b/test/GetSearchDocuments.txt
@@ -0,0 +1,77 @@
+    Public Function GetSearchDocuments(ByVal wdfLocation As String)
+
+
+        wdfLocation = wdfLocation.Replace("W:", "\\windream\objects")
+        If System.IO.File.Exists(wdfLocation) Then
+
+            Try
+                Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+                Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
+
+
+
+                Me.oController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = Me.oController.SearchProfileTargetProgID
+                Dim ExSettings As Object
+                Dim oSearch As Object
+                ExSettings = Me.oController.SearchProfileExSettings
+                If ExSettings = 0 Then ExSettings = 7
+                Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+                Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+                Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+
+                ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
+                Select Case suchTyp.ToString.ToUpper
+                    Case "WMOSRCH.WMQUICKSEARCH"
+                        'srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        'Me.oConnect.LoginSession(oWMSession) 'srchQuick.WMSession)
+
+                        srchQuick.ClearSearch()
+                        srchQuick.SearchProfilePath = ProfilePath
+                        srchQuick.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchQuick.GetSearch()
+
+                    Case "WMOSRCH.WMINDEXSEARCH"
+                        srchIndex.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        'Me.oConnect.LoginSession(srchIndex.WMSession)
+
+                        srchIndex.ClearSearch()
+                        srchIndex.SearchProfilePath = ProfilePath
+                        srchIndex.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchIndex.GetSearch()
+
+                    Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                        srchObjectType.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        'Me.oConnect.LoginSession(oWMSession) 'srchObjectType.WMSession)
+
+                        srchObjectType.ClearSearch()
+                        srchObjectType.SearchProfilePath = ProfilePath
+                        srchObjectType.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchObjectType.GetSearch()
+
+                    Case Else
+                        _Logger.Debug("KEIN GÜLTIGER WINDREAM-SUCHTYP")
+                        Return Nothing
+                End Select
+                Dim WMObjects As Object
+                _Logger.Debug("Start der Suche: " & Now)
+                '  System.Threading.Thread.Sleep(200000)
+                WMObjects = oSearch.Execute
+                Return oSearch.execute
+            Catch ex As Exception
+                ' bei einem Fehler einen Eintrag in der Logdatei machen
+                _Logger.Error(ex)
+                Return Nothing
+            End Try
+
+        End If
+
+        Return Nothing
+
+    End Function