develop #1
15 changed files with 17 additions and 7332 deletions
Cleaned up old code
Marco
commit
a21522a916
|
|
@ -1,31 +0,0 @@
|
|||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("Image Catalog")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("FornaSoft")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("(C) 2002-08")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("948AA2AA-5BED-4DD5-9C67-3126EE9109C6")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("1.74.*")>
|
||||
File diff suppressed because it is too large
Load diff
|
|
@ -1,943 +0,0 @@
|
|||
Imports System.IO
|
||||
'Imports System.Drawing.Drawing2D
|
||||
'Imports System.Drawing.Imaging
|
||||
'Imports System.Threading
|
||||
|
||||
Public Class CreaImmagineSeparateMultiCore
|
||||
|
||||
Private _DirectorySorgente As String
|
||||
Private _DirectoryDestinazione As String
|
||||
|
||||
|
||||
Private _SourceDir As DirectoryInfo
|
||||
Private _DestDirStart As DirectoryInfo
|
||||
Private _DimStandard As Integer
|
||||
Private _DimStandardMiniatura As Integer
|
||||
|
||||
|
||||
Private _UsaOrarioMiniatura As Boolean
|
||||
Private _UsaOrarioTestoApplicare As Boolean
|
||||
Private _UsaTempoGaraTestoApplicare As Boolean
|
||||
Private _TestoFirmaStart As String
|
||||
Private _TestoFirmaStartV As String
|
||||
Private _DataPartenza As DateTime
|
||||
Private _TestoOrario As String
|
||||
|
||||
Private _UsaRotazioneAutomatica As Boolean
|
||||
Private _UsaForzaJpg As Boolean
|
||||
|
||||
Private _LarghezzaSmall As Integer
|
||||
Private _AltezzaSmall As Integer
|
||||
|
||||
Private _CreaMiniature As Boolean
|
||||
Private _AggiungiScritteMiniature As Boolean
|
||||
|
||||
Private _NomeFileChild As String
|
||||
Private _Suffisso As String
|
||||
Private _Codice As String
|
||||
|
||||
Private _Trasparenza As Integer
|
||||
Private _IlFont As String
|
||||
Private _Grassetto As Boolean
|
||||
|
||||
Private _Posizione As String
|
||||
Private _Allineamento As String
|
||||
Private _Margine As Integer
|
||||
|
||||
Private _LogoAltezza As Integer
|
||||
Private _LogoLarghezza As Integer
|
||||
|
||||
Private _FontColoreR As Integer
|
||||
Private _FontColoreG As Integer
|
||||
Private _FontColoreB As Integer
|
||||
|
||||
Private _LogoAggiungi As Boolean
|
||||
Private _LogoNomeFile As String
|
||||
Private _LogoTrasparenza As String
|
||||
Private _LogoMargine As String
|
||||
Private _LogoPosizioneH As String
|
||||
Private _LogoPosizioneV As String
|
||||
|
||||
Private _FotoGrandeDimOrigina As Boolean
|
||||
Private _AltezzaBig As Integer
|
||||
Private _LarghezzaBig As Integer
|
||||
Private _DestDir As DirectoryInfo
|
||||
|
||||
Public Sub CreaImmagine(ByVal InfoImg As PicInfo)
|
||||
Dim TestoFirma As String = ""
|
||||
|
||||
_DestDir = InfoImg.DirDest
|
||||
_SourceDir = InfoImg.DirSource
|
||||
_DestDirStart = InfoImg.DirDestStart
|
||||
_NomeFileChild = InfoImg.NomeImmagine
|
||||
|
||||
Dim AlphaScelta As Integer = CType((255 * (100 - _Trasparenza) / 100), Integer)
|
||||
|
||||
Dim DimensioneStandard As Integer
|
||||
Dim DimensioneStandardMiniatura As Integer
|
||||
|
||||
Dim DataFoto As DateTime
|
||||
Dim DataPartenzaI As DateTime = _DataPartenza
|
||||
If _TestoOrario.Length > 0 Then
|
||||
_TestoOrario &= " "
|
||||
End If
|
||||
Dim TestoFirmaPiccola As String = ""
|
||||
|
||||
Dim FileConta As Integer = 0
|
||||
Dim ContaFileXDir As Integer = 0
|
||||
Dim ContaDirXDir As Integer = 0
|
||||
Dim TestoTemp As String = ""
|
||||
Dim ContaTemp As Integer = 0
|
||||
|
||||
DimensioneStandard = _DimStandard
|
||||
DimensioneStandardMiniatura = _DimStandardMiniatura
|
||||
|
||||
Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(Path.Combine(_SourceDir.FullName, _NomeFileChild))
|
||||
|
||||
If _UsaOrarioTestoApplicare = True Or _UsaTempoGaraTestoApplicare = True Or _UsaOrarioMiniatura = True Then
|
||||
If g.PropertyIdList.Length > 0 Then ' ci sono dati exif
|
||||
Dim DatiExif As New ExifReader(CType(g, Bitmap))
|
||||
DataFoto = DatiExif.DateTimeOriginal
|
||||
TestoFirma = _TestoFirmaStart
|
||||
If DataFoto.Year <> 1 Then
|
||||
TestoFirmaPiccola = DataFoto.ToShortTimeString
|
||||
If _UsaOrarioTestoApplicare = True Then
|
||||
TestoFirma &= " - " & DataFoto.ToShortDateString & " " & DataFoto.ToLongTimeString
|
||||
End If
|
||||
If _UsaTempoGaraTestoApplicare = True Then
|
||||
Dim Orario As TimeSpan = New TimeSpan(DateDiff(DateInterval.Second, DataPartenzaI, DataFoto) * 10000000)
|
||||
TestoFirma &= " - " & _TestoOrario & Orario.Hours.ToString("00") & ":" & Orario.Minutes.ToString("00") & ":" & Orario.Seconds.ToString("00")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
TestoFirma = _TestoFirmaStart
|
||||
End If
|
||||
|
||||
Dim FotoRuotaADestra As Boolean = False
|
||||
Dim FotoRuotaASinistra As Boolean = False
|
||||
|
||||
If _UsaRotazioneAutomatica = True Then
|
||||
If g.PropertyIdList.Length > 0 Then ' ci sono dati exif
|
||||
Dim DatiExif As New ExifReader(CType(g, Bitmap))
|
||||
|
||||
Select Case DatiExif.Orientation
|
||||
Case ExifReader.Orientations.BottomLeft
|
||||
|
||||
Case ExifReader.Orientations.BottomRight
|
||||
|
||||
Case ExifReader.Orientations.LeftTop
|
||||
|
||||
Case ExifReader.Orientations.LftBottom
|
||||
FotoRuotaASinistra = True
|
||||
Case ExifReader.Orientations.RightBottom
|
||||
|
||||
Case ExifReader.Orientations.RightTop
|
||||
|
||||
Case ExifReader.Orientations.TopLeft
|
||||
|
||||
Case ExifReader.Orientations.TopRight
|
||||
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
'rotazione
|
||||
If FotoRuotaASinistra = True Then
|
||||
g.RotateFlip(RotateFlipType.Rotate270FlipNone)
|
||||
End If
|
||||
If FotoRuotaADestra = True Then
|
||||
g.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
||||
End If
|
||||
|
||||
Dim thisFormat As System.Drawing.Imaging.ImageFormat = g.RawFormat
|
||||
If _UsaForzaJpg = True Then
|
||||
thisFormat = System.Drawing.Imaging.ImageFormat.Jpeg
|
||||
End If
|
||||
|
||||
Dim thumbSizeSmall As New Size
|
||||
Dim thumbSizeBig As New Size
|
||||
Dim NomeFileSmall As String = ""
|
||||
Dim NomeFileBig As String = ""
|
||||
Dim NomeFileBig2 As String = ""
|
||||
|
||||
If g.Width > g.Height Then
|
||||
thumbSizeSmall = NewthumbSize(g.Width, g.Height, LarghezzaSmall, "Larghezza")
|
||||
Dim SizeOrig As New Size(g.Width, g.Height)
|
||||
thumbSizeBig = SizeOrig
|
||||
Else
|
||||
thumbSizeSmall = NewthumbSize(g.Width, g.Height, AltezzaSmall, "Altezza")
|
||||
Dim SizeOrig As New Size(g.Width, g.Height)
|
||||
thumbSizeBig = SizeOrig
|
||||
End If
|
||||
|
||||
NomeFileSmall = Suffisso & _NomeFileChild
|
||||
NomeFileBig = _NomeFileChild
|
||||
|
||||
Dim imgOutputBig As New Bitmap(g, thumbSizeBig.Width, thumbSizeBig.Height)
|
||||
imgOutputBig.SetResolution(g.HorizontalResolution, g.VerticalResolution)
|
||||
|
||||
If _CreaMiniature = True Then
|
||||
If _AggiungiScritteMiniature = False Then
|
||||
If _DirectorySorgente.ToUpper = _DirectoryDestinazione.ToUpper Then
|
||||
NomeFileSmall = NomeFileSmall.Substring(0, NomeFileSmall.Length - 4) & Codice & NomeFileSmall.Substring(NomeFileSmall.Length - 4)
|
||||
End If
|
||||
If _UsaOrarioMiniatura = True Then
|
||||
If TestoFirmaPiccola.Length > 0 Then
|
||||
Dim imgOutputSmall As Bitmap
|
||||
imgOutputSmall = CType(imgOutputBig.Clone, Bitmap)
|
||||
|
||||
Dim grPhoto1 As Graphics
|
||||
grPhoto1 = Graphics.FromImage(imgOutputSmall)
|
||||
grPhoto1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
|
||||
|
||||
Dim crFont1 As Font = Nothing
|
||||
Dim crSize1 As SizeF = New SizeF
|
||||
Dim LarghezzaStandard1 As Integer
|
||||
|
||||
If _Grassetto = True Then
|
||||
crFont1 = New Font(IlFont, DimensioneStandardMiniatura, FontStyle.Bold)
|
||||
Else
|
||||
crFont1 = New Font(_IlFont, DimensioneStandardMiniatura)
|
||||
End If
|
||||
|
||||
crSize1 = grPhoto1.MeasureString(TestoFirmaPiccola, crFont1)
|
||||
LarghezzaStandard1 = CType(crSize1.Width, Integer)
|
||||
|
||||
If crSize1.Width > CType(g.Width, Single) Then
|
||||
Dim Conta As Integer = DimensioneStandardMiniatura
|
||||
Do
|
||||
If Conta > 20 Then
|
||||
Conta -= 5
|
||||
Else
|
||||
Conta -= 1
|
||||
End If
|
||||
If _Grassetto = True Then
|
||||
crFont1 = New Font(_IlFont, Conta, FontStyle.Bold)
|
||||
Else
|
||||
crFont1 = New Font(_IlFont, Conta)
|
||||
End If
|
||||
crSize1 = grPhoto1.MeasureString(TestoFirmaPiccola, crFont1)
|
||||
If crSize1.Width < CType(g.Width, Single) Then
|
||||
LarghezzaStandard1 = CType(crSize1.Width, Integer)
|
||||
Exit Do
|
||||
End If
|
||||
If Conta <= 5 Then Exit Do
|
||||
Loop
|
||||
DimensioneStandardMiniatura = Conta
|
||||
End If
|
||||
|
||||
Dim yPosFromBottom1 As Single
|
||||
Select Case _Posizione.ToUpper
|
||||
Case "ALTO"
|
||||
yPosFromBottom1 = (_Margine)
|
||||
|
||||
Case "BASSO"
|
||||
'yPosFromBottom = (g.Height - _Margine - DimensioneStandard)
|
||||
'yPosFromBottom1 = CType((g.Height - crFont1.Height - (g.Height * _Margine / 100) - (crFont1.Height * 0.3)), Single)
|
||||
yPosFromBottom1 = CType((g.Height - crSize1.Height - (g.Height * _Margine / 100)), Single)
|
||||
|
||||
End Select
|
||||
|
||||
Dim xCenterOfImg1 As Single
|
||||
Dim StrFormat1 As StringFormat = New StringFormat
|
||||
Select Case _Allineamento.ToUpper
|
||||
Case "SINISTRA"
|
||||
xCenterOfImg1 = CType((_Margine + (LarghezzaStandard1 / 2)), Single)
|
||||
If (LarghezzaStandard1 / 2) > (g.Width / 2) - _Margine Then
|
||||
xCenterOfImg1 = CType((g.Width / 2), Single)
|
||||
End If
|
||||
|
||||
Case "CENTRO"
|
||||
xCenterOfImg1 = CType((g.Width / 2), Single)
|
||||
|
||||
Case "DESTRA"
|
||||
xCenterOfImg1 = CType((g.Width - _Margine - (LarghezzaStandard1 / 2)), Single)
|
||||
If (LarghezzaStandard1 / 2) > (g.Width / 2) - _Margine Then
|
||||
xCenterOfImg1 = CType((g.Width / 2), Single)
|
||||
End If
|
||||
|
||||
End Select
|
||||
StrFormat1.Alignment = StringAlignment.Center
|
||||
|
||||
Dim semiTransBrush21 As SolidBrush = New SolidBrush(Color.FromArgb(AlphaScelta, 0, 0, 0))
|
||||
Dim semiTransBrush1 As SolidBrush = New SolidBrush(Color.FromArgb(AlphaScelta, _FontColoreR, _FontColoreG, _FontColoreB))
|
||||
|
||||
If _Grassetto = True Then
|
||||
crFont1 = New Font(_IlFont, DimensioneStandardMiniatura, FontStyle.Bold)
|
||||
Else
|
||||
crFont1 = New Font(_IlFont, DimensioneStandardMiniatura)
|
||||
End If
|
||||
|
||||
grPhoto1.DrawString(TestoFirmaPiccola, crFont1, semiTransBrush21, New PointF(xCenterOfImg1 + 1, yPosFromBottom1 + 1), StrFormat1)
|
||||
grPhoto1.DrawString(TestoFirmaPiccola, crFont1, semiTransBrush1, New PointF(xCenterOfImg1, yPosFromBottom1), StrFormat1)
|
||||
|
||||
imgOutputSmall.Save(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileSmall), thisFormat)
|
||||
Dim g2 As System.Drawing.Image = System.Drawing.Image.FromFile(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileSmall))
|
||||
Dim imgOutputSmall2 As New Bitmap(g2, thumbSizeSmall.Width, thumbSizeSmall.Height)
|
||||
imgOutputSmall2.Save(Path.Combine(_DestDir.FullName, NomeFileSmall), thisFormat)
|
||||
|
||||
imgOutputSmall2.Dispose()
|
||||
imgOutputSmall.Dispose()
|
||||
g2.Dispose()
|
||||
Kill(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileSmall))
|
||||
Else
|
||||
Dim imgOutputSmall As New Bitmap(g, thumbSizeSmall.Width, thumbSizeSmall.Height)
|
||||
imgOutputSmall.Save(Path.Combine(_DestDir.FullName, NomeFileSmall), thisFormat)
|
||||
imgOutputSmall.Dispose()
|
||||
End If
|
||||
Else
|
||||
Dim imgOutputSmall As New Bitmap(g, thumbSizeSmall.Width, thumbSizeSmall.Height)
|
||||
imgOutputSmall.Save(Path.Combine(_DestDir.FullName, NomeFileSmall), thisFormat)
|
||||
imgOutputSmall.Dispose()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim grPhoto As Graphics
|
||||
grPhoto = Graphics.FromImage(imgOutputBig)
|
||||
grPhoto.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
|
||||
|
||||
Dim crFont As Font = Nothing
|
||||
Dim crSize As SizeF = New SizeF
|
||||
Dim LarghezzaStandard As Integer
|
||||
|
||||
If _Grassetto = True Then
|
||||
crFont = New Font(_IlFont, DimensioneStandard, FontStyle.Bold)
|
||||
Else
|
||||
crFont = New Font(_IlFont, DimensioneStandard)
|
||||
End If
|
||||
crSize = grPhoto.MeasureString(TestoFirma, crFont)
|
||||
LarghezzaStandard = CType(crSize.Width, Integer)
|
||||
|
||||
If crSize.Width > CType(g.Width, Single) Then
|
||||
Dim Conta As Integer = DimensioneStandard
|
||||
Do
|
||||
If Conta > 20 Then
|
||||
Conta -= 5
|
||||
Else
|
||||
Conta -= 1
|
||||
End If
|
||||
If _Grassetto = True Then
|
||||
crFont = New Font(_IlFont, Conta, FontStyle.Bold)
|
||||
Else
|
||||
crFont = New Font(_IlFont, Conta)
|
||||
End If
|
||||
crSize = grPhoto.MeasureString(TestoFirma, crFont)
|
||||
If crSize.Width < CType(g.Width, Single) Then
|
||||
LarghezzaStandard = CType(crSize.Width, Integer)
|
||||
Exit Do
|
||||
End If
|
||||
If Conta <= 5 Then Exit Do
|
||||
Loop
|
||||
DimensioneStandard = Conta
|
||||
End If
|
||||
|
||||
Dim yPosFromBottom As Single
|
||||
Select Case _Posizione.ToUpper
|
||||
Case "ALTO"
|
||||
yPosFromBottom = (_Margine)
|
||||
|
||||
Case "BASSO"
|
||||
'yPosFromBottom = (g.Height - _Margine - DimensioneStandard)
|
||||
'yPosFromBottom = CType((g.Height - DimensioneStandard - (g.Height * _Margine / 100) - (DimensioneStandard * 0.3)), Single)
|
||||
yPosFromBottom = CType((g.Height - crSize.Height - (g.Height * _Margine / 100)), Single)
|
||||
End Select
|
||||
|
||||
Dim xCenterOfImg As Single
|
||||
Dim StrFormat As StringFormat = New StringFormat
|
||||
Select Case _Allineamento.ToUpper
|
||||
Case "SINISTRA"
|
||||
xCenterOfImg = CType((_Margine + (LarghezzaStandard / 2)), Single)
|
||||
If (LarghezzaStandard / 2) > (g.Width / 2) - _Margine Then
|
||||
xCenterOfImg = CType((g.Width / 2), Single)
|
||||
End If
|
||||
|
||||
Case "CENTRO"
|
||||
xCenterOfImg = CType((g.Width / 2), Single)
|
||||
|
||||
Case "DESTRA"
|
||||
xCenterOfImg = CType((g.Width - _Margine - (LarghezzaStandard / 2)), Single)
|
||||
If (LarghezzaStandard / 2) > (g.Width / 2) - _Margine Then
|
||||
xCenterOfImg = CType((g.Width / 2), Single)
|
||||
End If
|
||||
|
||||
End Select
|
||||
StrFormat.Alignment = StringAlignment.Center
|
||||
|
||||
Dim semiTransBrush2 As SolidBrush = New SolidBrush(Color.FromArgb(AlphaScelta, 0, 0, 0))
|
||||
Dim semiTransBrush As SolidBrush = New SolidBrush(Color.FromArgb(AlphaScelta, _FontColoreR, _FontColoreG, _FontColoreB))
|
||||
|
||||
If _Grassetto = True Then
|
||||
crFont = New Font(_IlFont, DimensioneStandard, FontStyle.Bold)
|
||||
Else
|
||||
crFont = New Font(_IlFont, DimensioneStandard)
|
||||
End If
|
||||
|
||||
grPhoto.DrawString(TestoFirma, crFont, semiTransBrush2, New PointF(xCenterOfImg + 1, yPosFromBottom + 1), StrFormat)
|
||||
grPhoto.DrawString(TestoFirma, crFont, semiTransBrush, New PointF(xCenterOfImg, yPosFromBottom), StrFormat)
|
||||
|
||||
If _DirectorySorgente.ToUpper = _DirectoryDestinazione.ToUpper Then
|
||||
NomeFileBig2 = NomeFileBig
|
||||
NomeFileBig = NomeFileBig.Substring(0, NomeFileBig.Length - 4) & Codice & NomeFileBig.Substring(NomeFileBig.Length - 4)
|
||||
End If
|
||||
|
||||
|
||||
'imgOutputBig
|
||||
If _LogoAggiungi = True And File.Exists(_LogoNomeFile) Then
|
||||
|
||||
Dim ImmagineLogo As Image = Image.FromFile(_LogoNomeFile)
|
||||
|
||||
Dim LogoColoreTrasparente As Color = Color.White
|
||||
'Dim bmWatermark As Bitmap
|
||||
|
||||
'* Create a Bitmap based on the previously modified photograph Bitmap
|
||||
'bmWatermark = New Bitmap(imgOutputBig)
|
||||
'bmWatermark.SetResolution(imgOutputBig.HorizontalResolution, imgOutputBig.VerticalResolution)
|
||||
|
||||
'* Load this Bitmap into a new Graphic Object
|
||||
Dim grWatermark As Graphics = Graphics.FromImage(imgOutputBig)
|
||||
|
||||
'* To achieve a transulcent watermark we will apply (2) color manipulations
|
||||
Dim imageAttributes As Imaging.ImageAttributes = New Imaging.ImageAttributes
|
||||
|
||||
'* The first step replace the background color with one that is trasparent (Alpha=0, R=0, G=0, B=0)
|
||||
Dim colorMap As Imaging.ColorMap = New Imaging.ColorMap
|
||||
|
||||
'* background this will be the color we search for and replace with transparency
|
||||
colorMap.OldColor = LogoColoreTrasparente
|
||||
colorMap.NewColor = Color.FromArgb(0, 0, 0, 0)
|
||||
|
||||
Dim remapTable As Imaging.ColorMap() = {colorMap}
|
||||
imageAttributes.SetRemapTable(remapTable, Imaging.ColorAdjustType.Bitmap)
|
||||
|
||||
'* The second color manipulation is used to change the opacity by setting the 3rd row and 3rd column to 0.3f
|
||||
Dim colorMatrixElements As Single()() = {New Single() {1.0F, 0.0F, 0.0F, 0.0F, 0.0F}, New Single() {0.0F, 1.0F, 0.0F, 0.0F, 0.0F}, New Single() {0.0F, 0.0F, 1.0F, 0.0F, 0.0F}, New Single() {0.0F, 0.0F, 0.0F, CType(_LogoTrasparenza, Single) / 100, 0.0F}, New Single() {0.0F, 0.0F, 0.0F, 0.0F, 1.0F}}
|
||||
Dim wmColorMatrix As Imaging.ColorMatrix = New Imaging.ColorMatrix(colorMatrixElements)
|
||||
imageAttributes.SetColorMatrix(wmColorMatrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)
|
||||
|
||||
Dim FotoLogoH As Integer = _LogoAltezza
|
||||
Dim FotoLogoW As Integer = _LogoLarghezza
|
||||
Dim FattoreAlt As Double = ImmagineLogo.Height / FotoLogoH
|
||||
Dim FattoreLarg As Double = ImmagineLogo.Width / FotoLogoW
|
||||
Dim NuovaSize As Size
|
||||
If FattoreLarg > FattoreAlt Then
|
||||
NuovaSize = NewthumbSize(ImmagineLogo.Width, ImmagineLogo.Height, FotoLogoW, "Larghezza")
|
||||
Else
|
||||
NuovaSize = NewthumbSize(ImmagineLogo.Width, ImmagineLogo.Height, FotoLogoH, "Altezza")
|
||||
End If
|
||||
|
||||
Dim MargineUsato As Integer
|
||||
Dim MargineL As Integer
|
||||
Dim InPercentualeL As Boolean
|
||||
If _LogoMargine.EndsWith("%") = True Then
|
||||
InPercentualeL = True
|
||||
Else
|
||||
InPercentualeL = False
|
||||
End If
|
||||
MargineL = CType(Val(_LogoMargine), Integer)
|
||||
If InPercentualeL = True Then
|
||||
MargineUsato = CType(imgOutputBig.Height * MargineL / 100, Integer)
|
||||
Else
|
||||
MargineUsato = MargineL
|
||||
End If
|
||||
|
||||
Dim xPosOfWm As Integer
|
||||
Dim yPosOfWm As Integer
|
||||
Select Case _LogoPosizioneH.ToUpper
|
||||
Case "SINISTRA", "NESSUNA"
|
||||
xPosOfWm = MargineUsato
|
||||
|
||||
Case "CENTRO"
|
||||
xPosOfWm = CType((imgOutputBig.Width - NuovaSize.Width) / 2, Integer)
|
||||
|
||||
Case "DESTRA"
|
||||
xPosOfWm = ((imgOutputBig.Width - NuovaSize.Width) - MargineUsato)
|
||||
End Select
|
||||
Select Case _LogoPosizioneV.ToUpper
|
||||
Case "ALTO", "NESSUNA"
|
||||
yPosOfWm = MargineUsato
|
||||
|
||||
Case "CENTRO"
|
||||
yPosOfWm = CType((imgOutputBig.Height - NuovaSize.Height) / 2, Integer)
|
||||
|
||||
Case "BASSO"
|
||||
yPosOfWm = ((imgOutputBig.Height - NuovaSize.Height) - MargineUsato)
|
||||
End Select
|
||||
|
||||
grWatermark.DrawImage(ImmagineLogo, New Rectangle(xPosOfWm, yPosOfWm, NuovaSize.Width, NuovaSize.Height), 0, 0, ImmagineLogo.Width, ImmagineLogo.Height, GraphicsUnit.Pixel, imageAttributes)
|
||||
grWatermark.Dispose()
|
||||
End If
|
||||
|
||||
If _FotoGrandeDimOrigina = False Then
|
||||
imgOutputBig.Save(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig), thisFormat)
|
||||
Dim g2 As System.Drawing.Image = System.Drawing.Image.FromFile(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig))
|
||||
If g2.Width > g2.Height Then
|
||||
thumbSizeBig = NewthumbSize(g2.Width, g2.Height, _LarghezzaBig, "Larghezza")
|
||||
Else
|
||||
thumbSizeBig = NewthumbSize(g2.Width, g2.Height, _AltezzaBig, "Altezza")
|
||||
End If
|
||||
Dim imgOutputBig2 As New Bitmap(g2, thumbSizeBig.Width, thumbSizeBig.Height)
|
||||
imgOutputBig2.Save(Path.Combine(_DestDir.FullName, NomeFileBig), thisFormat)
|
||||
imgOutputBig2.Dispose()
|
||||
imgOutputBig.Dispose()
|
||||
g2.Dispose()
|
||||
Else
|
||||
imgOutputBig.Save(Path.Combine(_DestDir.FullName, NomeFileBig), thisFormat)
|
||||
imgOutputBig.Dispose()
|
||||
End If
|
||||
|
||||
If _CreaMiniature = True Then
|
||||
If _AggiungiScritteMiniature = True Then
|
||||
Dim g1 As System.Drawing.Image
|
||||
If _FotoGrandeDimOrigina = False Then
|
||||
g1 = System.Drawing.Image.FromFile(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig))
|
||||
Else
|
||||
g1 = System.Drawing.Image.FromFile(Path.Combine(_DestDir.FullName, NomeFileBig))
|
||||
End If
|
||||
Dim imgOutputSmall As New Bitmap(g1, thumbSizeSmall.Width, thumbSizeSmall.Height)
|
||||
If _DirectorySorgente.ToUpper = _DirectoryDestinazione.ToUpper Then
|
||||
NomeFileSmall = NomeFileSmall.Substring(0, NomeFileSmall.Length - 4) & Codice & NomeFileSmall.Substring(NomeFileSmall.Length - 4)
|
||||
End If
|
||||
imgOutputSmall.Save(Path.Combine(_DestDir.FullName, NomeFileSmall), thisFormat)
|
||||
imgOutputSmall.Dispose()
|
||||
g1.Dispose()
|
||||
End If
|
||||
End If
|
||||
|
||||
If File.Exists(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig)) = True Then
|
||||
Kill(Path.Combine(_DestDir.FullName, "Temp_" & NomeFileBig))
|
||||
End If
|
||||
|
||||
g.Dispose()
|
||||
grPhoto.Dispose()
|
||||
|
||||
If _DirectorySorgente.ToUpper = _DirectoryDestinazione.ToUpper Then
|
||||
Kill(Path.Combine(_SourceDir.FullName, NomeFileBig2))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function NewthumbSize(ByVal currentwidth As Integer, ByVal currentheight As Integer, ByVal MaxPixel As Integer, ByVal TipoSize As String) As Size
|
||||
' Calculate the Size of the New image
|
||||
'*** Larghezza, Altezza, Auto
|
||||
|
||||
Dim tempMultiplier As Double
|
||||
|
||||
If TipoSize.ToUpper = "Larghezza".ToUpper Then
|
||||
tempMultiplier = MaxPixel / currentwidth
|
||||
ElseIf TipoSize.ToUpper = "Altezza".ToUpper Then
|
||||
tempMultiplier = MaxPixel / currentheight
|
||||
Else
|
||||
If currentheight > currentwidth Then ' portrait
|
||||
tempMultiplier = MaxPixel / currentheight
|
||||
Else
|
||||
tempMultiplier = MaxPixel / currentwidth
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim NewSize As New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier))
|
||||
|
||||
Return NewSize
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Property DirectorySorgente() As String
|
||||
Get
|
||||
Return _DirectorySorgente
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_DirectorySorgente = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DirectoryDestinazione() As String
|
||||
Get
|
||||
Return _DirectoryDestinazione
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_DirectoryDestinazione = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property SourceDir() As DirectoryInfo
|
||||
Get
|
||||
Return _SourceDir
|
||||
End Get
|
||||
Set(ByVal value As DirectoryInfo)
|
||||
_SourceDir = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DestDirStart() As DirectoryInfo
|
||||
Get
|
||||
Return _DestDirStart
|
||||
End Get
|
||||
Set(ByVal value As DirectoryInfo)
|
||||
_DestDirStart = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Public Property TestoFirmaStart() As String
|
||||
Get
|
||||
Return _TestoFirmaStart
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_TestoFirmaStart = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property TestoFirmaStartV() As String
|
||||
Get
|
||||
Return _TestoFirmaStartV
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_TestoFirmaStartV = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DataPartenza() As DateTime
|
||||
Get
|
||||
Return _DataPartenza
|
||||
End Get
|
||||
Set(ByVal value As DateTime)
|
||||
_DataPartenza = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property TestoOrario() As String
|
||||
Get
|
||||
Return _TestoOrario
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_TestoOrario = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DimStandard() As Integer
|
||||
Get
|
||||
Return _DimStandard
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_DimStandard = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DimStandardMiniatura() As Integer
|
||||
Get
|
||||
Return _DimStandardMiniatura
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_DimStandardMiniatura = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UsaOrarioMiniatura() As Boolean
|
||||
Get
|
||||
Return _UsaOrarioMiniatura
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_UsaOrarioMiniatura = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UsaOrarioTestoApplicare() As Boolean
|
||||
Get
|
||||
Return _UsaOrarioTestoApplicare
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_UsaOrarioTestoApplicare = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UsaTempoGaraTestoApplicare() As Boolean
|
||||
Get
|
||||
Return _UsaTempoGaraTestoApplicare
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_UsaTempoGaraTestoApplicare = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UsaRotazioneAutomatica() As Boolean
|
||||
Get
|
||||
Return _UsaRotazioneAutomatica
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_UsaRotazioneAutomatica = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UsaForzaJpg() As Boolean
|
||||
Get
|
||||
Return _UsaForzaJpg
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_UsaForzaJpg = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Public Property LarghezzaSmall() As Integer
|
||||
Get
|
||||
Return _LarghezzaSmall
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_LarghezzaSmall = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AltezzaSmall() As Integer
|
||||
Get
|
||||
Return _AltezzaSmall
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_AltezzaSmall = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property CreaMiniature() As Boolean
|
||||
Get
|
||||
Return _CreaMiniature
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_CreaMiniature = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AggiungiScritteMiniature() As Boolean
|
||||
Get
|
||||
Return _AggiungiScritteMiniature
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_AggiungiScritteMiniature = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property NomeFileChild() As String
|
||||
Get
|
||||
Return _NomeFileChild
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_NomeFileChild = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Suffisso() As String
|
||||
Get
|
||||
Return _Suffisso
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_Suffisso = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Codice() As String
|
||||
Get
|
||||
Return _Codice
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_Codice = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property Trasparenza() As Integer
|
||||
Get
|
||||
Return _Trasparenza
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_Trasparenza = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IlFont() As String
|
||||
Get
|
||||
Return _IlFont
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_IlFont = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Grassetto() As Boolean
|
||||
Get
|
||||
Return _Grassetto
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_Grassetto = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Posizione() As String
|
||||
Get
|
||||
Return _Posizione
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_Posizione = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Allineamento() As String
|
||||
Get
|
||||
Return _Allineamento
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_Allineamento = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Margine() As Integer
|
||||
Get
|
||||
Return _Margine
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_Margine = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoAltezza() As Integer
|
||||
Get
|
||||
Return _LogoAltezza
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_LogoAltezza = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoLarghezza() As Integer
|
||||
Get
|
||||
Return _LogoLarghezza
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_LogoLarghezza = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FontColoreR() As Integer
|
||||
Get
|
||||
Return _FontColoreR
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_FontColoreR = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FontColoreG() As Integer
|
||||
Get
|
||||
Return _FontColoreG
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_FontColoreG = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FontColoreB() As Integer
|
||||
Get
|
||||
Return _FontColoreB
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_FontColoreB = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoAggiungi() As Boolean
|
||||
Get
|
||||
Return _LogoAggiungi
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_LogoAggiungi = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoNomeFile() As String
|
||||
Get
|
||||
Return _LogoNomeFile
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_LogoNomeFile = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoTrasparenza() As String
|
||||
Get
|
||||
Return _LogoTrasparenza
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_LogoTrasparenza = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoMargine() As String
|
||||
Get
|
||||
Return _LogoMargine
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_LogoMargine = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoPosizioneH() As String
|
||||
Get
|
||||
Return _LogoPosizioneH
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_LogoPosizioneH = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LogoPosizioneV() As String
|
||||
Get
|
||||
Return _LogoPosizioneV
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_LogoPosizioneV = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FotoGrandeDimOrigina() As Boolean
|
||||
Get
|
||||
Return _FotoGrandeDimOrigina
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_FotoGrandeDimOrigina = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AltezzaBig() As Integer
|
||||
Get
|
||||
Return _AltezzaBig
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_AltezzaBig = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property LarghezzaBig() As Integer
|
||||
Get
|
||||
Return _LarghezzaBig
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_LarghezzaBig = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DestDir() As DirectoryInfo
|
||||
Get
|
||||
Return _DestDir
|
||||
End Get
|
||||
Set(ByVal value As DirectoryInfo)
|
||||
_DestDir = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load diff
File diff suppressed because it is too large
Load diff
|
|
@ -65,12 +65,23 @@ namespace ImageCatalog_2
|
|||
NotifyPropertyChanged();
|
||||
}
|
||||
}
|
||||
|
||||
private string _verticalText;
|
||||
public string VerticalText
|
||||
{
|
||||
get => _verticalText;
|
||||
set
|
||||
{
|
||||
_verticalText = value;
|
||||
NotifyPropertyChanged();
|
||||
}
|
||||
}
|
||||
|
||||
private bool _uiEnabled = true;
|
||||
|
||||
public bool UiEnabled
|
||||
{
|
||||
get { return _uiEnabled; }
|
||||
get => _uiEnabled;
|
||||
set
|
||||
{
|
||||
_uiEnabled = value;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -1,252 +0,0 @@
|
|||
Imports System.Collections.Concurrent
|
||||
Imports System.IO
|
||||
Imports System.Collections.Generic
|
||||
Imports MaddoShared
|
||||
|
||||
Public Class FileHelper
|
||||
'Private dirSourceDest As Dictionary(Of FileInfo, DirectoryInfo)
|
||||
Private filesPerFolder As Integer
|
||||
Private suffix As String
|
||||
Private counterSize As Integer
|
||||
Private numerationType As Integer
|
||||
Private filter As String
|
||||
Private separateFiles As Boolean
|
||||
Private extensions As String = "*.jpg,*.png,*.gif"
|
||||
|
||||
|
||||
Public Enum numerazione
|
||||
Progressiva
|
||||
Files
|
||||
End Enum
|
||||
''' <summary>
|
||||
''' Preparazione per la separazione
|
||||
''' </summary>
|
||||
''' <param name="filesPerFolder"></param>
|
||||
''' <param name="suffix"></param>
|
||||
''' <param name="counterSize"></param>
|
||||
''' <param name="numerationType"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub New(ByVal filesPerFolder As Integer, ByVal suffix As String, ByVal counterSize As Integer, ByVal numerationType As Integer)
|
||||
Me.filesPerFolder = filesPerFolder
|
||||
Me.suffix = suffix
|
||||
Me.counterSize = counterSize
|
||||
Me.numerationType = numerationType
|
||||
Me.separateFiles = True
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' nessuna separazione
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub New()
|
||||
Me.separateFiles = False
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function GetFilesRecursive(ByVal root As DirectoryInfo, ByVal destRoot As DirectoryInfo, ByVal filter As String) As Dictionary(Of FileInfo, DirectoryInfo)
|
||||
Dim dirSourceDest As New Dictionary(Of FileInfo, DirectoryInfo)
|
||||
Dim result As New List(Of FileInfo)
|
||||
|
||||
'Dim stack As New Stack(Of DirectoryInfo)
|
||||
Dim stack As New Stack(Of KeyValuePair(Of DirectoryInfo, DirectoryInfo))
|
||||
|
||||
|
||||
Me.filter = filter
|
||||
Dim pair As New KeyValuePair(Of DirectoryInfo, DirectoryInfo)
|
||||
|
||||
|
||||
'stack.Push(root)
|
||||
stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(root, destRoot))
|
||||
|
||||
Do While (stack.Count > 0)
|
||||
Dim curDirKV As KeyValuePair(Of DirectoryInfo, DirectoryInfo) = stack.Pop
|
||||
'curDirKP = stack.Pop()
|
||||
Dim dir As DirectoryInfo = curDirKV.Key
|
||||
Dim dDir As DirectoryInfo = curDirKV.Value
|
||||
Try
|
||||
'result.AddRange(dir.GetFiles(filter, SearchOption.TopDirectoryOnly))
|
||||
' dividere file qui
|
||||
If filesPerFolder > 0 And separateFiles Then
|
||||
appendDictionary(dirSourceDest, dividiFilesInDir(dir, dDir))
|
||||
Else
|
||||
appendDictionary(dirSourceDest, getAllFilesInDir(dir, dDir))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
For Each subDirectory As DirectoryInfo In dir.GetDirectories
|
||||
stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(subDirectory, New DirectoryInfo(Path.Combine(dDir.FullName, subDirectory.Name))))
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Dim e As Exception = ex.Demystify()
|
||||
Console.WriteLine(e)
|
||||
Console.WriteLine(e.Message)
|
||||
Console.WriteLine(e.StackTrace)
|
||||
End Try
|
||||
Loop
|
||||
|
||||
Return dirSourceDest
|
||||
End Function
|
||||
|
||||
'Public Class FileData
|
||||
' Public File As FileInfo
|
||||
' Public Directory As DirectoryInfo
|
||||
' Public Sub New(newFile As FileInfo, newDirectory As DirectoryInfo)
|
||||
' File = newFile
|
||||
' Directory = newDirectory
|
||||
' End Sub
|
||||
'End Class
|
||||
|
||||
'Public Function GetFilesRecursiveParallel(ByVal root As DirectoryInfo, ByVal destRoot As DirectoryInfo, ByVal filter As String) As List(Of FileData)
|
||||
|
||||
|
||||
' Dim dirSourceDest As New ConcurrentDictionary(Of FileInfo, DirectoryInfo)
|
||||
' Dim result As New List(Of FileInfo)
|
||||
|
||||
' 'Dim stack As New Stack(Of DirectoryInfo)
|
||||
' Dim stack As New Stack(Of KeyValuePair(Of DirectoryInfo, DirectoryInfo))
|
||||
|
||||
|
||||
' Me.filter = filter
|
||||
' Dim pair As New KeyValuePair(Of DirectoryInfo, DirectoryInfo)
|
||||
|
||||
|
||||
' 'stack.Push(root)
|
||||
' stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(root, destRoot))
|
||||
|
||||
' Do While (stack.Count > 0)
|
||||
' Dim curDirKV As KeyValuePair(Of DirectoryInfo, DirectoryInfo) = stack.Pop
|
||||
' 'curDirKP = stack.Pop()
|
||||
' Dim dir As DirectoryInfo = curDirKV.Key
|
||||
' Dim dDir As DirectoryInfo = curDirKV.Value
|
||||
' Try
|
||||
' 'result.AddRange(dir.GetFiles(filter, SearchOption.TopDirectoryOnly))
|
||||
' ' dividere file qui
|
||||
' If filesPerFolder > 0 And separateFiles Then
|
||||
' AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir))
|
||||
' Else
|
||||
' AppendDictionaryConcurrent(dirSourceDest, DividiFilesInDirConcurrent(dir, dDir))
|
||||
' End If
|
||||
|
||||
' For Each subDirectory As DirectoryInfo In dir.GetDirectories
|
||||
' stack.Push(New KeyValuePair(Of DirectoryInfo, DirectoryInfo)(subDirectory, New DirectoryInfo(Path.Combine(dDir.FullName, subDirectory.Name))))
|
||||
|
||||
' Next
|
||||
' Catch ex As Exception
|
||||
' ' TODO: FARE QUALCOSA
|
||||
' End Try
|
||||
' Loop
|
||||
|
||||
' Dim resultData As New List(Of FileData)
|
||||
' resultData.AddRange(From p In dirSourceDest Select New FileData(p.Key, p.Value))
|
||||
' Return resultData
|
||||
' 'Return dirSourceDest
|
||||
'End Function
|
||||
|
||||
Public Function appendDictionary(ByVal dictA As Dictionary(Of FileInfo, DirectoryInfo), ByVal dictB As Dictionary(Of FileInfo, DirectoryInfo)) As Dictionary(Of FileInfo, DirectoryInfo)
|
||||
For Each pair As KeyValuePair(Of FileInfo, DirectoryInfo) In dictB
|
||||
dictA.Add(pair.Key, pair.Value)
|
||||
Next
|
||||
Return dictA
|
||||
End Function
|
||||
|
||||
'Public Function AppendDictionaryConcurrent(ByVal dictA As ConcurrentDictionary(Of FileInfo, DirectoryInfo), ByVal dictB As ConcurrentDictionary(Of FileInfo, DirectoryInfo)) As ConcurrentDictionary(Of FileInfo, DirectoryInfo)
|
||||
' For Each pair As KeyValuePair(Of FileInfo, DirectoryInfo) In dictB
|
||||
' dictA.TryAdd(pair.Key, pair.Value)
|
||||
' 'dictA.Add(pair.Key, pair.Value)
|
||||
' Next
|
||||
' Return dictA
|
||||
'End Function
|
||||
|
||||
Public Function getAllFilesInDir(dir As DirectoryInfo, dirDest As DirectoryInfo) As Dictionary(Of FileInfo, DirectoryInfo)
|
||||
Dim dict As New Dictionary(Of FileInfo, DirectoryInfo)
|
||||
For Each File As FileInfo In dir.GetFiles(filter)
|
||||
dict.Add(File, New DirectoryInfo(Path.Combine(dirDest.FullName, File.Name)))
|
||||
|
||||
Next
|
||||
Return dict
|
||||
End Function
|
||||
|
||||
Private Function dividiFilesInDir(dir As DirectoryInfo, dirDest As DirectoryInfo) As Dictionary(Of FileInfo, DirectoryInfo)
|
||||
Dim filesCount As Integer = dir.GetFiles(filter).Count
|
||||
Dim contaFilePerDir As Integer = 0
|
||||
Dim contaDirPerDir As Integer = 0
|
||||
Dim tempText As String = String.Empty
|
||||
Dim foldersDict As New Dictionary(Of FileInfo, DirectoryInfo)
|
||||
|
||||
Dim destDir As DirectoryInfo
|
||||
destDir = New DirectoryInfo(Path.Combine(dirDest.FullName))
|
||||
For Each file As FileInfo In dir.GetFiles(filter)
|
||||
|
||||
contaFilePerDir += 1
|
||||
|
||||
If contaFilePerDir = (contaDirPerDir * filesPerFolder) + 1 Then
|
||||
contaDirPerDir += 1
|
||||
|
||||
If numerationType = numerazione.Progressiva Then
|
||||
tempText = contaDirPerDir.ToString
|
||||
Else
|
||||
tempText = (contaDirPerDir * filesPerFolder).ToString
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 1 To (counterSize - tempText.Length)
|
||||
tempText = "0" & tempText
|
||||
Next
|
||||
destDir = New DirectoryInfo(Path.Combine(dirDest.FullName, suffix + tempText))
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not destDir.Exists Then
|
||||
destDir.Create()
|
||||
End If
|
||||
|
||||
foldersDict.Add(file, destDir)
|
||||
Next
|
||||
|
||||
Return foldersDict
|
||||
End Function
|
||||
|
||||
Private Function DividiFilesInDirConcurrent(dir As DirectoryInfo, dirDest As DirectoryInfo) As ConcurrentDictionary(Of FileInfo, DirectoryInfo)
|
||||
Dim filesCount As Integer = dir.GetFiles(filter).Count
|
||||
Dim contaFilePerDir As Integer = 0
|
||||
Dim contaDirPerDir As Integer = 0
|
||||
Dim tempText As String = String.Empty
|
||||
Dim foldersDict As New ConcurrentDictionary(Of FileInfo, DirectoryInfo)
|
||||
|
||||
Dim destDir As DirectoryInfo
|
||||
destDir = New DirectoryInfo(Path.Combine(dirDest.FullName))
|
||||
For Each file As FileInfo In dir.GetFiles(filter)
|
||||
|
||||
contaFilePerDir += 1
|
||||
|
||||
If contaFilePerDir = (contaDirPerDir * filesPerFolder) + 1 Then
|
||||
contaDirPerDir += 1
|
||||
|
||||
If numerationType = numerazione.Progressiva Then
|
||||
tempText = contaDirPerDir.ToString
|
||||
Else
|
||||
tempText = (contaDirPerDir * filesPerFolder).ToString
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 1 To (counterSize - tempText.Length)
|
||||
tempText = "0" & tempText
|
||||
Next
|
||||
destDir = New DirectoryInfo(Path.Combine(dirDest.FullName, suffix + tempText))
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not destDir.Exists Then
|
||||
destDir.Create()
|
||||
End If
|
||||
|
||||
foldersDict.TryAdd(file, destDir)
|
||||
Next
|
||||
|
||||
Return foldersDict
|
||||
End Function
|
||||
End Class
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
using System.Collections.Generic;
|
||||
using System.Drawing;
|
||||
using System.IO;
|
||||
|
||||
namespace ImageCatalog
|
||||
{
|
||||
public class LoadBuffer
|
||||
{
|
||||
public List<Image> imageList = new List<Image>();
|
||||
public List<FileInfo> picSourceList = new List<FileInfo>();
|
||||
public List<List<FileInfo>> dirSourceList = new List<List<FileInfo>>();
|
||||
}
|
||||
}
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
Imports System.Collections.Generic
|
||||
Imports System.IO
|
||||
|
||||
Public Class LoadBuffer
|
||||
Public imageList As New List(Of System.Drawing.Image)
|
||||
Public picSourceList As New List(Of FileInfo)
|
||||
Public dirSourceList As New List(Of List(Of FileInfo))
|
||||
|
||||
End Class
|
||||
1
imagecatalog/MainForm.Designer.cs
generated
1
imagecatalog/MainForm.Designer.cs
generated
|
|
@ -914,6 +914,7 @@ namespace ImageCatalog
|
|||
//
|
||||
// TextBox29
|
||||
//
|
||||
TextBox29.DataBindings.Add(new Binding("Text", bindingSource1, "VerticalText", true, DataSourceUpdateMode.OnPropertyChanged));
|
||||
TextBox29.Location = new Point(96, 75);
|
||||
TextBox29.Margin = new Padding(4, 5, 4, 5);
|
||||
TextBox29.Multiline = true;
|
||||
|
|
|
|||
|
|
@ -121,8 +121,7 @@ public partial class MainForm
|
|||
|
||||
// Private ContaFotoCuori As Integer
|
||||
// Private TaskCuori() As PicInfo
|
||||
|
||||
private XYThreadPool MyPool = new XYThreadPool();
|
||||
|
||||
private int ContaImmaginiThread;
|
||||
private int maxThreads = 15;
|
||||
private int minThreads = 5;
|
||||
|
|
@ -375,7 +374,7 @@ public partial class MainForm
|
|||
_parametriSetup.AggiornaParametro("GrandezzaVerticale", TextBox30.Text);
|
||||
_parametriSetup.AggiornaParametro("MargineVerticale", TextBox31.Text);
|
||||
_parametriSetup.AggiornaParametro("DimensioniOriginali", CheckBox15.Checked);
|
||||
_parametriSetup.AggiornaParametro("TestoVerticale", TextBox29.Text);
|
||||
_parametriSetup.AggiornaParametro("TestoVerticale", Model.VerticalText);
|
||||
_parametriSetup.AggiornaParametro("NomeMiniatura", RadioButton6.Checked);
|
||||
_parametriSetup.AggiornaParametro("DataFoto", CheckBox16.Checked);
|
||||
_parametriSetup.AggiornaParametro("NumeroFoto", CheckBox17.Checked);
|
||||
|
|
@ -463,7 +462,7 @@ public partial class MainForm
|
|||
TextBox30.Text = _parametriSetup.LeggiParametroString("GrandezzaVerticale");
|
||||
TextBox31.Text = _parametriSetup.LeggiParametroString("MargineVerticale");
|
||||
CheckBox15.Checked = _parametriSetup.LeggiParametroBoolean("DimensioniOriginali");
|
||||
TextBox29.Text = _parametriSetup.LeggiParametroString("TestoVerticale");
|
||||
Model.VerticalText = _parametriSetup.LeggiParametroString("TestoVerticale");
|
||||
RadioButton6.Checked = _parametriSetup.LeggiParametroBoolean("NomeMiniatura");
|
||||
CheckBox16.Checked = _parametriSetup.LeggiParametroBoolean("DataFoto");
|
||||
CheckBox17.Checked = _parametriSetup.LeggiParametroBoolean("NumeroFoto");
|
||||
|
|
@ -535,7 +534,7 @@ public partial class MainForm
|
|||
}
|
||||
|
||||
_picSettings.TestoFirmaStart = Model.HorizontalText;
|
||||
_picSettings.TestoFirmaStartV = TextBox29.Text;
|
||||
_picSettings.TestoFirmaStartV = Model.VerticalText;
|
||||
_picSettings.DataPartenza = DateTimePicker1.Value;
|
||||
_picSettings.TestoOrario = TextBox18.Text;
|
||||
_picSettings.AltezzaSmall = int.Parse(TextBox6.Text);
|
||||
|
|
|
|||
|
|
@ -1,167 +0,0 @@
|
|||
Imports System.IO
|
||||
|
||||
Public Class ParametriSetup
|
||||
|
||||
|
||||
Private _ElencoParametri As DataSet
|
||||
Private _NomeFileSetup As String
|
||||
|
||||
Public Sub New(ByVal FileSetup As String)
|
||||
_ElencoParametri = New DataSet
|
||||
_NomeFileSetup = FileSetup
|
||||
|
||||
If FileSetup <> "" Then
|
||||
CaricaParametriSetup()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub New()
|
||||
_ElencoParametri = New DataSet
|
||||
_NomeFileSetup = ""
|
||||
End Sub
|
||||
|
||||
Public Sub CaricaParametriSetup()
|
||||
_ElencoParametri = LeggiXmlDataSet("Setup", _NomeFileSetup, "Nome")
|
||||
End Sub
|
||||
|
||||
public sub CaricaParametriSetupStream(ByVal stream As Stream)
|
||||
_ElencoParametri = LeggiXmlDataSetStream("Setup", stream, "Nome")
|
||||
End sub
|
||||
|
||||
Public Sub SalvaParametriSetup()
|
||||
If System.IO.File.Exists(_NomeFileSetup) = True Then
|
||||
Kill(_NomeFileSetup)
|
||||
End If
|
||||
_ElencoParametri.WriteXml(_NomeFileSetup)
|
||||
End Sub
|
||||
|
||||
Public Function LeggiParametroString(ByVal NomeParametro As String) As String
|
||||
Dim Risposta As String = ""
|
||||
|
||||
Try
|
||||
Dim LElenco As DataRow() = _ElencoParametri.Tables("Setup").Select("Nome='" & NomeParametro & "'")
|
||||
|
||||
Dim LaRiga As DataRow
|
||||
For Each LaRiga In LElenco
|
||||
Risposta = LaRiga("Valore").ToString
|
||||
Next
|
||||
Catch
|
||||
Risposta = ""
|
||||
End Try
|
||||
|
||||
Return Risposta
|
||||
End Function
|
||||
|
||||
Public Function LeggiParametroBoolean(ByVal NomeParametro As String) As Boolean
|
||||
Dim Risposta As String = ""
|
||||
|
||||
Try
|
||||
Dim LElenco As DataRow() = _ElencoParametri.Tables("Setup").Select("Nome='" & NomeParametro & "'")
|
||||
|
||||
Dim LaRiga As DataRow
|
||||
For Each LaRiga In LElenco
|
||||
Risposta = LaRiga("Valore").ToString
|
||||
Next
|
||||
Catch
|
||||
Risposta = ""
|
||||
End Try
|
||||
|
||||
Select Case Risposta.ToUpper
|
||||
Case "TRUE", "OK", "SI", "1", "YES", "VERO"
|
||||
Return True
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Sub AggiornaParametro(ByVal NomeParametro As String, ByVal ValoreParametro As Object)
|
||||
Try
|
||||
If _ElencoParametri.Tables("Setup") Is Nothing Then
|
||||
Dim TabellaTmp As New DataTable("Setup")
|
||||
Dim RigaTmp As DataRow
|
||||
|
||||
Dim LaColonna As DataColumn
|
||||
LaColonna = TabellaTmp.Columns.Add("Nome", System.Type.GetType("System.String"))
|
||||
LaColonna = TabellaTmp.Columns.Add("Valore", System.Type.GetType("System.String"))
|
||||
|
||||
'* Aggiunge alla tabella tutte le righe
|
||||
RigaTmp = TabellaTmp.NewRow
|
||||
RigaTmp("Nome") = NomeParametro
|
||||
RigaTmp("Valore") = ValoreParametro
|
||||
TabellaTmp.Rows.Add(RigaTmp)
|
||||
|
||||
_ElencoParametri.Tables.Add(TabellaTmp)
|
||||
Else
|
||||
Dim LElenco As DataRow() = _ElencoParametri.Tables("Setup").Select("Nome='" & NomeParametro & "'")
|
||||
|
||||
If LElenco.Length = 0 Then
|
||||
Dim LaRiga As DataRow
|
||||
LaRiga = _ElencoParametri.Tables("Setup").NewRow
|
||||
LaRiga("Nome") = NomeParametro
|
||||
LaRiga("Valore") = ValoreParametro
|
||||
_ElencoParametri.Tables("Setup").Rows.Add(LaRiga)
|
||||
Else
|
||||
LElenco(0).Item("Valore") = ValoreParametro
|
||||
End If
|
||||
End If
|
||||
Catch
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function LeggiXmlDataTable(ByVal NomeTabella As String, ByVal NomeFileXml As String, Optional ByVal NomeColonnaChiave As String = "") As DataTable
|
||||
'* Crea e Legge il dataset dal file xml
|
||||
Dim DataSetXml As New System.Data.DataSet
|
||||
DataSetXml.ReadXml(NomeFileXml)
|
||||
|
||||
'* Aggiunge il campo chiave
|
||||
If NomeColonnaChiave <> "" Then
|
||||
DataSetXml.Tables(NomeTabella).Constraints.Add(NomeColonnaChiave, DataSetXml.Tables(NomeTabella).Columns(NomeColonnaChiave), True)
|
||||
End If
|
||||
|
||||
'* Restituisce la risposta
|
||||
Return DataSetXml.Tables(NomeTabella)
|
||||
End Function
|
||||
|
||||
Private Shared Function LeggiXmlDataSetStream(ByVal NomeTabella As String, ByVal stream As Stream, Optional ByVal NomeColonnaChiave As String = "") As DataSet
|
||||
'* Crea e Legge il dataset dal file xml
|
||||
Dim DataSetXml As New System.Data.DataSet
|
||||
'DataSetXml.ReadXml(NomeFileXml)
|
||||
DataSetXml.ReadXml(stream)
|
||||
|
||||
'* Aggiunge il campo chiave
|
||||
If NomeColonnaChiave <> "" Then
|
||||
DataSetXml.Tables(NomeTabella).Constraints.Add(NomeColonnaChiave, DataSetXml.Tables(NomeTabella).Columns(NomeColonnaChiave), True)
|
||||
End If
|
||||
|
||||
'* Restituisce la risposta
|
||||
Return DataSetXml
|
||||
End Function
|
||||
|
||||
Private Shared Function LeggiXmlDataSet(ByVal NomeTabella As String, ByVal NomeFileXml As String, Optional ByVal NomeColonnaChiave As String = "") As DataSet
|
||||
'* Crea e Legge il dataset dal file xml
|
||||
Dim DataSetXml As New System.Data.DataSet
|
||||
DataSetXml.ReadXml(NomeFileXml)
|
||||
|
||||
'* Aggiunge il campo chiave
|
||||
If NomeColonnaChiave <> "" Then
|
||||
DataSetXml.Tables(NomeTabella).Constraints.Add(NomeColonnaChiave, DataSetXml.Tables(NomeTabella).Columns(NomeColonnaChiave), True)
|
||||
End If
|
||||
|
||||
'* Restituisce la risposta
|
||||
Return DataSetXml
|
||||
End Function
|
||||
|
||||
|
||||
Public Property NomeFileSetup() As String
|
||||
Get
|
||||
Return _NomeFileSetup
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_NomeFileSetup = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
|
|
@ -1,273 +0,0 @@
|
|||
using System;
|
||||
using System.Collections;
|
||||
using System.Threading;
|
||||
|
||||
namespace ImageCatalog
|
||||
{
|
||||
public delegate void ThreadErrorHandlerDelegate(ThreadPoolWorkItem oWorkItem, Exception oError);
|
||||
|
||||
public class ThreadPoolWorkItem
|
||||
{
|
||||
public bool m_bStoreOutput = false;
|
||||
public string m_sName = "";
|
||||
public Delegate m_pMethod = null;
|
||||
public object[] m_pInput = null;
|
||||
public object m_oOutput = null;
|
||||
public Exception m_oException = null;
|
||||
|
||||
public ThreadPoolWorkItem()
|
||||
{
|
||||
}
|
||||
|
||||
public ThreadPoolWorkItem(string sName, Delegate pMethod, object[] pInput, bool bStoreOutput)
|
||||
{
|
||||
m_sName = sName;
|
||||
m_pMethod = pMethod;
|
||||
m_pInput = pInput;
|
||||
m_bStoreOutput = bStoreOutput;
|
||||
}
|
||||
}
|
||||
|
||||
public class XYThreadPool
|
||||
{
|
||||
public XYThreadPool()
|
||||
{
|
||||
m_delegateThreadErrorHandler = new ThreadErrorHandlerDelegate(OnThreadError);
|
||||
}
|
||||
|
||||
private Hashtable m_htThreads = new Hashtable(256);
|
||||
private int m_nMinThreadCount = 5;
|
||||
private int m_nMaxThreadCount = 10;
|
||||
private int m_nShutdownPause = 200;
|
||||
private int m_nServerPause = 25;
|
||||
private bool m_bContinue = false;
|
||||
private Exception m_oException = null;
|
||||
private Queue m_qInput = new Queue(1024);
|
||||
private Queue m_qOutput = new Queue(1024);
|
||||
private Delegate m_delegateThreadErrorHandler;
|
||||
|
||||
private void ThreadProc()
|
||||
{
|
||||
while (m_bContinue)
|
||||
{
|
||||
object obj = null;
|
||||
Monitor.Enter(this);
|
||||
if (m_qInput.Count > 0)
|
||||
obj = m_qInput.Dequeue();
|
||||
Monitor.Exit(this);
|
||||
if (obj is null)
|
||||
{
|
||||
bool bQuit = false;
|
||||
Monitor.Enter(this);
|
||||
if (m_htThreads.Count > m_nMinThreadCount)
|
||||
{
|
||||
m_htThreads.Remove(Thread.CurrentThread.Name);
|
||||
bQuit = true;
|
||||
}
|
||||
|
||||
Monitor.Exit(this);
|
||||
if (bQuit)
|
||||
return;
|
||||
Thread.Sleep(10 * m_nServerPause);
|
||||
}
|
||||
else
|
||||
{
|
||||
ThreadPoolWorkItem oWorkItem = (ThreadPoolWorkItem)obj;
|
||||
// oWorkItem.m_oOutput = oWorkItem.m_pMethod.DynamicInvoke(oWorkItem.m_pInput)
|
||||
try
|
||||
{
|
||||
oWorkItem.m_oOutput = oWorkItem.m_pMethod.DynamicInvoke(oWorkItem.m_pInput);
|
||||
}
|
||||
catch (Exception oBug)
|
||||
{
|
||||
if (m_delegateThreadErrorHandler is object)
|
||||
{
|
||||
try
|
||||
{
|
||||
var pInput = new object[] { oWorkItem, oBug };
|
||||
m_delegateThreadErrorHandler.DynamicInvoke(pInput);
|
||||
}
|
||||
catch
|
||||
{
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (oWorkItem.m_bStoreOutput)
|
||||
{
|
||||
Monitor.Enter(m_qOutput);
|
||||
m_qOutput.Enqueue(oWorkItem);
|
||||
Monitor.Exit(m_qOutput);
|
||||
}
|
||||
|
||||
Thread.Sleep(m_nServerPause);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
private void OnThreadError(ThreadPoolWorkItem oWorkItem, Exception oError)
|
||||
{
|
||||
if (oWorkItem is null)
|
||||
{
|
||||
m_oException = oError;
|
||||
}
|
||||
else
|
||||
{
|
||||
oWorkItem.m_oException = oError;
|
||||
}
|
||||
}
|
||||
|
||||
public void SetThreadErrorHandler(ThreadErrorHandlerDelegate pMethod)
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
m_delegateThreadErrorHandler = pMethod;
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
|
||||
public void SetServerPause(int nMilliseconds)
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
if (nMilliseconds > 9 & nMilliseconds < 101)
|
||||
m_nServerPause = nMilliseconds;
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
|
||||
public void SetShutdownPause(int nMilliseconds)
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
m_nShutdownPause = nMilliseconds;
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
|
||||
public Exception GetException()
|
||||
{
|
||||
return m_oException;
|
||||
}
|
||||
|
||||
public void InsertWorkItem(ThreadPoolWorkItem oWorkItem)
|
||||
{
|
||||
try
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
m_qInput.Enqueue(oWorkItem);
|
||||
if (m_bContinue && m_qInput.Count > m_htThreads.Count && m_htThreads.Count < m_nMaxThreadCount)
|
||||
{
|
||||
var th = new Thread(ThreadProc);
|
||||
th.Name = Guid.NewGuid().ToString();
|
||||
m_htThreads.Add(th.Name, th);
|
||||
th.Start();
|
||||
}
|
||||
}
|
||||
catch (Exception oBug)
|
||||
{
|
||||
m_oException = oBug;
|
||||
}
|
||||
finally
|
||||
{
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
}
|
||||
|
||||
public void InsertWorkItem(string sName, Delegate pMethod, object[] pArgs, bool bStoreOutput)
|
||||
{
|
||||
InsertWorkItem(new ThreadPoolWorkItem(sName, pMethod, pArgs, bStoreOutput));
|
||||
}
|
||||
|
||||
public ThreadPoolWorkItem ExtractWorkItem()
|
||||
{
|
||||
object oWorkItem = null;
|
||||
Monitor.Enter(m_qOutput);
|
||||
if (m_qOutput.Count > 0)
|
||||
oWorkItem = m_qOutput.Dequeue();
|
||||
Monitor.Exit(m_qOutput);
|
||||
if (oWorkItem is null)
|
||||
return null;
|
||||
return (ThreadPoolWorkItem)oWorkItem;
|
||||
}
|
||||
|
||||
public bool StartThreadPool(int nMinThreadCount = 5, int nMaxThreadCount = 10)
|
||||
{
|
||||
try
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
if (m_bContinue == false)
|
||||
{
|
||||
m_bContinue = true;
|
||||
if (nMinThreadCount > 0)
|
||||
{
|
||||
m_nMinThreadCount = nMinThreadCount;
|
||||
}
|
||||
|
||||
if (nMaxThreadCount > m_nMinThreadCount)
|
||||
{
|
||||
m_nMaxThreadCount = nMaxThreadCount;
|
||||
}
|
||||
else
|
||||
{
|
||||
m_nMaxThreadCount = 2 * m_nMinThreadCount;
|
||||
}
|
||||
|
||||
int i;
|
||||
var loopTo = m_nMinThreadCount;
|
||||
for (i = 1; i <= loopTo; i++)
|
||||
{
|
||||
var th = new Thread(ThreadProc);
|
||||
th.Name = Guid.NewGuid().ToString();
|
||||
m_htThreads.Add(th.Name, th);
|
||||
th.Start();
|
||||
}
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
catch (Exception oBug)
|
||||
{
|
||||
m_bContinue = false;
|
||||
m_oException = oBug;
|
||||
return false;
|
||||
}
|
||||
finally
|
||||
{
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
}
|
||||
|
||||
public void StopThreadPool()
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
m_bContinue = false;
|
||||
Thread.Sleep(Math.Max(200, m_nShutdownPause));
|
||||
if (m_nShutdownPause > 0)
|
||||
{
|
||||
var dict = m_htThreads.GetEnumerator();
|
||||
while (dict.MoveNext())
|
||||
{
|
||||
Thread th = (Thread)dict.Value;
|
||||
if (th.IsAlive)
|
||||
{
|
||||
try
|
||||
{
|
||||
th.Abort();
|
||||
}
|
||||
catch
|
||||
{
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
m_htThreads.Clear();
|
||||
m_qInput.Clear();
|
||||
// m_qOutput.Clear()
|
||||
Monitor.Exit(this);
|
||||
}
|
||||
|
||||
public int GetThreadCount()
|
||||
{
|
||||
Monitor.Enter(this);
|
||||
int nCount = m_htThreads.Count;
|
||||
Monitor.Exit(this);
|
||||
return nCount;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -1,185 +0,0 @@
|
|||
Option Explicit On
|
||||
Option Strict Off
|
||||
|
||||
Imports System.Threading
|
||||
Imports System.Collections
|
||||
|
||||
Public Delegate Sub ThreadErrorHandlerDelegate(ByVal oWorkItem As ThreadPoolWorkItem, ByVal oError As Exception)
|
||||
|
||||
Public Class ThreadPoolWorkItem
|
||||
Public m_bStoreOutput As Boolean = False
|
||||
Public m_sName As String = ""
|
||||
Public m_pMethod As [Delegate] = Nothing
|
||||
Public m_pInput As Object() = Nothing
|
||||
Public m_oOutput As Object = Nothing
|
||||
Public m_oException As Exception = Nothing
|
||||
Public Sub New()
|
||||
End Sub
|
||||
Public Sub New(ByVal sName As String, ByVal pMethod As [Delegate], ByVal pInput As Object(), ByVal bStoreOutput As Boolean)
|
||||
m_sName = sName
|
||||
m_pMethod = pMethod
|
||||
m_pInput = pInput
|
||||
m_bStoreOutput = bStoreOutput
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class XYThreadPool
|
||||
Private m_htThreads As Hashtable = New Hashtable(256)
|
||||
Private m_nMinThreadCount As Integer = 5
|
||||
Private m_nMaxThreadCount As Integer = 10
|
||||
Private m_nShutdownPause As Integer = 200
|
||||
Private m_nServerPause As Integer = 25
|
||||
Private m_bContinue As Boolean = False
|
||||
Private m_oException As Exception = Nothing
|
||||
Private m_qInput As Queue = New Queue(1024)
|
||||
Private m_qOutput As Queue = New Queue(1024)
|
||||
Private m_delegateThreadErrorHandler As [Delegate] = New ThreadErrorHandlerDelegate(AddressOf OnThreadError)
|
||||
Private Sub ThreadProc()
|
||||
While m_bContinue
|
||||
Dim obj As Object = Nothing
|
||||
Monitor.Enter(Me)
|
||||
If m_qInput.Count > 0 Then obj = m_qInput.Dequeue()
|
||||
Monitor.Exit(Me)
|
||||
If obj Is Nothing Then
|
||||
Dim bQuit As Boolean = False
|
||||
Monitor.Enter(Me)
|
||||
If m_htThreads.Count > m_nMinThreadCount Then
|
||||
m_htThreads.Remove(Thread.CurrentThread.Name)
|
||||
bQuit = True
|
||||
End If
|
||||
Monitor.Exit(Me)
|
||||
If bQuit Then Return
|
||||
Thread.Sleep(10 * m_nServerPause)
|
||||
Else
|
||||
Dim oWorkItem As ThreadPoolWorkItem = CType(obj, ThreadPoolWorkItem)
|
||||
'oWorkItem.m_oOutput = oWorkItem.m_pMethod.DynamicInvoke(oWorkItem.m_pInput)
|
||||
Try
|
||||
oWorkItem.m_oOutput = oWorkItem.m_pMethod.DynamicInvoke(oWorkItem.m_pInput)
|
||||
Catch oBug As Exception
|
||||
If Not m_delegateThreadErrorHandler Is Nothing Then
|
||||
Try
|
||||
Dim pInput As Object() = {oWorkItem, oBug}
|
||||
m_delegateThreadErrorHandler.DynamicInvoke(pInput)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End Try
|
||||
If oWorkItem.m_bStoreOutput Then
|
||||
Monitor.Enter(m_qOutput)
|
||||
m_qOutput.Enqueue(oWorkItem)
|
||||
Monitor.Exit(m_qOutput)
|
||||
End If
|
||||
Thread.Sleep(m_nServerPause)
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
Private Sub OnThreadError(ByVal oWorkItem As ThreadPoolWorkItem, ByVal oError As Exception)
|
||||
If oWorkItem Is Nothing Then
|
||||
m_oException = oError
|
||||
Else
|
||||
oWorkItem.m_oException = oError
|
||||
End If
|
||||
End Sub
|
||||
Public Sub SetThreadErrorHandler(ByVal pMethod As ThreadErrorHandlerDelegate)
|
||||
Monitor.Enter(Me)
|
||||
m_delegateThreadErrorHandler = pMethod
|
||||
Monitor.Exit(Me)
|
||||
End Sub
|
||||
Public Sub SetServerPause(ByVal nMilliseconds As Integer)
|
||||
Monitor.Enter(Me)
|
||||
If nMilliseconds > 9 And nMilliseconds < 101 Then m_nServerPause = nMilliseconds
|
||||
Monitor.Exit(Me)
|
||||
End Sub
|
||||
Public Sub SetShutdownPause(ByVal nMilliseconds As Integer)
|
||||
Monitor.Enter(Me)
|
||||
m_nShutdownPause = nMilliseconds
|
||||
Monitor.Exit(Me)
|
||||
End Sub
|
||||
Public Function GetException() As Exception
|
||||
Return m_oException
|
||||
End Function
|
||||
Public Sub InsertWorkItem(ByVal oWorkItem As ThreadPoolWorkItem)
|
||||
Try
|
||||
Monitor.Enter(Me)
|
||||
m_qInput.Enqueue(oWorkItem)
|
||||
If m_bContinue AndAlso m_qInput.Count > m_htThreads.Count AndAlso m_htThreads.Count < m_nMaxThreadCount Then
|
||||
Dim th As Thread = New Thread(AddressOf ThreadProc)
|
||||
th.Name = Guid.NewGuid.ToString()
|
||||
m_htThreads.Add(th.Name, th)
|
||||
th.Start()
|
||||
End If
|
||||
Catch oBug As Exception
|
||||
m_oException = oBug
|
||||
Finally
|
||||
Monitor.Exit(Me)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub InsertWorkItem(ByVal sName As String, ByVal pMethod As [Delegate], ByVal pArgs As Object(), ByVal bStoreOutput As Boolean)
|
||||
InsertWorkItem(New ThreadPoolWorkItem(sName, pMethod, pArgs, bStoreOutput))
|
||||
End Sub
|
||||
Public Function ExtractWorkItem() As ThreadPoolWorkItem
|
||||
Dim oWorkItem As Object = Nothing
|
||||
Monitor.Enter(m_qOutput)
|
||||
If m_qOutput.Count > 0 Then oWorkItem = m_qOutput.Dequeue()
|
||||
Monitor.Exit(m_qOutput)
|
||||
If oWorkItem Is Nothing Then Return Nothing
|
||||
Return CType(oWorkItem, ThreadPoolWorkItem)
|
||||
End Function
|
||||
Public Function StartThreadPool(Optional ByVal nMinThreadCount As Integer = 5, Optional ByVal nMaxThreadCount As Integer = 10) As Boolean
|
||||
Try
|
||||
Monitor.Enter(Me)
|
||||
If m_bContinue = False Then
|
||||
m_bContinue = True
|
||||
If nMinThreadCount > 0 Then
|
||||
m_nMinThreadCount = nMinThreadCount
|
||||
End If
|
||||
If nMaxThreadCount > m_nMinThreadCount Then
|
||||
m_nMaxThreadCount = nMaxThreadCount
|
||||
Else
|
||||
m_nMaxThreadCount = 2 * m_nMinThreadCount
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 1 To m_nMinThreadCount
|
||||
Dim th As Thread = New Thread(AddressOf ThreadProc)
|
||||
th.Name = Guid.NewGuid.ToString()
|
||||
m_htThreads.Add(th.Name, th)
|
||||
th.Start()
|
||||
Next i
|
||||
End If
|
||||
Return True
|
||||
Catch oBug As Exception
|
||||
m_bContinue = False
|
||||
m_oException = oBug
|
||||
Return False
|
||||
Finally
|
||||
Monitor.Exit(Me)
|
||||
End Try
|
||||
End Function
|
||||
Public Sub StopThreadPool()
|
||||
Monitor.Enter(Me)
|
||||
m_bContinue = False
|
||||
Thread.Sleep(Math.Max(200, m_nShutdownPause))
|
||||
If (m_nShutdownPause > 0) Then
|
||||
Dim dict As IDictionaryEnumerator = m_htThreads.GetEnumerator()
|
||||
While dict.MoveNext()
|
||||
Dim th As Thread = CType(dict.Value(), Thread)
|
||||
If th.IsAlive Then
|
||||
Try
|
||||
th.Abort()
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End While
|
||||
End If
|
||||
m_htThreads.Clear()
|
||||
m_qInput.Clear()
|
||||
' m_qOutput.Clear()
|
||||
Monitor.Exit(Me)
|
||||
End Sub
|
||||
Public Function GetThreadCount() As Integer
|
||||
Monitor.Enter(Me)
|
||||
Dim nCount As Integer = m_htThreads.Count
|
||||
Monitor.Exit(Me)
|
||||
Return nCount
|
||||
End Function
|
||||
End Class
|
||||
Loading…
Add table
Add a link
Reference in a new issue