MS_31.03
This commit is contained in:
SchreiberM
@@ -41,9 +41,10 @@ Public Class ClassWindream
|
||||
Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
|
||||
Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
|
||||
Public Shared oDokumentTypen As WINDREAMLib.WMObjects
|
||||
Private oController As New WMOSearchController
|
||||
Private Shared oController As New WMOSearchController
|
||||
Public Shared _WDObjekttyp As String
|
||||
Private Shared aktWMObject As WINDREAMLib.WMObject
|
||||
Public Shared WD_SERVER
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -63,7 +64,7 @@ Public Class ClassWindream
|
||||
'Process.GetCurrentProcess.Kill()
|
||||
End If
|
||||
End Sub
|
||||
Public Function GetSearchDocuments(ByVal wdfLocation As String)
|
||||
Public Shared Function GetSearchDocuments(ByVal wdfLocation As String)
|
||||
|
||||
If System.IO.File.Exists(wdfLocation) Then
|
||||
|
||||
@@ -73,23 +74,23 @@ Public Class ClassWindream
|
||||
|
||||
oController = New WMOSearchController
|
||||
|
||||
Me.oController.CheckSearchProfile(wdfLocation.ToLower)
|
||||
Dim suchTyp = Me.oController.SearchProfileTargetProgID
|
||||
oController.CheckSearchProfile(wdfLocation.ToLower)
|
||||
Dim suchTyp = oController.SearchProfileTargetProgID
|
||||
Dim ExSettings As Object
|
||||
Dim oSearch As Object
|
||||
ExSettings = Me.oController.SearchProfileExSettings
|
||||
ExSettings = 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")
|
||||
|
||||
Dim suchTyp1 = suchTyp.ToString.ToUpper
|
||||
'' 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)
|
||||
srchQuick.WMSession = CreateObject("Windream.WMSession", WD_SERVER)
|
||||
|
||||
Me.oConnect.LoginSession(srchQuick.WMSession)
|
||||
oConnect.LoginSession(srchQuick.WMSession)
|
||||
|
||||
srchQuick.ClearSearch()
|
||||
srchQuick.SearchProfilePath = ProfilePath
|
||||
@@ -98,9 +99,9 @@ Public Class ClassWindream
|
||||
oSearch = srchQuick.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMINDEXSEARCH"
|
||||
srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
||||
srchIndex.WMSession = CreateObject("Windream.WMSession", WD_SERVER)
|
||||
|
||||
Me.oConnect.LoginSession(srchIndex.WMSession)
|
||||
oConnect.LoginSession(srchIndex.WMSession)
|
||||
|
||||
srchIndex.ClearSearch()
|
||||
srchIndex.SearchProfilePath = ProfilePath
|
||||
@@ -109,9 +110,9 @@ Public Class ClassWindream
|
||||
oSearch = srchIndex.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMOBJECTTYPESEARCH"
|
||||
srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
|
||||
srchObjectType.WMSession = CreateObject("Windream.WMSession", WD_SERVER)
|
||||
|
||||
Me.oConnect.LoginSession(srchObjectType.WMSession)
|
||||
oConnect.LoginSession(srchObjectType.WMSession)
|
||||
|
||||
srchObjectType.ClearSearch()
|
||||
srchObjectType.SearchProfilePath = ProfilePath
|
||||
@@ -263,9 +264,9 @@ Public Class ClassWindream
|
||||
Catch ex As Exception
|
||||
If Err.Number = -2147220985 Then
|
||||
MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
|
||||
"Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
|
||||
"Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
|
||||
Else
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
|
||||
MsgBox("Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
|
||||
End If
|
||||
Return False
|
||||
End Try
|
||||
@@ -274,8 +275,6 @@ Public Class ClassWindream
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
|
||||
|
||||
''' <summary>
|
||||
@@ -289,7 +288,7 @@ Public Class ClassWindream
|
||||
Return oDokumentTypen
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
|
||||
MsgBox("Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -302,16 +301,16 @@ Public Class ClassWindream
|
||||
Public Function GetObjecttypesAsStrings() As String()
|
||||
|
||||
Try
|
||||
Dim objektTypenStr(Me.oDokumentTypen.Count) As String
|
||||
Dim objektTypenStr(oDokumentTypen.Count) As String
|
||||
|
||||
For i As Integer = 0 To Me.oDokumentTypen.Count
|
||||
objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
|
||||
For i As Integer = 0 To oDokumentTypen.Count
|
||||
objektTypenStr(i) = oDokumentTypen.Item(i).aName
|
||||
Next
|
||||
|
||||
Return objektTypenStr
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String")
|
||||
MsgBox("Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error reading Objecttypes as string")
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
@@ -368,7 +367,7 @@ Public Class ClassWindream
|
||||
Return aIndexNames
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Reading windream-indices")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -393,7 +392,7 @@ Public Class ClassWindream
|
||||
Return Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
|
||||
MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
@@ -416,7 +415,7 @@ Public Class ClassWindream
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
|
||||
MsgBox("Error while checking index exists in Objecttype:" & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
|
||||
End Try
|
||||
|
||||
Return False
|
||||
@@ -438,7 +437,7 @@ Public Class ClassWindream
|
||||
Try
|
||||
Return oSession.aLoggedin
|
||||
Catch ex As Exception
|
||||
MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
|
||||
MsgBox("Error while checking session:" & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
Return False
|
||||
@@ -451,9 +450,10 @@ Public Class ClassWindream
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetCurrentServer() As String
|
||||
Try
|
||||
WD_SERVER = oBrowser.GetCurrentServer
|
||||
Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
|
||||
Catch ex As Exception
|
||||
MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
|
||||
MsgBox("Error while getting windream-Server:" & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
Return ""
|
||||
@@ -463,7 +463,7 @@ Public Class ClassWindream
|
||||
' Try
|
||||
' Return ClassWindream.oBrowser.GetCurrentServer
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
|
||||
' MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
|
||||
' End Try
|
||||
|
||||
' Return ""
|
||||
@@ -488,7 +488,7 @@ Public Class ClassWindream
|
||||
' Return sDrive & ":"
|
||||
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
|
||||
' MsgBox("Errormessage: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
|
||||
' End Try
|
||||
|
||||
' Return ""
|
||||
@@ -1804,7 +1804,7 @@ Public Class ClassWindream
|
||||
''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
|
||||
''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
|
||||
Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
|
||||
Try
|
||||
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
||||
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
||||
|
||||
Reference in New Issue
Block a user