MS Vektrortype > 4095 und neue dlls GDPicture inkl Runtime dll

Global_Indexer/App.config

@@ -2,10 +2,16 @@
 <configuration>
   <configSections>
     <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
       <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
     </sectionGroup>
   </configSections>
   <applicationSettings>
+    <Global_Indexer.My.MySettings>
+      <setting name="GDPICTURE_VERSION" serializeAs="String">
+        <value>11.2024</value>
+      </setting>
+    </Global_Indexer.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">
         <value>Skin/Office 2013</value>
@@ -59,7 +65,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-14.2.89.0" newVersion="14.2.89.0" />
+        <bindingRedirect oldVersion="0.0.0.0-14.2.90.0" newVersion="14.2.90.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>

Global_Indexer/Global_Indexer.vbproj

@@ -158,18 +158,18 @@
     <Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Controls.LookupGrid">
-      <HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.GUIs.Common">
-      <HintPath>..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.GUIs.GlobalIndexer">
-      <HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Base, Version=1.3.6.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
@@ -205,7 +205,7 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\2_DLL Projekte\DDModules\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Windream, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Windream, Version=1.9.5.1, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
     </Reference>
@@ -213,8 +213,8 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>P:\Install .Net\0 DD - Bibliotheken\Modules\ZooFlow\DigitalData.Modules.ZooFlow.dll</HintPath>
     </Reference>
-    <Reference Include="GdPicture.NET.14, Version=14.2.89.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+    <Reference Include="GdPicture.NET.14, Version=14.2.90.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
-      <HintPath>..\packages\GdPicture.14.2.89\lib\net462\GdPicture.NET.14.dll</HintPath>
+      <HintPath>..\packages\GdPicture.14.2.90\lib\net462\GdPicture.NET.14.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -246,6 +246,11 @@
     <Reference Include="System.DirectoryServices.AccountManagement" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.InteropServices.RuntimeInformation.4.0.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.Runtime.Remoting" />
     <Reference Include="System.Runtime.Serialization" />
     <Reference Include="System.ServiceModel" />
@@ -842,12 +847,12 @@
     </BootstrapperPackage>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <Import Project="..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets')" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" />
   <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
     <PropertyGroup>
       <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
     </PropertyGroup>
-    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.2.89\build\net462\GdPicture.runtimes.windows.targets'))" />
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets'))" />
   </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

