Emmanuele Sassi
bb16fbd02c
- commentato evento fine coda di esecuzione - aggiunta gestione standarderror - aggiunto flush dopo scrittura standardinput - aggiunto Id su Question per facilitare debug - aggiunto .Tray a file ini e log - introdotta copia DataRoot se RemoteDebug in postbuild
53 lines
1.2 KiB
VB.net
53 lines
1.2 KiB
VB.net
Imports Newtonsoft.Json
|
|
|
|
Public Class QuestionDTO
|
|
|
|
Private m_nThreadIndex As Integer
|
|
Public ReadOnly Property nThreadIndex As Integer
|
|
Get
|
|
Return m_nThreadIndex
|
|
End Get
|
|
End Property
|
|
Public Sub SetThreadIndex(nIndex As Integer)
|
|
m_nThreadIndex = nIndex
|
|
End Sub
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
Public Sub SetId(nId As Integer)
|
|
m_nId = nId
|
|
End Sub
|
|
|
|
Private m_ExecEnvironment As EXECENVIRONMENTS
|
|
Public ReadOnly Property ExecEnvironment As EXECENVIRONMENTS
|
|
Get
|
|
Return m_ExecEnvironment
|
|
End Get
|
|
End Property
|
|
|
|
Private m_Args As New Dictionary(Of String, String)
|
|
Public ReadOnly Property Args As Dictionary(Of String, String)
|
|
Get
|
|
Return m_Args
|
|
End Get
|
|
End Property
|
|
|
|
<JsonIgnore>
|
|
Public ReadOnly Property sProcessArgs As String
|
|
Get
|
|
Return JsonConvert.SerializeObject(Me, Formatting.None)
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(nId As Integer, ExecEnvironment As EXECENVIRONMENTS, Args As Dictionary(Of String, String))
|
|
m_nId = nId
|
|
m_ExecEnvironment = ExecEnvironment
|
|
m_Args = Args
|
|
End Sub
|
|
|
|
End Class
|