AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS GDPicture Verweis

Browse Source
This commit is contained in:
Developer01
2025-03-26 14:05:16 +01:00
parent 11a92817bc
commit 5df478bdab
6 changed files with 316 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Global_Indexer/frmIndex.vb
View File

@@ -2,7 +2,7 @@
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Security.AccessControl
Imports System.Security.Principal
'Imports System.Security.Principal
Imports DigitalData.Modules.Logging
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.GlobalIndexer
@@ -11,7 +11,8 @@ Imports Limilabs.Mail
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base
Imports DevExpress.DataAccess.Native.Json
'Imports DevExpress.DataAccess.Native.Json
'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records
Public Class frmIndex
#Region "+++++ Variablen ++++++"
@@ -155,7 +156,7 @@ Public Class frmIndex
End Sub
Sub addLabel(indexname As String, hinweis As String, ylbl As Integer, anz As String)
Dim lbl As New Label With {
Dim lbl As New Windows.Forms.Label With {
.Name = "lbl" & indexname,
.AutoSize = True,
.Text = hinweis,
@@ -793,6 +794,10 @@ Public Class frmIndex
' den Typ des Zielindexes auslesen
Dim oIndexType As Integer = WINDREAM.GetIndexType(indexname)
_Logger.Debug($"oIndexType [{oIndexType}]...")
If oIndexType = 0 Then
MsgBox("Could not get the windream-indextype. Check Your Configuration", MsgBoxStyle.Information, "Attention")
Return False
End If
If oIndexType > 4095 Then
_Logger.Debug($"Indexing Vektor - oIndexType [{oIndexType}] ...")
Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
@@ -2048,7 +2053,7 @@ Public Class frmIndex
End Function
Private Sub PrepareDependingControl(Control As Control)
If TypeOf Control Is Label Then
If TypeOf Control Is Windows.Forms.Label Then
Exit Sub
End If
@@ -2095,7 +2100,7 @@ Public Class frmIndex
Dim oFoundControl As Control = Nothing
For Each oControl As Control In pnlIndex.Controls
If TypeOf oControl Is Label Then
If TypeOf oControl Is Windows.Forms.Label Then
Continue For
End If
@@ -2166,11 +2171,17 @@ Public Class frmIndex
Dim oCreationDate As Date = oFileInfo.CreationTime
oResult = oCreationDate.ToShortDateString
Case "$FileCreatedWho".ToUpper
Dim oFileSecurity As FileSecurity = File.GetAccessControl(FileName)
Dim oSecurityId As IdentityReference = oFileSecurity.GetOwner(GetType(SecurityIdentifier))
Dim oNTAccount As IdentityReference = oSecurityId.Translate(GetType(NTAccount))
Dim oOwner As String = oNTAccount.ToString()
oResult = oOwner
'Dim oFileSecurity As FileSecurity = File.GetAccessControl(FileName)
' Dim oSecurityId As IdentityReference = oFileSecurity.GetOwner(GetType(SecurityIdentifier))
'Dim oNTAccount As IdentityReference = oSecurityId.Translate(GetType(NTAccount))
'Dim oOwner As String = oNTAccount.ToString()
Dim fileInfo As FileInfo = New FileInfo(FileName)
Dim fileSecurity As FileSecurity = fileInfo.GetAccessControl()
' Ersteller auslesen
Dim oOwner As System.Security.Principal.NTAccount = DirectCast(fileSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), System.Security.Principal.NTAccount)
oResult = oOwner.Value
Case "$DateDDMMYYY".ToUpper
oResult = System.DateTime.Now.ToShortDateString
Case "$Username".ToUpper