MS Initialiserung windreamdll
This commit is contained in:
Digital Data - Marlon Schreiber
3
Modules.Windream/ClassHelper.vb
Normal file
3
Modules.Windream/ClassHelper.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class ClassHelper
|
||||
|
||||
End Class
|
||||
@@ -33,4 +33,7 @@
|
||||
Public Const INDEX_FLAG_MASK = &HFFFFF000
|
||||
Public Const INDEX_TYPE_VECTOR = &H1000
|
||||
Public Const INDEX_TYPE_DEFAULT_VALUE = &H4000
|
||||
'Single Index Types
|
||||
Public Const WMObjectVariableValueTypeUndefined = 0
|
||||
|
||||
End Class
|
||||
|
||||
36
Modules.Windream/Helpers.vb
Normal file
36
Modules.Windream/Helpers.vb
Normal file
@@ -0,0 +1,36 @@
|
||||
Public Class Helpers
|
||||
Inherits Constants
|
||||
Friend Shared Function Convert_VectorType(vType As Object, value As String)
|
||||
Select Case vType
|
||||
Case INDEX_TYPE_HASH ' 36865
|
||||
'Umwandeln in String
|
||||
Return CStr(value)
|
||||
Case INDEX_TYPE_VECTOR_STRING '4097
|
||||
'Umwandeln in String
|
||||
Return CStr(value)
|
||||
Case INDEX_TYPE_VECTOR_INTEGER '4098
|
||||
'Umwandeln in Integer
|
||||
value = value.ToString.Replace(" ", "")
|
||||
Return CInt(value)
|
||||
Case INDEX_TYPE_VECTOR_FLOAT '4099
|
||||
Dim Str As String = value
|
||||
Str = Str.ToString.Replace(" ", "")
|
||||
'Umwandeln in Double
|
||||
Return CDbl(Str.Replace(".", ","))
|
||||
Case INDEX_TYPE_VECTOR_BOOLEAN '4100
|
||||
'Umwandeln in Boolean
|
||||
Return CBool(value)
|
||||
Case INDEX_TYPE_VECTOR_DATE '4101
|
||||
'Umwandeln in Date
|
||||
Return CDate(value)
|
||||
Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
|
||||
Return Convert.ToInt64(value)
|
||||
Case INDEX_TYPE_VECTOR_DATE_TIME '4103
|
||||
'Umwandeln in Datum Uhrzeit
|
||||
Return value
|
||||
Case Else
|
||||
'Umwandeln in String
|
||||
Return CStr(value)
|
||||
End Select
|
||||
End Function
|
||||
End Class
|
||||
@@ -43,8 +43,33 @@
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Interop.WINDREAMLib">
|
||||
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
|
||||
<EmbedInteropTypes>False</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="Interop.WMOBRWSLib">
|
||||
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOBRWSLib.dll</HintPath>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="Interop.WMOSRCHLib">
|
||||
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOSRCHLib.dll</HintPath>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="Interop.WMOTOOLLib">
|
||||
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.CSharp" />
|
||||
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.IO.Compression" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.ServiceModel" />
|
||||
<Reference Include="System.Transactions" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
@@ -63,8 +88,9 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ClassHelper.vb" />
|
||||
<Compile Include="Constants.vb" />
|
||||
<Compile Include="Session.vb" />
|
||||
<Compile Include="Helpers.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
@@ -80,6 +106,7 @@
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="Windream.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
@@ -99,6 +126,7 @@
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="packages.config" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
@@ -1,5 +0,0 @@
|
||||
Public Class Session
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
969
Modules.Windream/Windream.vb
Normal file
969
Modules.Windream/Windream.vb
Normal file
@@ -0,0 +1,969 @@
|
||||
Imports WINDREAMLib
|
||||
Imports WINDREAMLib.WMCOMEvent
|
||||
Imports WINDREAMLib.WMEntity
|
||||
Imports WINDREAMLib.WMObjectEditMode
|
||||
Imports WINDREAMLib.WMSearchOperator
|
||||
Imports WINDREAMLib.WMSearchRelation
|
||||
Imports WMOBRWSLib
|
||||
Imports WMOSRCHLib
|
||||
Public Class Windream
|
||||
Inherits Constants
|
||||
#Region "+++++ Variables +++++"
|
||||
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
|
||||
|
||||
Public Shared CurrentSession As WMObject = Nothing
|
||||
Public Shared CurrentSessionIsLoggedIn As Boolean = False
|
||||
Private Shared CurrentObjecttypes As WINDREAMLib.WMObjects
|
||||
Private Shared CurrentController As WMOSearchController
|
||||
Private Shared CurrentWMConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
|
||||
Public Shared CurrentWMServer As String
|
||||
Private Shared WMDriveLetter As String = "W"
|
||||
Private Shared _Session_Reconnect As Boolean = False
|
||||
#End Region
|
||||
#Region "+++++ Init +++++"
|
||||
''' <summary>
|
||||
''' Initializes windream and creates a windream session with the actual user
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub New(WMDRIVE As String, SessionReconnect As Boolean)
|
||||
Try
|
||||
WMDriveLetter = WMDRIVE
|
||||
NewSession()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Creates a windream session with the actual user
|
||||
''' </summary>
|
||||
''' <returns>Returns true when created, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function NewSession()
|
||||
Try
|
||||
Dim wmbrwsr
|
||||
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
|
||||
'==================================================================
|
||||
' get the current DMS-server to log in
|
||||
'==================================================================
|
||||
CurrentWMServer = wmbrwsr.GetCurrentServer
|
||||
Logger.Info("ECMServer: " & CurrentWMServer)
|
||||
Dim Connect
|
||||
Try
|
||||
Connect = CreateObject("Windream.WMConnect")
|
||||
Catch ex As Exception
|
||||
CurrentSession = Nothing
|
||||
CurrentSessionIsLoggedIn = False
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
'==================================================================
|
||||
' create a session
|
||||
'==================================================================
|
||||
'Prüfen ob sich personifiziert angemeldet werden muss?
|
||||
Try
|
||||
CurrentSession = CreateObject("Windream.WMSession", CurrentWMServer)
|
||||
Catch ex As Exception
|
||||
CurrentSession = Nothing
|
||||
CurrentSessionIsLoggedIn = False
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
'==================================================================
|
||||
' login session
|
||||
'==================================================================
|
||||
Try
|
||||
Connect.LoginSession(CurrentSession)
|
||||
If CurrentSession.aLoggedin Then
|
||||
CurrentSessionIsLoggedIn = True
|
||||
Try
|
||||
CurrentSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
|
||||
' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine
|
||||
' Ordnertypen ausgelesen werden
|
||||
CurrentObjecttypes = CurrentSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
'clsLogger.Add("Could not get Objecttypes: " & ex.Message, True)
|
||||
End Try
|
||||
Return True
|
||||
Else
|
||||
CurrentSessionIsLoggedIn = False
|
||||
Logger.Warn("Session could be built but user cannot be logged in!")
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
If Not IsNothing(CurrentSession) Then
|
||||
If CurrentSession.aLoggedin Then
|
||||
Logger.Info("User is already logged in!....")
|
||||
CurrentSessionIsLoggedIn = True
|
||||
Else
|
||||
CurrentSessionIsLoggedIn = False
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
Logger.Error(ex)
|
||||
CurrentSession = Nothing
|
||||
CurrentSessionIsLoggedIn = False
|
||||
Return False
|
||||
End If
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
CurrentSession = Nothing
|
||||
CurrentSessionIsLoggedIn = False
|
||||
Logger.Error(ex)
|
||||
'clsLogger.Add("Unexpected Error in Create Session: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
#Region "+++++ New +++++"
|
||||
Public Shared Function NewFile()
|
||||
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Creates a folder in windream. All folder-parts will be checked
|
||||
''' </summary>
|
||||
''' <param name="folderpath">full path of new folder</param>
|
||||
''' <returns>Returns true when folder was created, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function NewFolder(ByVal folderpath As String)
|
||||
Try
|
||||
If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
folderpath = folderpath.Substring(2)
|
||||
End If
|
||||
Dim folders() As String = folderpath.Split("\")
|
||||
For Each folder As String In folders
|
||||
Dim WMObject As WINDREAMLib.WMObject
|
||||
If TestFolderExists(folder) = False Then
|
||||
Try
|
||||
WMObject = CurrentSession.GetNewWMObjectFS(WMEntityFolder, folder, WMObjectEditModeNoEdit)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
'clsLogger.Add("Could not create WMObject for folderpath '" & folder & "': " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
'clsLogger.Add("Unexpected error in NewFolder: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Indexes the file with the given values
|
||||
''' </summary>
|
||||
''' <param name="WMFile">full filepath</param>
|
||||
''' <param name="indexname">Name of the index</param>
|
||||
''' <param name="aValues">values as array</param>
|
||||
''' <returns>Returns true when folder was created, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Shared Function NewIndexFile(WMFile As String, ByVal indexname As String, ByVal aValues() As String)
|
||||
|
||||
If Not WMFile.StartsWith("\") And WMFile.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMFile = WMFile.Substring(2)
|
||||
End If
|
||||
Dim oWMFile As WINDREAMLib.WMObject
|
||||
Try
|
||||
oWMFile = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMFile) 'WINDREAMLib.WMEntity.WMEntityDocument
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
'clsLogger.Add(">> Could not create oWMFile-Indexing file '" & WD_File & ": " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
Dim vektInsState As Integer = 1
|
||||
Try
|
||||
If Not oWMFile.aLocked Then
|
||||
oWMFile.lock()
|
||||
Else
|
||||
Logger.Info("WMDoc is locked already!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
If aValues.Length = 1 And aValues(0) = "" Then
|
||||
Logger.Info("Indexvalue is empty - No indexing")
|
||||
|
||||
Return False
|
||||
End If
|
||||
Logger.Info("Indexing of index '" & indexname)
|
||||
|
||||
Dim oWMType
|
||||
Try
|
||||
' das entsprechende Attribut aus windream auslesen
|
||||
Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
||||
' den Variablentyp (String, Integer, ...) auslesen
|
||||
oWMType = oAttribute.getVariableValue("dwAttrType")
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
' wenn in aValues an Position i ein Wert steht
|
||||
Dim i As Integer = 0
|
||||
Dim value = aValues(i)
|
||||
|
||||
Dim oWMValueConverted
|
||||
|
||||
Dim vektor As Boolean = False
|
||||
'Den Typ des Index-Feldes auslesen
|
||||
Logger.Info("type of windreamIndex: " & oWMType.ToString)
|
||||
Select Case (oWMType)
|
||||
|
||||
Case INDEX_TYPE_STRING
|
||||
oWMValueConverted = CStr(value)
|
||||
Case INDEX_TYPE_INTEGER
|
||||
value = value.ToString.Replace(" ", "")
|
||||
value = value.ToString.Replace(" ", "")
|
||||
oWMValueConverted = CInt(value)
|
||||
Case INDEX_TYPE_FLOAT
|
||||
value = value.ToString.Replace(" ", "")
|
||||
oWMValueConverted = CDbl(value)
|
||||
Case INDEX_TYPE_FIXED_POINT
|
||||
value = value.ToString.Replace(" ", "")
|
||||
oWMValueConverted = CDbl(value)
|
||||
Case INDEX_TYPE_BOOLEAN
|
||||
oWMValueConverted = CBool(value)
|
||||
Case INDEX_TYPE_DATE
|
||||
'Dim _date As Date = value
|
||||
oWMValueConverted = value
|
||||
Case INDEX_TYPE_TIME
|
||||
oWMValueConverted = CDbl(value)
|
||||
Case INDEX_TYPE_CURRENCY
|
||||
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
|
||||
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
|
||||
oWMValueConverted = aValueWrapper
|
||||
Case INDEX_TYPE_TIME
|
||||
'If ((value)) Then
|
||||
' oWMValueConverted = CDate(value)
|
||||
'Else
|
||||
' oWMValueConverted = ""
|
||||
'End If
|
||||
'Dim _date As Date = value
|
||||
oWMValueConverted = oWMValueConverted '*_date.ToShortTimeString
|
||||
Case INDEX_TYPE_FLOAT
|
||||
oWMValueConverted = CStr(value)
|
||||
Case INDEX_TYPE_VARIANT
|
||||
|
||||
oWMValueConverted = CStr(value)
|
||||
Case INDEX_TYPE_FULLTEXT
|
||||
oWMValueConverted = CStr(value)
|
||||
Case 4097
|
||||
'Vektor alphanumerisch
|
||||
vektor = True
|
||||
Case 4098
|
||||
'Vektor Numerisch
|
||||
vektor = True
|
||||
Case 4099
|
||||
'Vektor Kommazahl
|
||||
vektor = True
|
||||
Case 4100
|
||||
'Vektor Kommazahl
|
||||
vektor = True
|
||||
Case 4101
|
||||
'Vektor Kommazahl
|
||||
vektor = True
|
||||
Case 4103
|
||||
'Vektor DateTime
|
||||
vektor = True
|
||||
Case 4107
|
||||
vektor = True
|
||||
Case 36865
|
||||
'Vektor Kommazahl
|
||||
vektor = True
|
||||
Case Else
|
||||
oWMValueConverted = ""
|
||||
End Select
|
||||
If vektor = False Then
|
||||
If oWMValueConverted.ToString Is Nothing = False Then
|
||||
Logger.Info("Converted value is: " & oWMValueConverted.ToString)
|
||||
End If
|
||||
End If
|
||||
'############################################################################################
|
||||
'####################### Der eigentliche Indexierungsvorgang ################################
|
||||
'############################################################################################
|
||||
If vektor = False Then
|
||||
Try
|
||||
If oWMValueConverted.ToString Is Nothing = False Then
|
||||
Logger.Info("Now: oWMFile.SetVariableValue(" & indexname & ", " & oWMValueConverted & ")")
|
||||
oWMFile.SetVariableValue(indexname, CInt(oWMValueConverted))
|
||||
'Die Datei speichern
|
||||
oWMFile.Save()
|
||||
Logger.Info("Index has been written!")
|
||||
Else
|
||||
Logger.Info("No indexvalue exists!")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
oWMFile.Save()
|
||||
oWMFile.unlock()
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Else
|
||||
Logger.Info("Vectorfield: Preparing of Array!")
|
||||
Dim myArray()
|
||||
Dim Anzahl As Integer = aValues.Length
|
||||
'Vektorfeld wird mit EINEM Wert gefüllt
|
||||
If Anzahl = 1 Then
|
||||
Logger.Info("Vectorfield will be filled with ONE VALUE!")
|
||||
ReDim myArray(0)
|
||||
myArray(0) = Helpers.Convert_VectorType(oWMType, value)
|
||||
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
|
||||
Logger.Info("Converted Value: " & myArray(0).ToString)
|
||||
Dim VektorArray()
|
||||
VektorArray = Return_VektorArray(oWMFile, indexname, myArray, oWMType)
|
||||
If VektorArray Is Nothing = False Then
|
||||
ReDim myArray(VektorArray.Length - 1)
|
||||
Array.Copy(VektorArray, myArray, VektorArray.Length)
|
||||
'Jetzt die Nachindexierung
|
||||
oWMFile.SetVariableValue(indexname, myArray) '
|
||||
Logger.Info("Vectorindex has been written!")
|
||||
'Die Änderungen festsschreiben/speichern
|
||||
oWMFile.Save()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
i += 1
|
||||
|
||||
oWMFile.unlock()
|
||||
Logger.Info("...and unlock")
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
oWMFile.Save()
|
||||
oWMFile.unlock()
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Private Shared Function NewLockWMFile(oWMFile As WMObject) As Boolean
|
||||
Try
|
||||
oWMFile.lock()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Sets the folder-objecttype.
|
||||
''' </summary>
|
||||
''' <param name="folderpath">full path of folder</param>
|
||||
''' <param name="folderObjecttype">Obcjectype Name</param>
|
||||
''' <returns>Returns true when Otype was set, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function NewObjecttypeForFolder(folderpath As String, folderObjecttype As String)
|
||||
Try
|
||||
Dim result As Boolean = False
|
||||
Dim WMFolder As WINDREAMLib.WMObject
|
||||
If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
folderpath = folderpath.Substring(2)
|
||||
End If
|
||||
|
||||
If TestFolderExists(folderpath) = True Then
|
||||
WMFolder = CurrentSession.GetWMObjectByPath(WMEntityFolder, folderpath)
|
||||
Try
|
||||
' die Datei sperren
|
||||
WMFolder.lock()
|
||||
Catch ex As Exception
|
||||
' nichts tun (Datei ist bereits gesperrt)
|
||||
End Try
|
||||
|
||||
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
|
||||
If WMFolder.aObjectType.aName = "Standard" Then
|
||||
|
||||
' ihr den entsprechenden Dokumenttyp zuweisen
|
||||
WMFolder.aObjectType = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, folderObjecttype)
|
||||
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
|
||||
Logger.Info("Objecttype has been set")
|
||||
result = True
|
||||
Else
|
||||
If WMFolder.aObjectType.aName <> "Standard" Then
|
||||
Logger.Warn("An Objecttype has already been set!")
|
||||
End If
|
||||
End If
|
||||
|
||||
Try
|
||||
WMFolder.Save()
|
||||
Catch ex As Exception
|
||||
' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
|
||||
' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Try
|
||||
WMFolder.unlock()
|
||||
Catch ex As Exception
|
||||
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
|
||||
End Try
|
||||
Return result
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Creates a new version of the file
|
||||
''' </summary>
|
||||
''' <param name="WMPath">full path to the file</param>
|
||||
''' <param name="Comment">Comment</param>
|
||||
''' <returns>Returns true when version was created, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function NewVersion(ByVal WMPath As String, ByVal Comment As String)
|
||||
Try
|
||||
If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMPath = WMPath.Substring(2)
|
||||
End If
|
||||
|
||||
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
|
||||
Try
|
||||
WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath) 'WINDREAMLib.WMEntity.WMEntityDocument
|
||||
Catch ex As Exception
|
||||
Logger.Warn("Could not create WMObject in Create_Version for file '" & WMPath & "': " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
WMObject.CreateVersion2(False, "HISTORY_New_From_Version", Comment)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
#Region "+++++ Get +++++"
|
||||
''' <summary>
|
||||
''' Returns all choicelists
|
||||
''' </summary>
|
||||
''' <returns>choicelists as String-Array</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetChoiceLists() As List(Of String)
|
||||
Try
|
||||
Dim oChoiceLists As WMObjects
|
||||
Dim oChoiceList As IWMObject2
|
||||
' den Objekttyp laden
|
||||
oChoiceLists = CurrentSession.GetAllObjects(WMEntityChoiceList)
|
||||
'Array für Indizes vorbereiten
|
||||
Dim choiceLists As New List(Of String)
|
||||
|
||||
For j As Integer = 0 To oChoiceLists.Count() - 1
|
||||
|
||||
' aktuellee Liste ausleseb auslesen
|
||||
oChoiceList = oChoiceLists.Item(j)
|
||||
|
||||
choiceLists.Add(oChoiceList.aName)
|
||||
Next
|
||||
|
||||
Return choiceLists
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns all indices for an objecttype
|
||||
''' </summary>
|
||||
''' <param name="ObjecttypeName">Name of objecttype</param>
|
||||
''' <returns>Name of containing indices as String-Array</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetIndicesByObjecttype(ByVal ObjecttypeName As String) As String()
|
||||
Try
|
||||
Dim oObjectType As WMObject
|
||||
Dim oIndexAttributes As WMObjectRelation
|
||||
Dim oIndexAttribute As WMObject
|
||||
Dim oIndex As WMObject
|
||||
Dim oRelProperties As WMObjectRelation
|
||||
|
||||
' den Objekttyp laden
|
||||
oObjectType = CurrentSession.GetWMObjectByName(WMEntityObjectType, ObjecttypeName)
|
||||
|
||||
' Beziehung zu Indizes des Objekttyp auslesen
|
||||
oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
|
||||
|
||||
' Array für Indizes vorbereiten
|
||||
Dim aIndexNames(oIndexAttributes.Count - 1) As String
|
||||
|
||||
' alle Indizes durchlaufen
|
||||
For j As Integer = 0 To oIndexAttributes.Count - 1
|
||||
|
||||
' aktuellen Index auslesen
|
||||
oIndexAttribute = oIndexAttributes.Item(j)
|
||||
|
||||
' Eigenschaften des Index auslesen
|
||||
oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
|
||||
|
||||
' Index aus den Eigenschaften auslesen
|
||||
oIndex = oRelProperties.Item(0)
|
||||
|
||||
' Indexname speichern
|
||||
aIndexNames(j) = oIndex.aName
|
||||
Next
|
||||
|
||||
' Indexarray zurückgeben
|
||||
Return aIndexNames
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns all items of a choicelist
|
||||
''' </summary>
|
||||
''' <param name="NameChoicelist">name of choicelist</param>
|
||||
''' <returns>items as String-Array</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function GetChoicelistItems(ByVal NameChoicelist As String) As Object
|
||||
Try
|
||||
'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
||||
'Dim vType = oAttribute.getVariableValue("vItems")
|
||||
'Return vType
|
||||
Dim oChoiceList = CurrentSession.GetWMObjectByName(WMEntityChoiceList, NameChoicelist)
|
||||
If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
|
||||
Dim Values = oChoiceList
|
||||
Values = oChoiceList.GetVariableValue("vItems")
|
||||
Dim anz As Integer = 0
|
||||
|
||||
For Each CLItem In Values
|
||||
If oChoiceList.aName IsNot Nothing Then
|
||||
anz += 1
|
||||
End If
|
||||
Next
|
||||
Dim strListe(anz - 1)
|
||||
Dim zahl As Integer = 0
|
||||
For Each CLItem In Values
|
||||
If oChoiceList.aName IsNot Nothing Then
|
||||
strListe(zahl) = CLItem
|
||||
zahl += 1
|
||||
End If
|
||||
Next
|
||||
Return strListe
|
||||
Else
|
||||
Logger.Warn("WMchoicelist: " & NameChoicelist & " not found!")
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns all Objecttypes of current server as array of strings
|
||||
''' </summary>
|
||||
''' <returns>array(String) of all objecttypes</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function GetObjecttypesAsStrings() As String()
|
||||
Try
|
||||
Dim objektTypenStr(CurrentObjecttypes.Count) As String
|
||||
For i As Integer = 0 To CurrentObjecttypes.Count
|
||||
objektTypenStr(i) = CurrentObjecttypes.Item(i).aName
|
||||
Next
|
||||
Return objektTypenStr
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns the result of windream-search
|
||||
''' </summary>
|
||||
''' <param name="wdfLocation">filepath of windreamSearch-file</param>
|
||||
''' <param name="NameIndexDocID">Name of the Docid Index </param>
|
||||
''' <returns>Returns datatable</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetSearchDocuments(ByVal wdfLocation As String, NameIndexDocID As String)
|
||||
Dim dt As New DataTable
|
||||
dt.Columns.Add("DOC_ID", GetType(Integer))
|
||||
dt.Columns.Add("PATH", GetType(String))
|
||||
Try
|
||||
Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
|
||||
Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
|
||||
|
||||
CurrentController = New WMOSearchController
|
||||
CurrentController.CheckSearchProfile(wdfLocation.ToLower)
|
||||
Dim suchTyp = CurrentController.SearchProfileTargetProgID
|
||||
Dim ExSettings As Object
|
||||
Dim oSearch As Object
|
||||
ExSettings = CurrentController.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", CurrentWMServer)
|
||||
|
||||
CurrentWMConnect.LoginSession(srchQuick.WMSession)
|
||||
|
||||
srchQuick.ClearSearch()
|
||||
srchQuick.SearchProfilePath = ProfilePath
|
||||
srchQuick.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchQuick.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMINDEXSEARCH"
|
||||
srchIndex.WMSession = CreateObject("Windream.WMSession", CurrentWMServer)
|
||||
|
||||
CurrentWMConnect.LoginSession(srchIndex.WMSession)
|
||||
|
||||
srchIndex.ClearSearch()
|
||||
srchIndex.SearchProfilePath = ProfilePath
|
||||
srchIndex.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchIndex.GetSearch()
|
||||
|
||||
Case "WMOSRCH.WMOBJECTTYPESEARCH"
|
||||
srchObjectType.WMSession = CreateObject("Windream.WMSession", CurrentWMServer)
|
||||
|
||||
CurrentWMConnect.LoginSession(srchObjectType.WMSession)
|
||||
|
||||
srchObjectType.ClearSearch()
|
||||
srchObjectType.SearchProfilePath = ProfilePath
|
||||
srchObjectType.LoadSearchProfile(ProfileName)
|
||||
|
||||
oSearch = srchObjectType.GetSearch()
|
||||
|
||||
Case Else
|
||||
MsgBox("KEIN GÜLTIGER WINDREAM-SUCHTYP")
|
||||
Return Nothing
|
||||
End Select
|
||||
Dim WMObjects As Object
|
||||
WMObjects = oSearch.Execute
|
||||
'If returnDT = True Then
|
||||
If WMObjects.Count > 0 Then
|
||||
|
||||
For Each dok As WMObject In WMObjects
|
||||
Dim path As String = dok.aPath
|
||||
Dim DOC_ID = dok.GetVariableValue(NameIndexDocID)
|
||||
dt.Rows.Add(DOC_ID, path)
|
||||
Next
|
||||
dt.AcceptChanges()
|
||||
End If
|
||||
Return dt
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return dt
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns a windream-type as Integer.
|
||||
''' </summary>
|
||||
''' <param name="indexname">Name of indexfield</param>
|
||||
''' <returns>Returns integer, which describes the type</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetTypeOfIndexAsInt(ByVal indexname As String) As Integer
|
||||
Try
|
||||
Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
|
||||
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
||||
Return vType
|
||||
Catch ex As Exception
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns the value(s) for an index as a datatable
|
||||
''' </summary>
|
||||
''' <param name="WMFile">filepath of windream-file</param>
|
||||
''' <param name="NameIndex">Name of the index </param>
|
||||
''' <returns>Datatable</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetValueforIndex(ByVal WMFile As String, ByVal NameIndex As String) As DataTable
|
||||
Dim dt As New DataTable
|
||||
dt.Columns.Add("RESULT", GetType(String))
|
||||
Try
|
||||
If Not WMFile.StartsWith("\") And WMFile.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMFile = WMFile.Substring(2)
|
||||
End If
|
||||
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
|
||||
Try
|
||||
WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMFile) 'WINDREAMLib.WMEntity.WMEntityDocument
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return dt
|
||||
End Try
|
||||
|
||||
Dim result = WMObject.GetVariableValue(NameIndex)
|
||||
If IsNothing(result) Then
|
||||
Return Nothing
|
||||
Else
|
||||
If result.GetType.ToString.Contains("System.Object") Then
|
||||
For Each val As String In result
|
||||
dt.Rows.Add(val)
|
||||
Next
|
||||
dt.AcceptChanges()
|
||||
Else
|
||||
dt.Rows.Add(result)
|
||||
End If
|
||||
End If
|
||||
Return dt
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return dt
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns the values for a vektorfield plus the new ones
|
||||
''' </summary>
|
||||
''' <param name="WMFile">filepath of windream-file</param>
|
||||
''' <param name="NameIndex">Name of the index </param>
|
||||
''' <returns>Returns value as Datatable</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, arrIndexwerte As Object, vType As Object)
|
||||
Try
|
||||
Dim missing As Boolean = False
|
||||
Dim valueCount As Integer = 0
|
||||
Dim ValueArray()
|
||||
'Jeden Wert des Vektorfeldes durchlaufen
|
||||
Dim DT_RESULT = GetValueforIndex(oDocument.aPath, vktIndexName)
|
||||
If DT_RESULT.Rows.Count > 0 Then
|
||||
'Erst die aktuellen Werte speichern und schreiben
|
||||
For Each row As DataRow In DT_RESULT.Rows
|
||||
|
||||
ReDim Preserve ValueArray(valueCount)
|
||||
'Den Wert im Array speichern
|
||||
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, row.Item(0))
|
||||
valueCount += 1
|
||||
Next
|
||||
'Jetzt die Neuen Werte auf Duplikate überprüfen
|
||||
For Each NewValue As Object In arrIndexwerte
|
||||
If NewValue Is Nothing = False Then
|
||||
If ValueArray.Contains(NewValue) = False Then
|
||||
'Das Array anpassen
|
||||
ReDim Preserve ValueArray(valueCount)
|
||||
'Den Wert im Array speichern
|
||||
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
|
||||
valueCount += 1
|
||||
Else
|
||||
Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(1)")
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Logger.Info(" vectorfield is empty....")
|
||||
|
||||
'Den/die Neuen Wert(e) anfügen
|
||||
For Each NewValue As Object In arrIndexwerte
|
||||
If NewValue Is Nothing = False Then
|
||||
If ValueArray Is Nothing = False Then
|
||||
If ValueArray.Contains(NewValue) = False Then
|
||||
'Das Array anpassen
|
||||
ReDim Preserve ValueArray(valueCount)
|
||||
'Den Wert im Array speichern
|
||||
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
|
||||
valueCount += 1
|
||||
Else
|
||||
Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(2)")
|
||||
|
||||
End If
|
||||
Else 'Dererste Wert, also hinzufügen
|
||||
'Das Array anpassen
|
||||
ReDim Preserve ValueArray(valueCount)
|
||||
'Den Wert im Array speichern
|
||||
ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
|
||||
valueCount += 1
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return ValueArray
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Returns a WMObject if file exists
|
||||
''' </summary>
|
||||
''' <param name="WMPath">full path to the file</param>
|
||||
''' <returns>Returns WMObject</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function GetWMObjectForFile(ByVal WMPath As String) As WMObject
|
||||
Try
|
||||
If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMPath = WMPath.Substring(2)
|
||||
End If
|
||||
Dim oWMObject As WINDREAMLib.WMObject
|
||||
Try
|
||||
oWMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath)
|
||||
Catch ex As Exception
|
||||
Logger.Warn("Could not create WMObject for file '" & WMPath & "': " & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return oWMObject
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
#Region "+++++ Test +++++"
|
||||
''' <summary>
|
||||
''' Checks if the folder exists
|
||||
''' </summary>
|
||||
''' <param name="folderpath">The path of the folder</param>
|
||||
''' <returns>True if exists or false if not or error occured</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function TestFolderExists(folderpath As String)
|
||||
Try
|
||||
If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
folderpath = folderpath.Substring(2)
|
||||
End If
|
||||
Try
|
||||
Dim exists = CurrentSession.WMObjectExists(WMEntityFolder, folderpath, 0, 0)
|
||||
Return exists
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Checks wether file exists in windream
|
||||
''' </summary>
|
||||
''' <param name="WMPath">full path to the file</param>
|
||||
''' <returns>Returns true when file was deleted, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function TestFileExists(ByVal WMPath As String)
|
||||
Try
|
||||
If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMPath = WMPath.Substring(2)
|
||||
End If
|
||||
Try
|
||||
Dim WMObject As WINDREAMLib.WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath)
|
||||
Catch ex As Exception
|
||||
Logger.Warn("Could not create WMObject for file '" & WMPath & "' - so it is not existing")
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
#Region "+++++ Remove +++++"
|
||||
''' <summary>
|
||||
''' Deletes a file in windream
|
||||
''' </summary>
|
||||
''' <param name="WMPath">full path to the file</param>
|
||||
''' <returns>Returns true when file was deleted, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function RemFile(ByVal WMPath As String)
|
||||
Try
|
||||
If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
|
||||
WMPath = WMPath.Substring(2)
|
||||
End If
|
||||
Dim oWMObject = GetWMObjectForFile(WMPath)
|
||||
If IsNothing(oWMObject) = False Then
|
||||
oWMObject.Delete()
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Removes the vektorlink from windream
|
||||
''' </summary>
|
||||
''' <param name="WMPath">full path to the file</param>
|
||||
''' <param name="vktIndexName">Indexname of Vektor-Index</param>
|
||||
''' <param name="deleteValue">Value which is to be deleted</param>
|
||||
''' <returns>Returns true when indexing was successfull, false if not</returns>
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function REMOVE_VEKTOR_LINK(ByVal WMPath As String, vktIndexName As String, deleteValue As String)
|
||||
Try
|
||||
Logger.Info("Removing Value '" & deleteValue & "' of Index '" & vktIndexName & "' " & WMPath)
|
||||
Dim oWMFile As WINDREAMLib.WMObject = GetWMObjectForFile(WMPath)
|
||||
If IsNothing(oWMFile) Then
|
||||
Logger.Warn("Exit from REMOVE_VEKTOR_LINK...")
|
||||
Return False
|
||||
End If
|
||||
Dim containsvalue As Boolean = False
|
||||
Dim ValueArray()
|
||||
'Jeden Wert des Vektorfeldes durchlaufen
|
||||
Dim WMValue = oWMFile.GetVariableValue(vktIndexName)
|
||||
If WMValue Is Nothing = False Then
|
||||
'Nochmals prüfen ob wirklich Array
|
||||
If WMValue.GetType.ToString.Contains("System.Object") Then
|
||||
' das entsprechende Attribut aus windream auslesen
|
||||
Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, vktIndexName)
|
||||
' den Variablentyp (String, Integer, ...) auslesen
|
||||
Dim vType = oAttribute.getVariableValue("dwAttrType")
|
||||
Dim Anzahl As Integer = 0
|
||||
For Each WDValue As Object In WMValue
|
||||
If WDValue Is Nothing = False Then
|
||||
If WDValue = deleteValue Then
|
||||
containsvalue = True
|
||||
Logger.Info("The Index contains the value to be deleted!")
|
||||
End If
|
||||
If WDValue <> deleteValue Then
|
||||
'Erst die ALten Werte schreiben
|
||||
ReDim Preserve ValueArray(Anzahl)
|
||||
'Den Wert im Array speichern
|
||||
ValueArray(Anzahl) = Helpers.Convert_VectorType(vType, WDValue)
|
||||
Anzahl += 1
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Logger.Warn("Index is not a vector")
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Logger.Warn("oWMObject is nothing")
|
||||
Return True
|
||||
End If
|
||||
|
||||
If containsvalue = True Then 'And Not IsNothing(ValueArray)
|
||||
If NewLockWMFile(oWMFile) = False Then
|
||||
Return False
|
||||
End If
|
||||
'Indexiern des Vektorfeldes
|
||||
oWMFile.SetVariableValue(vktIndexName, ValueArray)
|
||||
' die Indexinformationen des Dokuments speichern
|
||||
oWMFile.Save()
|
||||
Logger.Info("The new vectorvalues were saved!")
|
||||
' Unlock in einem unbehandelten Try-Block um Fehler abzufangen,
|
||||
Try
|
||||
' die Sperrung des Dokuments aufheben
|
||||
oWMFile.unlock()
|
||||
|
||||
Catch ex As Exception
|
||||
' nichts tun (Datei war nicht gesperrt)
|
||||
End Try
|
||||
'Zurückgeben
|
||||
Return True
|
||||
Else
|
||||
Logger.Info("containsvalue is not true")
|
||||
Return True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
4
Modules.Windream/packages.config
Normal file
4
Modules.Windream/packages.config
Normal file
@@ -0,0 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<packages>
|
||||
<package id="NLog" version="4.5.8" targetFramework="net461" />
|
||||
</packages>
|
||||
Reference in New Issue
Block a user