Global_Indexer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.9.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -64,6 +64,15 @@ Namespace My
                 Return CType(Me("DD_ECMConnectionString"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("11.2024")>  _
+        Public ReadOnly Property GDPICTURE_VERSION() As String
+            Get
+                Return CType(Me("GDPICTURE_VERSION"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

Global_Indexer/My Project/Settings.settings

@@ -10,5 +10,8 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
     </Setting>
+    <Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">11.2024</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

Global_Indexer/frmIndex.resx

@@ -683,28 +683,28 @@
     <value>BarButtonItem2</value>
   </data>
   <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>134, 17</value>
+    <value>17, 17</value>
   </metadata>
   <metadata name="VWDDINDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>244, 17</value>
+    <value>127, 17</value>
   </metadata>
   <metadata name="VWDDINDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>479, 17</value>
+    <value>358, 17</value>
   </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>708, 17</value>
+    <value>581, 17</value>
   </metadata>
   <metadata name="VWINDEX_AUTOMBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>881, 17</value>
+    <value>751, 17</value>
   </metadata>
   <metadata name="VWINDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
+    <value>985, 17</value>
   </metadata>
   <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>244, 56</value>
+    <value>17, 54</value>
   </metadata>
   <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>509, 56</value>
+    <value>165, 54</value>
   </metadata>
   <data name="RibbonPage2.Text" xml:space="preserve">
     <value>RibbonPage2</value>

Global_Indexer/frmIndex.vb

@@ -11,6 +11,7 @@ Imports Limilabs.Mail
 Imports DevExpress.XtraEditors
 Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
+Imports DevExpress.DataAccess.Native.Json
 
 Public Class frmIndex
 #Region "+++++ Variablen ++++++"
@@ -78,13 +79,16 @@ Public Class frmIndex
     Public Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
-
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         _Logger = LOGCONFIG.GetLogger()
+        _Logger.Debug("frmIndex Logger initialized ...")
         _FormHelper = New FormHelper(LOGCONFIG, Me)
+        _Logger.Debug("frmIndex FormHelper initialized ...")
         _PostProcessing = New ClassPostprocessing(LOGCONFIG)
+        _Logger.Debug("frmIndex ClassPostprocessing initialized ...")
 
         Localizer.Active = New LookupGridLocalizer()
+        _Logger.Debug("frmIndex LookupGridLocalizer initialized ...")
     End Sub
 
     Public Sub CloseViewer()
@@ -789,8 +793,8 @@ Public Class frmIndex
                             ' den Typ des Zielindexes auslesen
                             Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
                             _Logger.Debug($"oIndexType [{oIndexType}]...")
-                            If oIndexType > 4095 And oIndexType < WINDREAM.WMObjectVariableValueTypeVector Then
+                            If oIndexType > 4095 Then
-                                _Logger.Debug($"Indexing  oIndexType < WINDREAM.WMObjectVariableValueTypeVector...")
+                                _Logger.Debug($"Indexing Vektor -  oIndexType [{oIndexType}] ...")
                                 Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
                                 Dim oListofString As New List(Of String)
                                 If oSplitArray.Length <= 1 Then
@@ -827,6 +831,7 @@ Public Class frmIndex
             'Automatische Indexe Indexieren
             Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM
             If DTAut.Rows.Count > 0 Then
+                _Logger.Debug("Es gibt automatische Atrribute - Anzahl: " & DTAut.Rows.Count.ToString)
                 Dim Count As Integer = 0
                 For Each row As DataRow In DTAut.Rows
                     Dim oIsIndexed = CBool(row.Item("Indexiert"))
@@ -841,12 +846,11 @@ Public Class frmIndex
                             _Logger.Info("Indexvalue: " & oIndexValue.ToString)
                             Count += 1
 
-
-
                             ' den Typ des Zielindexes auslesen
                             Dim indexType As Integer = WINDREAM.GetIndexType(oIndexName)
-
+                            _Logger.Debug("WMIndexType: " & indexType.ToString)
-                            If indexType > 4095 And indexType < WINDREAM.WMObjectVariableValueTypeVector Then
+                            If indexType > 4095 Then
+                                _Logger.Debug("Es Handelt sich um einen VektorIndex...")
                                 Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName)
 
                                 Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
@@ -859,16 +863,21 @@ Public Class frmIndex
                                     Next
                                 End If
 
-                                If oOverwrite = False Then
+                                If oSplitArray.Length <= 1 Then
-                                    oListofString = oExistingItems.Concat(oListofString).ToList()
+                                    indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
+                                Else
+                                    For Each oStr In oSplitArray
+                                        oListofString.Add(oStr)
+                                    Next
+                                    If oOverwrite = False And oExistingItems.Count > 0 Then
+                                        oListofString = oExistingItems.Concat(oListofString).ToList()
+                                    End If
+                                    If oPreventMultipleValues = True Then
+                                        oListofString = oListofString.Distinct().ToList()
+                                    End If
+                                    indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
                                 End If
 
-                                If oPreventMultipleValues = True Then
-                                    oListofString = oListofString.Distinct().ToList()
-                                End If
-
-                                indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
-
                             Else
                                 indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
                             End If
@@ -1589,7 +1598,8 @@ Public Class frmIndex
             checkItemDeleteSource.Enabled = True
             checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
 
-            VIEWER_LICENSE = DATABASE_ECM.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND ACTIVE = 1")
+            VIEWER_LICENSE = DATABASE_ECM.GetScalarValue($"SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE 
+                    NAME = 'GDPICTURE_FILEFLOW' AND ACTIVE = 1")
 
             DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
 

Global_Indexer/frmStart.vb

@@ -46,9 +46,17 @@ Public Class frmStart
 
         Cursor = Cursors.WaitCursor
         Try
-            IndexForm = New frmIndex()
+            LOGGER.Debug("frmStart_Load ...")
-            FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
+            Try
+                IndexForm = New frmIndex()
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                LOGGER.Warn("Error while initializing frm Index ...")
+            End Try
 
+            LOGGER.Debug("Load frmIndex ready")
+            FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
+            LOGGER.Debug("Load FileDrop ready")
             'Lizenz abgellaufen, überprüfen ob User Admin ist
             If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
                 If USER_IS_ADMIN = True Then
@@ -91,7 +99,7 @@ Public Class frmStart
                 buttonAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
             DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
-
+            LOGGER.Debug("Load almost ready, now Config ...")
             If CONFIG.Config.MyFormsDesign <> "" Then
                 UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.MyFormsDesign)
             End If
@@ -100,6 +108,8 @@ Public Class frmStart
 
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Error(ex)
+
         End Try
         Cursor = Cursors.Default
     End Sub

Global_Indexer/packages.config

@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="GdPicture" version="14.2.89" targetFramework="net462" />
+  <package id="GdPicture" version="14.2.90" targetFramework="net462" />
-  <package id="GdPicture.runtimes.windows" version="14.2.89" targetFramework="net462" />
+  <package id="GdPicture.runtimes.windows" version="14.2.90" targetFramework="net462" />
   <package id="NLog" version="5.0.2" targetFramework="net462" />
+  <package id="System.Runtime.InteropServices" version="4.0.20" targetFramework="net462" />
+  <package id="System.Runtime.InteropServices.RuntimeInformation" version="4.0.0" targetFramework="net462" />
 </packages>

SetupVS19/Product.wxs

@@ -127,8 +127,11 @@
 			<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
 				<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" KeyPath="yes" />
 				<File Id="GdPicture.NET.14.filters" Name="GdPicture.NET.14.filters.dll" />
+				<File Id="GdPicture.NET.14.filters64" Name="GdPicture.NET.14.filters.64.dll" />
 				<File Id="GdPicture.NET.14.image" Name="GdPicture.NET.14.image.gdimgplug.dll" />
+				<File Id="GdPicture.NET.14.image64" Name="GdPicture.NET.14.image.gdimgplug.64.dll" />
 				<File Id="GdPicture.NET.14.Imaging" Name="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
+				<File Id="GdPicture.NET.14.Imaging64" Name="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
 			</Component>
 
 			<!--Verschiedene Bibliotheken-->