Public Class ThreadData

   'Enum ThreadOperations As Integer
   '   WaitingData = 1
   '   FoundRequest = 2
   '   WritingDdf = 3
   '   ProcessingDdf = 4
   '   ReadingSvg = 5
   '   SendResult = 6
   '   Closed = 10
   'End Enum

   Public Enum ProcessStatuses As Integer
      NULL = 0
      WAITINGANSWER = 1
      ANSWERRECEIVED = 2
      TOBESTARTED = 10
   End Enum

   Private m_ProcessStatus As ProcessStatuses = ProcessStatuses.TOBESTARTED
   Public ReadOnly Property ProcessStatus As ProcessStatuses
      Get
         Return m_ProcessStatus
      End Get
   End Property
   Friend Sub SetProcessStatus(value As ProcessStatuses)
      m_ProcessStatus = value
   End Sub

   Private m_CurrRequest As ProcessArgs
   Public ReadOnly Property CurrRequest As ProcessArgs
      Get
         Return m_CurrRequest
      End Get
   End Property
   Friend Sub SetCurrRequest(value As ProcessArgs)
      m_CurrRequest = value
   End Sub

   'Private m_sDdfPath As String
   'Public ReadOnly Property sDdfPath As String
   '   Get
   '      Return m_sDdfPath
   '   End Get
   'End Property
   'Friend Sub SetDdfPath(value As String)
   '   m_sDdfPath = value
   'End Sub

   Private m_nProcResult As Integer
   Public ReadOnly Property nProcResult As Integer
      Get
         Return m_nProcResult
      End Get
   End Property
   Friend Sub SetProcResult(value As Integer)
      m_nProcResult = value
   End Sub

   'Private m_ThreadOperation As ThreadOperations
   'Public ReadOnly Property ThreadOperation As ThreadOperations
   '   Get
   '      Return m_ThreadOperation
   '   End Get
   'End Property
   'Friend Sub SetThreadOperation(value As ThreadOperations)
   '   m_ThreadOperation = value
   'End Sub

   Private m_Process As Process
   Public ReadOnly Property Process As Process
      Get
         Return m_Process
      End Get
   End Property
   Friend Sub SetProcess(value As Process)
      m_Process = value
   End Sub

   'Private m_ThreadStat As ThreadStat
   'Public ReadOnly Property ThreadStat As ThreadStat
   '   Get
   '      Return m_ThreadStat
   '   End Get
   'End Property
   'Friend Sub SetThreadStat(value As ThreadStat)
   '   m_ThreadStat = value
   'End Sub

End Class