diff --git a/MainWindow.xaml.vb b/MainWindow.xaml.vb index d33e3d4..5650760 100644 --- a/MainWindow.xaml.vb +++ b/MainWindow.xaml.vb @@ -362,8 +362,8 @@ Class MainWindow ' Verifico abilitazione nesting automatico m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey) ' Recupero opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(9423, 2712, 1, m_nKeyLevel) And - EgtGetKeyOptions(9423, 2712, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(9423, 3101, 1, m_nKeyLevel) And + EgtGetKeyOptions(9423, 3101, 1, m_nKeyOptions) ' Verifico abilitazione prodotto Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE) ' Impostazione per programma OnlyFrame: solo se CUT_BASE non attivo diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index b5b5f99..22122b8 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -22,7 +22,7 @@ Imports System.Windows #End If - + @@ -62,5 +62,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/RawPhoto/Camera.vb b/RawPhoto/Camera.vb index 6641720..17cb0ed 100644 --- a/RawPhoto/Camera.vb +++ b/RawPhoto/Camera.vb @@ -421,14 +421,12 @@ Public Class Camera m_bClickOk = False m_bCorrectedImgOk = False m_bSavedBackImage = False - ' Argomento utilizzato per verificare lo stato della comunicazione - Dim sArgs As String = "7" Dim nIndTab As Integer = GetCurrentTable() Dim nIndProc As Integer = GetProcessFromCurrentTable(nIndTab) - ' Invio richiesta al processo per vedere se la comunicazione è aperta + ' Invio richiesta al processo per vedere se la comunicazione è aperta (comando 7) Try If Not m_ProcessCmgList(nIndProc - 1).HasExited Then - m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine(sArgs) + m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine("7") Else Return -2 End If @@ -446,8 +444,8 @@ Public Class Camera ReloadCameraHide(nIndProc - 1) For i As Integer = 0 To N_LOOP Thread.Sleep(1000) - ' Invio richiesta al processo per vedere se la comunicazione è aperta - m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine(sArgs) + ' Invio richiesta al processo per vedere se la comunicazione è aperta (comando 7) + m_ProcessCmgList(nIndProc - 1).StandardInput.WriteLine("7") If m_bIsRunnigProc Then Exit For Next End If @@ -813,6 +811,9 @@ Public Class Camera Private Sub KillProcesses() For i As Integer = 0 To m_ProcessCmgList.Count() - 1 Try + ' Invio comando "8" di annuncio chiusura + m_ProcessCmgList(i).StandardInput.WriteLine("8") + ' Eseguo chiusura m_ProcessCmgList(i).Kill() Catch Ex As Exception EgtOutLog(ex.Message()) diff --git a/Resources/NewIcons/Logo-OmagCut.png b/Resources/NewIcons/Logo-OmagCut.png index eaac76a..468f22a 100644 Binary files a/Resources/NewIcons/Logo-OmagCut.png and b/Resources/NewIcons/Logo-OmagCut.png differ