- introdotto stato TakingRequest in ExecProcessManager per fare in modo che non risulti free mentre sta avviando un calcolo

- ridotto tempo di riavvio programma a 5 secondi
- corretto nome pc per RemoteDebug
This commit is contained in:
Emmanuele Sassi
2025-12-17 12:24:09 +01:00
parent 463f5f9fb9
commit 850bed0fdf
4 changed files with 8 additions and 4 deletions
@@ -438,6 +438,7 @@ Public Class ExecProcessManager
While Not m_bStopProcess AndAlso Not Proc.HasExited
Select Case MyThreadData.ProcessStatus
Case ThreadData.ProcessStatuses.NULL
MyThreadData.SetProcessStatus(ThreadData.ProcessStatuses.TAKINGREQUEST)
Dim NextProcessArgs As QuestionDTO = Nothing
If m_delGetNextProcessArgs IsNot Nothing Then
NextProcessArgs = m_delGetNextProcessArgs()
@@ -453,6 +454,8 @@ Public Class ExecProcessManager
Proc.StandardInput.WriteLine("#8477271#" & NextProcessArgs.sProcessArgs & "#8477271#")
Proc.StandardInput.Flush()
MyThreadData.SetProcessStatus(ThreadData.ProcessStatuses.WAITINGANSWER)
Else
MyThreadData.SetProcessStatus(ThreadData.ProcessStatuses.NULL)
End If
Case ThreadData.ProcessStatuses.WAITINGANSWER
Thread.Sleep(10)
+3 -2
View File
@@ -4,8 +4,9 @@ Public Class ThreadData
Public Enum ProcessStatuses As Integer
NULL = 0
WAITINGANSWER = 1
ANSWERRECEIVED = 2
TAKINGREQUEST = 1
WAITINGANSWER = 2
ANSWERRECEIVED = 3
TOBESTARTED = 10
End Enum
@@ -80,7 +80,7 @@ Class Application
Private Sub RestartBtn_Click(sender As Object, e As EventArgs)
'Process.Start(Application.ResourceAssembly.Location)
Quit()
Threading.Thread.Sleep(1000 * 65)
Threading.Thread.Sleep(1000 * 5)
System.Windows.Forms.Application.Restart()
End Sub
+1 -1
View File
@@ -45,7 +45,7 @@ switch ($config) {
Copy-Item "c:\EgtDev\EgwMultiEngineManager\ExtData\Tray.DataRoot.ini" $datarootdest -Force
# Uncomment the appropriate ROBOCOPY line(s) as needed
# Write-Host "Debug remoto: effettuo robocopy sync (verificare remote per cliente)"
ROBOCOPY "$directory" "\\w11-calc-01\c$\EgtProg\EgwMultiEngineManager" /MIR
ROBOCOPY "$directory" "\\w11-calc-03\c$\EgtProg\EgwMultiEngineManager" /MIR
}
default {
Write-Host "Configurazione non riconosciuta: $config"