- primo commit

2025-02-07 12:32:14 +01:00
parent d1910ff83a
commit 139b805055
78 changed files with 4099 additions and 0 deletions
@@ -0,0 +1,90 @@
+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