[1] | 1 | 'threading.ab
|
---|
| 2 |
|
---|
| 3 | Enum ThreadPriority
|
---|
| 4 | Highest = THREAD_PRIORITY_HIGHEST
|
---|
| 5 | AboveNormal = THREAD_PRIORITY_ABOVE_NORMAL
|
---|
| 6 | Normal = THREAD_PRIORITY_NORMAL
|
---|
| 7 | BelowNormal = THREAD_PRIORITY_BELOW_NORMAL
|
---|
| 8 | Lowest = THREAD_PRIORITY_LOWEST
|
---|
| 9 | End Enum
|
---|
| 10 |
|
---|
| 11 | TypeDef PTHREAD_START_ROUTINE = *Function(args As VoidPtr) As DWord
|
---|
| 12 |
|
---|
| 13 | Class Thread
|
---|
| 14 | m_hThread As HANDLE
|
---|
| 15 | m_Priority As ThreadPriority
|
---|
| 16 |
|
---|
| 17 | m_fp As PTHREAD_START_ROUTINE
|
---|
| 18 | m_args As VoidPtr
|
---|
| 19 | Public
|
---|
| 20 | Sub Thread()
|
---|
| 21 | m_hThread=0
|
---|
| 22 | m_Priority=ThreadPriority.Normal
|
---|
| 23 |
|
---|
| 24 | m_fp=0
|
---|
| 25 | End Sub
|
---|
| 26 | Sub Thread(fp As PTHREAD_START_ROUTINE, args As VoidPtr)
|
---|
| 27 | m_hThread=0
|
---|
| 28 | m_Priority=ThreadPriority.Normal
|
---|
| 29 |
|
---|
| 30 | m_fp=fp
|
---|
| 31 | m_args=args
|
---|
| 32 | End Sub
|
---|
| 33 |
|
---|
| 34 |
|
---|
| 35 | Sub Priority(value As ThreadPriority)
|
---|
| 36 | m_Priority=value
|
---|
| 37 | If m_hThread Then
|
---|
| 38 | SetThreadPriority(m_hThread, value)
|
---|
| 39 | End If
|
---|
| 40 | End Sub
|
---|
| 41 | Function Priority() As ThreadPriority
|
---|
| 42 | Return m_Priority
|
---|
| 43 | End Function
|
---|
| 44 |
|
---|
| 45 |
|
---|
| 46 | Sub Start()
|
---|
| 47 | Dim ThreadId As DWord
|
---|
| 48 | m_hThread=_beginthreadex(NULL,0,AddressOf(ThreadEntryPoint),VarPtr(This),CREATE_SUSPENDED,ThreadId)
|
---|
| 49 | SetThreadPriority(m_hThread,m_Priority)
|
---|
| 50 | Resume()
|
---|
| 51 | End Sub
|
---|
| 52 |
|
---|
| 53 | Private
|
---|
| 54 | Static Function ThreadEntryPoint(pv As VoidPtr) As DWord
|
---|
| 55 | Dim pThis As *Thread
|
---|
| 56 | pThis = pv
|
---|
| 57 | ThreadEntryPoint = pThis->ThreadStartup() As DWord
|
---|
| 58 | End Function
|
---|
| 59 |
|
---|
| 60 | Function ThreadStartup() As Long
|
---|
| 61 | '------------
|
---|
| 62 | ' 前処理
|
---|
| 63 | '------------
|
---|
| 64 |
|
---|
| 65 | 'GCにスレッド開始を通知
|
---|
| 66 | _System_GC.BeginThread(m_hThread,_System_GetSp() As *LONG_PTR)
|
---|
| 67 |
|
---|
| 68 |
|
---|
| 69 | '------------
|
---|
| 70 | '実行
|
---|
| 71 | '------------
|
---|
| 72 | ThreadStartup = Run()
|
---|
| 73 |
|
---|
| 74 |
|
---|
| 75 | '------------
|
---|
| 76 | '後処理
|
---|
| 77 | '------------
|
---|
| 78 |
|
---|
| 79 | 'GCにスレッド終了を通知
|
---|
| 80 | _System_GC.EndThread(m_hThread)
|
---|
| 81 |
|
---|
| 82 | '自身のスレッドハンドルを閉じる
|
---|
| 83 | CloseHandle(m_hThread)
|
---|
| 84 | m_hThread = 0
|
---|
| 85 |
|
---|
| 86 | End Function
|
---|
| 87 |
|
---|
| 88 | Public
|
---|
| 89 | Virtual Function Run() As Long
|
---|
| 90 | If m_fp Then
|
---|
| 91 | Run=m_fp(m_args)
|
---|
| 92 | End If
|
---|
| 93 | End Function
|
---|
| 94 |
|
---|
| 95 | Sub Suspend()
|
---|
| 96 | SuspendThread(m_hThread)
|
---|
| 97 | End Sub
|
---|
| 98 | Sub Resume()
|
---|
| 99 | ResumeThread(m_hThread)
|
---|
| 100 | End Sub
|
---|
| 101 |
|
---|
| 102 | Sub Join()
|
---|
| 103 | If m_hThread Then
|
---|
| 104 | WaitForSingleObject(m_hThread, INFINITE)
|
---|
| 105 | End If
|
---|
| 106 | End Sub
|
---|
| 107 | End Class
|
---|