Ms windream Constante Vektor auf 4100 angepasst

This commit is contained in:
Developer01 2025-01-21 14:46:35 +01:00
parent 34ffec6272
commit b572639805
3 changed files with 7 additions and 4 deletions

View File

@ -65,6 +65,9 @@ Public Class Helpers
Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object
' Leerzeichen an Anfang und Ende entfernen
If Type > 4095 And Type < 4115 Then
Return ConvertVectorType(Type, pValue)
End If
pValue = pValue.Trim()
Select Case Type

View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.5.0")>
<Assembly: AssemblyFileVersion("1.9.5.0")>
<Assembly: AssemblyVersion("1.9.5.1")>
<Assembly: AssemblyFileVersion("1.9.5.1")>

View File

@ -89,7 +89,7 @@ Public Class Windream
Public Const WMObjectVariableValueTypeVariant = 10
Public Const WMObjectVariableValueTypeMask = &HFFF
Public Const WMObjectVariableValueFlagMask = &HFFFFF000
Public Const WMObjectVariableValueTypeVector = &H1000
Public Const WMObjectVariableValueTypeVector = 4115
Public Const WMObjectVariableValueTypeFulltext = &H2000
Public Const WMObjectVariableValueTypeDefaultValue = &H4000
@ -1268,7 +1268,7 @@ Public Class Windream
End Try
End Function
Public Function SetFileIndex(Path As String, IndexName As String, Values As List(Of String), ObjectType As String) As Boolean
Public Function SetFileIndexLoS(Path As String, IndexName As String, Values As List(Of String), ObjectType As String) As Boolean
If TestSessionLoggedIn() = False Then
Return False
End If