From 96fe8fe4928d691a57abc25650466634d60eaa1f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 12 Aug 2021 16:31:10 +0200 Subject: [PATCH] bugfixes --- SetupWIXVS19/Product.wxs | 1 + WIDigForm/My Project/Resources.Designer.vb | 59 ++++++---- WIDigForm/My Project/Resources.resx | 17 ++- WIDigForm/Resources/managedatasource.svg | 9 ++ WIDigForm/TestArguments.txt | 1 + WIDigForm/WIDigForm.vbproj | 5 + WIDigForm/WIDigForm.vbproj.user | 3 +- WIDigForm/frmMain.Designer.vb | 74 +++++++----- WIDigForm/frmMain.resx | 2 +- WIDigForm/frmMain.vb | 129 ++++++++++----------- WiDigShared/ClassConfig.vb | 1 + WiDigShared/ClassWIDig.vb | 15 ++- WiDigShared/WiDigShared.vbproj | 4 + 13 files changed, 195 insertions(+), 125 deletions(-) create mode 100644 WIDigForm/Resources/managedatasource.svg create mode 100644 WIDigForm/TestArguments.txt diff --git a/SetupWIXVS19/Product.wxs b/SetupWIXVS19/Product.wxs index 0ae1ca8..53dca72 100644 --- a/SetupWIXVS19/Product.wxs +++ b/SetupWIXVS19/Product.wxs @@ -101,6 +101,7 @@ + diff --git a/WIDigForm/My Project/Resources.Designer.vb b/WIDigForm/My Project/Resources.Designer.vb index 2f3393f..ed15cfa 100644 --- a/WIDigForm/My Project/Resources.Designer.vb +++ b/WIDigForm/My Project/Resources.Designer.vb @@ -1,40 +1,41 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On +Imports System Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' - ''' Returns the cached ResourceManager instance used by this class. + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,19 +45,29 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property End Module End Namespace diff --git a/WIDigForm/My Project/Resources.resx b/WIDigForm/My Project/Resources.resx index af7dbeb..171c92d 100644 --- a/WIDigForm/My Project/Resources.resx +++ b/WIDigForm/My Project/Resources.resx @@ -46,7 +46,7 @@ mimetype: application/x-microsoft.net.object.binary.base64 value : The object must be serialized with - : System.Serialization.Formatters.Binary.BinaryFormatter + : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : and then encoded with base64 encoding. mimetype: application/x-microsoft.net.object.soap.base64 @@ -60,6 +60,7 @@ : and then encoded with base64 encoding. --> + @@ -68,9 +69,10 @@ - + + @@ -85,9 +87,10 @@ - + + @@ -109,9 +112,13 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + \ No newline at end of file diff --git a/WIDigForm/Resources/managedatasource.svg b/WIDigForm/Resources/managedatasource.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/WIDigForm/Resources/managedatasource.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/WIDigForm/TestArguments.txt b/WIDigForm/TestArguments.txt new file mode 100644 index 0000000..46c1606 --- /dev/null +++ b/WIDigForm/TestArguments.txt @@ -0,0 +1 @@ +-Mode@Test -Source@E:\TEMP\TEST.pdf -Target@"W:\ImportWIDIG\Testfile.pdf" -WMOT@"DIGITAL DATA - Entwicklung" -index@{"Integer 23"=4711;"String 38"=WeDigNoWIDig;"Boolean 04"=false} \ No newline at end of file diff --git a/WIDigForm/WIDigForm.vbproj b/WIDigForm/WIDigForm.vbproj index a936232..9317a04 100644 --- a/WIDigForm/WIDigForm.vbproj +++ b/WIDigForm/WIDigForm.vbproj @@ -55,6 +55,9 @@ + + ..\..\DDMonorepo\SQLConfig\bin\Debug\DigitalData.Controls.SQLConfig.dll + ..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll @@ -155,6 +158,8 @@ + + diff --git a/WIDigForm/WIDigForm.vbproj.user b/WIDigForm/WIDigForm.vbproj.user index 003437b..29671f6 100644 --- a/WIDigForm/WIDigForm.vbproj.user +++ b/WIDigForm/WIDigForm.vbproj.user @@ -1,6 +1,7 @@  - -Mode%40Test -Source%40E:\TEMP\TEST.pdf -Target%40"W:\ImportWIDIG\Testfile.pdf" -WMOT%40"DIGITAL DATA - Entwicklung" -index%40{"Integer 23"=4711%3b"String 38"=WeDigNoWIDig%3b"Boolean 04"=false} + + \ No newline at end of file diff --git a/WIDigForm/frmMain.Designer.vb b/WIDigForm/frmMain.Designer.vb index 78bc01a..6cbad72 100644 --- a/WIDigForm/frmMain.Designer.vb +++ b/WIDigForm/frmMain.Designer.vb @@ -38,11 +38,13 @@ Partial Class frmMain Me.bsiWMConnect = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.btnStartTest = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonGroupTest = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroupMisc = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label6 = New System.Windows.Forms.Label() @@ -130,9 +132,9 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticinfo, Me.bsiWMConnect, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticinfo, Me.bsiWMConnect, Me.BarButtonItem3, Me.BarButtonItem4, Me.btnStartTest, Me.BarButtonItem5}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.MaxItemId = 9 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -181,39 +183,55 @@ Partial Class frmMain Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem4.Name = "BarButtonItem4" ' + 'btnStartTest + ' + Me.btnStartTest.Caption = "Starte Test" + Me.btnStartTest.Id = 7 + Me.btnStartTest.ImageOptions.SvgImage = CType(resources.GetObject("btnStartTest.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnStartTest.Name = "btnStartTest" + ' 'BarButtonItem5 ' - Me.BarButtonItem5.Caption = "Starte Test" - Me.BarButtonItem5.Id = 7 - Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Caption = "Datenbankverbindung konfigurieren" + Me.BarButtonItem5.Id = 8 + Me.BarButtonItem5.ImageOptions.SvgImage = Global.WIDIG.My.Resources.Resources.managedatasource Me.BarButtonItem5.Name = "BarButtonItem5" ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupTest, Me.RibbonGroupWindream, Me.RibbonPageGroup1, Me.RibbonGroupMisc}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Einstellungen" ' - 'RibbonPageGroup1 + 'RibbonGroupTest ' - Me.RibbonPageGroup1.Enabled = False - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "Windream Connection" + Me.RibbonGroupTest.Enabled = False + Me.RibbonGroupTest.ItemLinks.Add(Me.btnStartTest) + Me.RibbonGroupTest.Name = "RibbonGroupTest" + Me.RibbonGroupTest.Text = "Test" + ' + 'RibbonGroupWindream + ' + Me.RibbonGroupWindream.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonGroupWindream.Enabled = False + Me.RibbonGroupWindream.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonGroupWindream.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonGroupWindream.Name = "RibbonGroupWindream" + Me.RibbonGroupWindream.Text = "Windream Connection" ' - 'RibbonPageGroup2 + 'RibbonPageGroup1 ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "Weiteres" + Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Datenbank Verbindung" ' - 'RibbonPageGroup3 + 'RibbonGroupMisc ' - Me.RibbonPageGroup3.Enabled = False - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem5) - Me.RibbonPageGroup3.Name = "RibbonPageGroup3" - Me.RibbonPageGroup3.Text = "App Arguments" + Me.RibbonGroupMisc.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonGroupMisc.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonGroupMisc.Name = "RibbonGroupMisc" + Me.RibbonGroupMisc.Text = "Weiteres" ' 'RibbonStatusBar1 ' @@ -398,7 +416,7 @@ Partial Class frmMain Friend WithEvents Label4 As Label Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupWindream As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GroupBox1 As GroupBox @@ -410,15 +428,17 @@ Partial Class frmMain Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents bsiWMConnect As DevExpress.XtraBars.BarStaticItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroupMisc As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GroupBox3 As GroupBox Friend WithEvents txtCommands As TextBox - Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents btnStartTest As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonGroupTest As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents Label7 As Label Friend WithEvents GroupBox2 As GroupBox Friend WithEvents TextBox2 As TextBox Friend WithEvents Label8 As Label Friend WithEvents TextBox1 As TextBox + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/WIDigForm/frmMain.resx b/WIDigForm/frmMain.resx index 5717f47..aef5de4 100644 --- a/WIDigForm/frmMain.resx +++ b/WIDigForm/frmMain.resx @@ -224,7 +224,7 @@ MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl diff --git a/WIDigForm/frmMain.vb b/WIDigForm/frmMain.vb index a13eb80..c888e73 100644 --- a/WIDigForm/frmMain.vb +++ b/WIDigForm/frmMain.vb @@ -9,56 +9,42 @@ Public Class frmMain Private LogConfig As LogConfig Private Logger As Logger - Private Config As ConfigManager(Of ClassConfig) + + Private ConfigManager As ConfigManager(Of ClassConfig) + Private Config As ClassConfig + Private WiDig As ClassWIDig Private Windream As Windream Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Try - Me.Hide() - Me.Visible = False Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, "Form", "Digital Data", "WIDig") LogConfig = oLogConfig - Logger = LogConfig.GetLogger - Config = New ConfigManager(Of ClassConfig)(LogConfig, ClassWIDig.GetAppDataPath, ClassWIDig.GetAppDataPath) + ConfigManager = New ConfigManager(Of ClassConfig)(LogConfig, ClassWIDig.GetAppDataPath, ClassWIDig.GetProgramDataPath) + Config = ConfigManager.Config - LogConfig.Debug = Config.Config.LOG_DEBUG + LogConfig.Debug = Config.LOG_DEBUG Logger = LogConfig.GetLogger - Logger.Debug("Initializing MainForm....") - WiDig = New ClassWIDig(LogConfig, Config.Config) - - Dim oUserPW = WiDig.GetUserPWPlain() - Me.txtPW.Text = oUserPW - If WiDig.Connect2Windream(oUserPW) = True Then - Dim oArguments As String() = Environment.GetCommandLineArgs() - If WiDig.ParseArgs(oArguments) = True Then - If WiDig.StreamORIndexFile() = True Then - WiDig.ErrorWhileImporting = False - Else - WiDig.ErrorWhileImporting = True - End If - Else - BarStaticinfo.Caption = $"Error in ParseArgs - {Now.ToString}" - BarStaticinfo.ItemAppearance.Normal.BackColor = Color.Red - End If - Else - WiDig.ErrorMessage = "Could not initialize windream" + If Config.ConnectionString = String.Empty Then + ShowSQLConfig() End If - txtUser.Text = Config.Config.WMUsername - Me.txtPW.Text = oUserPW - txtWMDrive.Text = Config.Config.WMDrive - txtWMRelpath.Text = Config.Config.WMRelPath - txtWMServer.Text = Config.Config.WMUserPW - txtDomain.Text = Config.Config.Domain - 'txtCommands.Text = CONFIG.Config.Arguments - txtCommands.Text = My.Settings.TestParams - If WiDig.ErrorWhileParsing = True Then - MsgBox("Error in Parsing or Indexing!", MsgBoxStyle.Critical, Text) - Me.Visible = True + Logger.Debug("Initializing MainForm....") + WiDig = New ClassWIDig(LogConfig, Config) + + txtPW.Text = WiDig.GetUserPWPlain() + txtUser.Text = Config.WMUsername + txtWMDrive.Text = Config.WMDrive + txtWMRelpath.Text = Config.WMRelPath + txtWMServer.Text = Config.WMUserPW + txtDomain.Text = Config.Domain + txtCommands.Text = Config.Arguments + + If Config.Arguments.Length > 0 Then + RibbonGroupTest.Enabled = True End If Catch ex As Exception MsgBox("Error while initializing: " & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) @@ -72,38 +58,34 @@ Public Class frmMain End Sub Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown - If WiDig?.ErrorWhileImporting = False Then - Me.Close() - End If - If WiDig?.ErrorWhileParsing = True And Environment.GetCommandLineArgs().Length <> 1 Then - MsgBox("A unexpected error occured while Parsing arguments!" & vbNewLine & WiDig?.ErrorMessage, MsgBoxStyle.Critical) - Process.Start(LogConfig.LogDirectory) + Dim oErrorMessage = WiDig?.ErrorMessage + If WiDig?.ErrorWhileParsing = True Then + MsgBox("A unexpected error occured while parsing arguments:" & vbNewLine & oErrorMessage, MsgBoxStyle.Critical) End If If WiDig?.ErrorWhileImporting = True Then - MsgBox("A unexpected error occured while initializing!" & vbNewLine & WiDig?.ErrorMessage, MsgBoxStyle.Critical) + MsgBox("A unexpected error occured while importing file:" & vbNewLine & oErrorMessage, MsgBoxStyle.Critical) End If End Sub Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - Dim wrapper As New EncryptionLegacy("!35452didalog=") - Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text) - Dim pw As String = cipherText - Config.Config.WMUserPW = pw - - Config.Config.WMUsername = txtUser.Text - Config.Config.WMDrive = txtWMDrive.Text - Config.Config.WMRelPath = txtWMRelpath.Text - Config.Config.WMServer = txtWMServer.Text - Config.Config.Domain = txtDomain.Text - Config.Save() + Dim oEncryption As New EncryptionLegacy("!35452didalog=") + Dim oEncryptedPassword As String = oEncryption.EncryptData(Me.txtPW.Text) + + Config.WMUserPW = oEncryptedPassword + Config.WMUsername = txtUser.Text + Config.WMDrive = txtWMDrive.Text + Config.WMRelPath = txtWMRelpath.Text + Config.WMServer = txtWMServer.Text + Config.Domain = txtDomain.Text + ConfigManager.Save() + BarStaticinfo.Caption = $"WM-Settings saved - {Now.ToString}" BarStaticinfo.ItemAppearance.Normal.BackColor = Color.Lime End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - Windream = New Windream(LogConfig, False, txtWMDrive.Text, txtWMRelpath.Text, True, txtWMServer.Text, txtUser.Text, txtPW.Text, txtDomain.Text) If Not IsNothing(Windream) Then MsgBox("Windream-Connext successfull!", MsgBoxStyle.Information) @@ -111,23 +93,24 @@ Public Class frmMain End Sub Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter - RibbonPageGroup1.Enabled = True + RibbonGroupWindream.Enabled = True End Sub Private Sub GroupBox1_Leave(sender As Object, e As EventArgs) Handles GroupBox1.Leave - RibbonPageGroup1.Enabled = False + RibbonGroupWindream.Enabled = False End Sub + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick Process.Start(LogConfig.LogDirectory) End Sub - Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick - My.Settings.TestParams = txtCommands.Text - My.Settings.Save() - 'CONFIG.Config.Arguments = txtCommands.Text - 'CONFIG.Save() + Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnStartTest.ItemClick + Config.Arguments = txtCommands.Text + ConfigManager.Save() + Dim oArgs() As String = txtCommands.Text.Split("|") Logger.Debug($"[{oArgs.Length}] Arguments will be checked...") + If IsNothing(Windream) Then Dim oUserPW = WiDig.GetUserPWPlain() @@ -136,6 +119,7 @@ Public Class frmMain Exit Sub End If End If + If WiDig.ParseArgs(oArgs) = False Then MsgBox("An unexpected error occured while parsing arguments. Check the log!", MsgBoxStyle.Critical) Process.Start(LogConfig.LogDirectory) @@ -150,16 +134,29 @@ Public Class frmMain End Sub - Private Sub txtCommands_GotFocus(sender As Object, e As EventArgs) Handles txtCommands.GotFocus - RibbonPageGroup3.Enabled = True + RibbonGroupTest.Enabled = True End Sub Private Sub txtCommands_LostFocus(sender As Object, e As EventArgs) Handles txtCommands.LostFocus - RibbonPageGroup3.Enabled = False + RibbonGroupTest.Enabled = False End Sub Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter - RibbonPageGroup3.Enabled = False + RibbonGroupTest.Enabled = False + End Sub + + Private Sub BarButtonItem5_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick + ShowSQLConfig() + End Sub + + Private Sub ShowSQLConfig() + Dim oForm As New DigitalData.Controls.SQLConfig.frmSQLConfig(LogConfig) With {.FormTitle = "WiDig Test"} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + Config.ConnectionString = oForm.ConnectionString + ConfigManager.Save() + End If End Sub End Class diff --git a/WiDigShared/ClassConfig.vb b/WiDigShared/ClassConfig.vb index 80c6876..929a441 100644 --- a/WiDigShared/ClassConfig.vb +++ b/WiDigShared/ClassConfig.vb @@ -11,6 +11,7 @@ Public Class ClassConfig Public Property WMServer As String = "" Public Property Domain As String = "" Public Property LOG_DEBUG As Boolean = False + Public Property Arguments As String = "-Mode@IMPV|-Source@E:\TEMP\TEST.pdf|-Target@W:\ImportWIDIG\Testfile.pdf|-WMOT@DIGITAL DATA - Entwicklung|-index@{Integer 23=4711;String 38=WeDigNoWIDig;Boolean 04=0}" End Class diff --git a/WiDigShared/ClassWIDig.vb b/WiDigShared/ClassWIDig.vb index c8e822d..9fd4070 100644 --- a/WiDigShared/ClassWIDig.vb +++ b/WiDigShared/ClassWIDig.vb @@ -121,7 +121,7 @@ Public Class ClassWIDig SourceFile = oArg.Replace(PARAM_SOURCE, "") If IsNumeric(SourceFile) Then Logger.Info($"SourceFile seems to be a DocID [{SourceFile}]") - Dim oSQL = $"SELECT [dbo].[FNDD_GET_WINDREAM_FILE_PATH] ({SourceFile})" + Dim oSQL = $"SELECT [dbo].[FNDD_GET_WINDREAM_FILE_PATH] ({SourceFile}, 0)" SourceFile = Database.GetScalarValue(oSQL) End If If System.IO.File.Exists(SourceFile) = False Then @@ -272,6 +272,13 @@ Public Class ClassWIDig If oResult = False Then Logger.Warn("Indexing failed. Exiting.") + + If Windream.RemoveFile(oFilePathToIndex) = True Then + Logger.Debug("File [{0}] removed after error.", oFilePathToIndex) + Else + Logger.Warn("File [{0}] could not be removed!", oFilePathToIndex) + End If + Exit For End If Next @@ -344,6 +351,12 @@ Public Class ClassWIDig Return oResult Catch ex As Exception + If Windream.RemoveFile(TargetPath) = True Then + Logger.Debug("File [{0}] removed after error.", TargetPath) + Else + Logger.Warn("File [{0}] could not be removed!", TargetPath) + End If + Logger.Warn($"Unexpected Error in StreamORIndexFile: {ex.Message}") Logger.Error(ex) Return False diff --git a/WiDigShared/WiDigShared.vbproj b/WiDigShared/WiDigShared.vbproj index 2a93761..8eb0c12 100644 --- a/WiDigShared/WiDigShared.vbproj +++ b/WiDigShared/WiDigShared.vbproj @@ -53,6 +53,10 @@ ..\..\DDMonorepo\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll + + False + ..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll + ..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll