EgtPHOTOLib/UtilitySlab/Camera.vb

'----------------------------------------------------------------------------
'  EgalTech 2015-2015
'----------------------------------------------------------------------------
' File : Camera.vb       Data : 08.10.15          Versione : 1.6j1
' Contenuto : Classe Camera (gestione della macchina fotografica).
'
'
'
' Modifiche : 08.10.15 DS Creazione modulo.
'
'
'----------------------------------------------------------------------------

Imports System.Threading
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5

Public Class Camera

   Friend Const FINAL_IMAGE As String = "FinalImage.jpg"

   ' Dati
   Private m_bCameraLink As Boolean = False
   Private m_bCalcContour As Boolean = False
   Private m_nCameraCount As Integer = 0
   Private m_sCameraPath As String = String.Empty
   Private m_sCameraPath2 As String = String.Empty
   Private m_sCameraProcName As String = String.Empty
   Private m_sCameraProcName2 As String = String.Empty
   Private m_sImage As String = String.Empty
   Private m_sImage2 As String = String.Empty
   Private m_sInfo As String = String.Empty
   Private m_sInfo2 As String = String.Empty
   Private m_sResult As String = String.Empty
   Private m_sResult2 As String = String.Empty
   Private m_sContour As String = String.Empty
   Private m_sContour2 As String = String.Empty
   Private m_nThreshold As Integer = 60
   Private m_dTolerance As Double = 5
   Private m_nTimeout As Integer = 30
   Private m_sImageDir As String = String.Empty

   ' Flag per foto in esecuzione
   Friend m_bBusy As Boolean = False

   Public Function Init() As Boolean
      ' Lettura dati di configurazione da file Ini (prevista una sola macchina fotografica)
      m_bCameraLink = (GetMainPrivateProfileInt(S_GENERAL, K_CAMERALINK, 0) <> 0)
      m_nCameraCount = 1
      GetMainPrivateProfileString(S_CAMERA, K_CAM_EXEPATH, "", m_sCameraPath)
      GetMainPrivateProfileString(S_CAMERA, K_CAM_IMAGE, "", m_sImage)
      GetMainPrivateProfileString(S_CAMERA, K_CAM_INFO, "", m_sInfo)
      GetMainPrivateProfileString(S_CAMERA, K_CAM_RESULT, "", m_sResult)
      GetMainPrivateProfileString(S_CAMERA, K_CAM_CONTOUR, "", m_sContour)
      m_nThreshold = GetMainPrivateProfileInt(S_CAMERA, K_CAM_THRESHOLD, 60)
      m_dTolerance = GetMainPrivateProfileDouble(S_CAMERA, K_CAM_TOLERANCE, 5)
      m_nTimeout = GetMainPrivateProfileInt(S_CAMERA, K_CAM_TIMEOUT, 30)
      GetMainPrivateProfileString(S_GENERAL, K_IMAGEDIR, "", m_sImageDir)
      ' Verifico abilitazione riconoscimento contorno automatico del grezzo
      m_bCalcContour = GetKeyOption(KEY_OPT.AUTO_PHOTO) AndAlso
                      (GetMainPrivateProfileInt(S_GENERAL, K_CONTOURFROMCAMERA, 0) <> 0)
      ' Ricavo il nome del processo associato
      m_sCameraProcName = Path.GetFileNameWithoutExtension(m_sCameraPath)
      m_sCameraProcName2 = Path.GetFileNameWithoutExtension(m_sCameraPath2)
      ' Se camera abilitata, lancio l'esecuzione in cieco
      If m_bCameraLink Then
         If m_nCameraCount <> 2 Then
            Dim bOk As Boolean = True
            If Not CameraHide(1) Then
               bOk = False
               EgtOutLog("CameraMng not starting")
            End If
            Return bOk
         Else
            Dim bOk As Boolean = True
            If Not CameraHide(1) Then
               bOk = False
               EgtOutLog("CameraMng 1 not starting")
            End If
            If Not CameraHide(2) Then
               bOk = False
               EgtOutLog("CameraMng 2 not starting")
            End If
            Return bOk
         End If
      Else
         Return True
      End If
   End Function

   Public Function Close() As Boolean
      If m_bBusy Then Return False
      If m_bCameraLink Then
         If m_nCameraCount <> 2 Then
            KillProcess(1)
         Else
            KillProcess(1)
            KillProcess(2)
         End If
      End If
      Return True
   End Function

   Public Function GetCalcContour() As Boolean
      Return m_bCalcContour
   End Function

   Public Function GetCameraLink() As Boolean
      Return m_bCameraLink
   End Function

   Public Overridable Function GetKeyOption(nKeyOpt As Integer) As Boolean
      EgtOutLog("Camera not managed in the software code!")
      Return False
   End Function

   
   Friend ReadOnly Property ImageDir As String
      Get
         Return m_sImageDir
      End Get
   End Property

   Friend Property Threshold As Integer
      Get
         Return m_nThreshold
      End Get
      Set(value As Integer)
         ' Porto il valore nel range valido
         If value < 10 Then
            value = 10
         ElseIf value > 90 Then
            value = 90
         End If
         ' Se cambiato, aggiorno file INI
         If value <> m_nThreshold And
            WriteMainPrivateProfileString(S_CAMERA, K_CAM_THRESHOLD, DoubleToString(value, 3)) Then
            ' Aggiorno il valore corrente
            m_nThreshold = value
         End If
      End Set
   End Property

   Friend Property Tolerance As Double
      Get
         Return m_dTolerance
      End Get
      Set(value As Double)
         ' Porto il valore nel range valido
         If value < 100 * EPS_SMALL Then
            value = 100 * EPS_SMALL
         End If
         ' Se cambiato, aggiorno file INI
         If value <> m_dTolerance And
            WriteMainPrivateProfileString(S_CAMERA, K_CAM_TOLERANCE, DoubleToString(value, 3)) Then
            ' Aggiorno il valore corrente
            m_dTolerance = value
         End If
      End Set
   End Property

   Public Function CameraHide(nInd As Integer) As Boolean
      ' Lancio il programma in cieco, se già attivo lo nascondo
      Try
         Process.Start(If(nInd <> 2, m_sCameraPath, m_sCameraPath2), "0")
         Return True
      Catch ex As Exception
         Return False
      End Try
   End Function

   Public Function CameraShow(nInd As Integer) As Boolean
      ' Lancio il programma in modo visibile, se già attivo lo rendo visibile
      Try
         Process.Start(If(nInd <> 2, m_sCameraPath, m_sCameraPath2), "1")
         Return True
      Catch ex As Exception
         Return False
      End Try
   End Function

   Public Function CameraTest(nInd As Integer) As Boolean
      ' Cancello il risultato
      If File.Exists(If(nInd <> 2, m_sResult, m_sResult2)) Then
         File.Delete(If(nInd <> 2, m_sResult, m_sResult2))
      End If
      ' Lancio il programma per sapere se macchina fotografica collegata
      Try
         ' Interrogo
         Process.Start(If(nInd <> 2, m_sCameraPath, m_sCameraPath2), "3")
         ' Ciclo di attesa risultato
         Dim nMaxThick = 10 * 4
         For nThick As Integer = 0 To nMaxThick
            ' Se esiste il file di risultato
            Dim nErr = 999
            If VerifyResult(nInd, nErr) Then
               Return (nErr = 0)
            End If
            ' Aspetto 100 ms
            Thread.Sleep(100)
         Next
      Catch ex As Exception
         '
      End Try
      Return False
   End Function

   Private Function PrepareCamera() As Integer
      ' Determino la camera da utilizzare, se più di una
      Dim nInd As Integer = 1
      'If m_nCameraCount = 2 Then
      '   Dim sTabName = MAIN_TAB
      '   EgtGetTableName(sTabName)
      '   If sTabName = SECOND_TAB Then
      '      nInd = 2
      '   End If
      'End If
      ' Se gestore macchina non attivo, lo lancio in modo cieco
      If Not ProcessIsRunning(nInd) Then
         If Not CameraHide(nInd) Then
            Return 0
         End If
         ' Aspetto 5000 ms
         Thread.Sleep(5000)
      ' Altrimenti richiedo verifica di camera connessa
      Else
         If Not CameraTest(nInd) Then
            Return 0
         End If
         ' Aspetto 100 ms
         Thread.Sleep(100)
      End If
      Return nInd
   End Function

   Public Function CameraBackImage() As Boolean
      ' Verifiche preliminari
      Dim nInd As Integer = PrepareCamera()
      If nInd = 0 Then Return False
      ' Visualizzo progressbar
      m_bBusy = True
      LibMap.refStatusBarVM.SetLoadingProgress_Visibility(True)
      LibMap.refStatusBarVM.SetLoadingProgress(1)
      ' Cancellazione eventuali vecchi file rimasti
      Try
         If File.Exists(If(nInd <> 2, m_sResult, m_sResult2)) Then
            File.Delete(If(nInd <> 2, m_sResult, m_sResult2))
         End If
      Catch ex As Exception
      End Try
      ' Scatto una foto come sfondo (il programma deve essere già attivo)
      Dim bOk As Boolean = False
      Try
         Process.Start(If(nInd <> 2, m_sCameraPath, m_sCameraPath2), "4")
         bOk = WaitBackImage(nInd)
      Catch ex As Exception
         bOk = False
      End Try
      ' Nascondo progressbar
      LibMap.refStatusBarVM.SetLoadingProgress_Visibility(False)
      m_bBusy = False
      Return bOk
   End Function

   Private Function WaitBackImage(nInd As Integer) As Boolean
      ' Ciclo di ricerca foto scattata
      Dim nMaxThick = 10 * m_nTimeout
      For nThick As Integer = 0 To nMaxThick
         ' Se esiste il file di risultato
         Dim nErr = 999
         If VerifyResult(nInd, nErr) Then
            If nErr = 0 Then
               Return True
            Else
               EgtOutLog("Camera err=" & nErr.ToString())
               Return False
            End If
         ' Altrimenti aspetto
         Else
            ' Imposto ProgressBar
            Dim nProgress As Integer = CInt(nThick * 100 / nMaxThick)
            LibMap.refStatusBarVM.SetLoadingProgress(nProgress)
            ' Costringo ad aggiornare UI
            UpdateUI()
            ' Aspetto 100 ms
            Thread.Sleep(100)
         End If
      Next
      EgtOutLog("Camera generic error")
      ' Chiudo il gestore della macchina per resettarlo
      KillProcess(nInd)
      Return False
   End Function

   Public Function CameraClick() As Boolean
      ' Verifiche preliminari
      Dim nInd As Integer = PrepareCamera()
      If nInd = 0 Then Return False
      ' Visualizzo progressbar
      m_bBusy = True
      LibMap.refStatusBarVM.SetLoadingProgress_Visibility(True)
      LibMap.refStatusBarVM.SetLoadingProgress(1)
      ' Cancellazione eventuali vecchi file rimasti
      Try
         If File.Exists(If(nInd <> 2, m_sResult, m_sResult2)) Then
            File.Delete(If(nInd <> 2, m_sResult, m_sResult2))
         End If
         If File.Exists(If(nInd <> 2, m_sImage, m_sImage2)) Then
            File.Delete(If(nInd <> 2, m_sImage, m_sImage2))
         End If
         If File.Exists(If(nInd <> 2, m_sContour, m_sContour2)) Then
            File.Delete(If(nInd <> 2, m_sContour, m_sContour2))
         End If
         If File.Exists(If(nInd <> 2, m_sInfo, m_sInfo2)) Then
            File.Delete(If(nInd <> 2, m_sInfo, m_sInfo2))
         End If
      Catch ex As Exception
      End Try
      ' Scatto una foto con eventuale riconoscimento del contorno (il programma deve essere già attivo)
      Dim bOk As Boolean = False
      Dim sArgs As String = "2 0"
      If m_bCalcContour Then sArgs = " 5 0 " & m_nThreshold.ToString() & " 0"
      Try
         Process.Start(If(nInd <> 2, m_sCameraPath, m_sCameraPath2), sArgs)
         bOk = WaitPhoto(nInd)
      Catch ex As Exception
         EgtOutLog(ex.Message())
         bOk = False
      End Try
      ' Nascondo progressbar
      LibMap.refStatusBarVM.SetLoadingProgress_Visibility(False)
      m_bBusy = False
      Return bOk
   End Function

   Private Function WaitPhoto(nInd As Integer) As Boolean
      ' Ciclo di ricerca foto scattata
      Dim nMaxThick = 10 * m_nTimeout
      For nThick As Integer = 0 To nMaxThick
         ' Se esiste il file di risultato
         Dim nErr = 999
         If VerifyResult(nInd, nErr) Then
            If nErr = 0 Then
               ' Copio i file
               Dim sImageDest As String = m_sImageDir & "\" & Path.GetFileName(If(nInd <> 2, m_sImage, m_sImage2))
               Dim sInfoDest As String = Path.ChangeExtension(sImageDest, "txt")
               File.Copy(If(nInd <> 2, m_sImage, m_sImage2), sImageDest, True)
               File.Copy(If(nInd <> 2, m_sInfo, m_sInfo2), sInfoDest, True)
               ' Se richiesto il riconoscimento del contorno
               Dim sContourDest As String = String.Empty
               If m_bCalcContour Then
                  sContourDest = Path.ChangeExtension(sImageDest, "dxf")
                  File.Copy(If(nInd <> 2, m_sContour, m_sContour2), sContourDest, True)
               ' altrimenti cancello eventuale contorno presente
               Else
                  'm_MainWindow.m_CurrentProjectPageUC.RemoveContour()
               End If
               ' Lancio caricamento della foto e del contorno
               PhotoMap.refOptionPanelVM.PostPhoto(sImageDest, sContourDest)
               Return True
            Else
               EgtOutLog("Camera err=" & nErr.ToString())
               Return False
            End If
         ' Altrimenti aspetto
         Else
            ' Imposto ProgressBar
            Dim nProgress As Integer = CInt(nThick * 100 / nMaxThick)
            LibMap.refStatusBarVM.SetLoadingProgress(nProgress)
            ' Costringo ad aggiornare UI
            UpdateUI()
            ' Aspetto 100 ms
            Thread.Sleep(100)
         End If
      Next
      EgtOutLog("Camera generic error")
      ' Chiudo il gestore della macchina per resettarlo
      KillProcess(nInd)
      Return False
   End Function

   Private Function VerifyResult(nInd As Integer, ByRef nErr As Integer) As Boolean
      ' Se non esiste il file con il risultato
      If Not File.Exists(If(nInd <> 2, m_sResult, m_sResult2)) Then
         Return False
      End If
      ' Leggo il file
      Dim bOk As Boolean = False
      Try
         ' Controllo errori nel file di info
         Dim sLine As String = String.Empty
         Dim sr As StreamReader = New StreamReader(If(nInd <> 2, m_sResult, m_sResult2))
         Do While sr.Peek() > -1
            sLine = sr.ReadLine()
            sLine = sLine.Replace(" ", "")
            If sLine.StartsWith("Err=") Then
               If Int32.TryParse(sLine.Substring(4), nErr) Then
                  bOk = True
                  Exit Do
               End If
            End If
         Loop
         sr.Close()
      Catch ex As Exception
         bOk = False
      End Try
      Return bOk
   End Function

   Private Function ProcessIsRunning(nInd As Integer) As Boolean
      Dim Procs() As Process
      Procs = Process.GetProcessesByName(If(nInd <> 2, m_sCameraProcName, m_sCameraProcName2))
      Return (Procs.Length() > 0)
   End Function

   Private Sub KillProcess(nInd As Integer)
      Dim Procs() As Process
      Procs = Process.GetProcessesByName(If(nInd <> 2, m_sCameraProcName, m_sCameraProcName2))
      For i As Integer = 0 To Procs.Length() - 1
         Procs(i).Kill()
         Procs(i).WaitForExit(2000)
      Next i
    End Sub

End Class