1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
Imports System.IO
Imports System
Imports System.Diagnostics
Imports System.Threading
Imports System.ComponentModel
Imports System.Windows.Forms
Public Class frmQueue
Delegate Sub SetTextCallback(ByVal [text] As Integer)
'#
'# Buttons
'#
Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click
list_queue.Items.Remove(list_queue.SelectedItem)
End Sub
Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click
Me.Hide()
End Sub
'# STAGE 1
Private Sub btn_q_encoder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_q_encoder.Click
Dim ApplicationPath As String = Application.StartupPath ' The applications start parth
Dim encodeItems As Integer = list_queue.Items.Count ' Amount of items to encode
encodeItems = encodeItems - 1
'Start the encode process
Try
Dim params As String = list_queue.Items.Item(encodeItems)
Dim proc As New System.Diagnostics.Process
proc = System.Diagnostics.Process.Start("""" + ApplicationPath + "\hbcli.exe""", params)
If My.Settings.Priority <> "Normal" Then
Dim level As String
level = My.Settings.Priority
Select Case level
Case "Realtime"
proc.PriorityClass = ProcessPriorityClass.RealTime
Case "High"
proc.PriorityClass = ProcessPriorityClass.High
Case "Above Normal"
proc.PriorityClass = ProcessPriorityClass.AboveNormal
Case "Below Normal"
proc.PriorityClass = ProcessPriorityClass.BelowNormal
Case "Low"
proc.PriorityClass = ProcessPriorityClass.Idle
End Select
End If
Catch ex As Exception
MessageBox.Show("Unable to launch the encoder. Queue run failed.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)
MessageBox.Show(ex.ToString)
End Try
' Lets start the process monitor
hbcliMonitor = New ProcessMonitor()
Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
t.Start()
Try
' When this task is finished, remove it from the queue
list_queue.Items.RemoveAt(encodeItems)
Catch ex As Exception
' quietly ignore the error should the user try to encode with nothing on the queue by mistake.
End Try
End Sub
'# STAGE 2
Sub TheadCompletedMonitor(ByVal isRunning As Integer) Handles hbcliMonitor.ThreadComplete
Dim ApplicationPath As String = Application.StartupPath ' The applications start parth
Dim encodeItems As Integer = list_queue.Items.Count ' Amount of items to encode
encodeItems = encodeItems - 1
If encodeItems = -1 Then
MessageBox.Show("Status: Queue completed!")
Else
'Start the encode process
Try
Shell("""" + ApplicationPath + "\hbcli.exe""" + list_queue.Items.Item(encodeItems))
Catch ex As Exception
MessageBox.Show("Unable to launch the encoder. Queue run failed.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)
MessageBox.Show(ex.ToString)
End Try
' Lets start the process monitor
hbcliMonitor = New ProcessMonitor()
Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)
t.Start()
' When this task is finished, remove it from the queue
Me.SetText(encodeItems)
'MsgBox("1 Enocde Process Finished: ", isRunning)
End If
End Sub
'#
'# Trying to safely alter stuff on the worker thread here.
'#
Private Sub SetText(ByVal [text] As Integer)
If Me.list_queue.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.list_queue.Items.RemoveAt([text])
End If
End Sub
'#
'# Process Monitoring Stuff Here
'#
Dim WithEvents hbcliMonitor As ProcessMonitor
Public Class ProcessMonitor
Public isRunning As Integer = 1
Public Event ThreadComplete(ByVal isRunning As Integer)
Public Sub tmrProcCheck()
Dim isRunning As Integer
Dim process2 As Process = New Process
Dim running As Boolean = True
Dim hbProcess As Process() = Process.GetProcesses()
While running
Thread.Sleep(1000)
hbProcess = Process.GetProcesses()
running = False
Dim processArr2 As Process() = hbProcess
Dim i As Integer = 0
While i < CInt(processArr2.Length)
Dim process1 As Process = processArr2(i)
If process1.ProcessName.Equals("hbcli") Then
running = True
End If
i = i + 1
End While
End While
isRunning = 0
RaiseEvent ThreadComplete(isRunning)
End Sub
End Class
Private Sub btn_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_up.Click
Dim count As Integer = list_queue.Items.Count
Dim itemToMove As Integer = list_queue.SelectedIndex
Dim previousItem As String = ""
Dim previousItemint As Integer = 0
If (itemToMove > 0) Then
previousItemint = itemToMove - 1
previousItem = list_queue.Items.Item(previousItemint)
list_queue.Items.Item(previousItemint) = list_queue.Items.Item(itemToMove)
list_queue.Items.Item(itemToMove) = previousItem
list_queue.SelectedIndex = list_queue.SelectedIndex - 1
End If
End Sub
Private Sub btn_down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_down.Click
Dim count As Integer = list_queue.Items.Count
Dim itemToMove As Integer = list_queue.SelectedIndex
Dim itemAfter As String = ""
Dim itemAfterInt As Integer = 0
MessageBox.Show(count)
MessageBox.Show(itemToMove)
If (itemToMove < (count - 1)) Then
itemAfterInt = itemToMove + 1
itemAfter = list_queue.Items.Item(itemAfterInt)
list_queue.Items.Item(itemAfterInt) = list_queue.Items.Item(itemToMove)
list_queue.Items.Item(itemToMove) = itemAfter
list_queue.SelectedIndex = list_queue.SelectedIndex + 1
End If
End Sub
End Class
|
