alfred
/
OCMachineTransferer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix the form update system (Remove Synclock).

This commit is contained in:
Captain ALM 2019-12-26 19:09:59 +00:00
parent 3536712c88
commit 6b0e64ec04
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
OCUploadDownloadServer/OCUploadDownloadServer/MainForm.vb
View File

@ -24,7 +24,7 @@ Public Partial Class MainForm
Public r_q As New Queue(Of Byte()) Public r_q As New Queue(Of Byte())
Public s_q As New Queue(Of Byte()) Public s_q As New Queue(Of Byte())
Public u_q As New Queue(Of [Delegate]) Public u_q As New Queue(Of [Delegate])
Protected vupslockobj As New Object() 'Protected vupslockobj As New Object()
Public exec As Boolean = False Public exec As Boolean = False
Public m As Mode = Mode.None Public m As Mode = Mode.None
Public stage As Integer = 0 Public stage As Integer = 0
@ -219,7 +219,8 @@ Public Partial Class MainForm
eq_vd(Sub() lblstat.Text = "Opening...") eq_vd(Sub() lblstat.Text = "Opening...")
eq_vd(Sub() pbstat.Style = ProgressBarStyle.Marquee) eq_vd(Sub() pbstat.Style = ProgressBarStyle.Marquee)
If File.Exists(filepath) Then If File.Exists(filepath) Then
eq_vd(Sub() txtbxname.Text = Path.GetFileName(filepath)) Dim filenom As String = Path.GetFileName(filepath)
eq_vd(Sub() txtbxname.Text = filenom)
eq_vd(Sub() txtbxname.DeselectAll()) eq_vd(Sub() txtbxname.DeselectAll())
unsetSafe() unsetSafe()
setCancel() setCancel()
@ -752,24 +753,24 @@ Public Partial Class MainForm
End Sub End Sub
Sub eq_vd(del As [Delegate]) Sub eq_vd(del As [Delegate])
SyncLock vupslockobj 'SyncLock vupslockobj
u_q.Enqueue(del) u_q.Enqueue(del)
End SyncLock 'End SyncLock
End Sub End Sub
Function dq_vd() As [Delegate] Function dq_vd() As [Delegate]
Dim toret As [Delegate] = Nothing Dim toret As [Delegate] = Nothing
SyncLock vupslockobj 'SyncLock vupslockobj
toret = u_q.Dequeue() toret = u_q.Dequeue()
End SyncLock 'End SyncLock
Return toret Return toret
End Function End Function
Function c_vd() As Integer Function c_vd() As Integer
Dim toret As Integer = 0 Dim toret As Integer = 0
SyncLock vupslockobj 'SyncLock vupslockobj
toret = u_q.Count toret = u_q.Count
End SyncLock 'End SyncLock
Return toret Return toret
End Function End Function
End Class End Class