在delphi執行緒中實現訊息迴圈

2003-6-22 10:56:00

檢視評語»»»

2003-6-22 11:02:24

我參考了一下msdn,還有windows核心程式設計.

寫了乙個類來封裝這個功能,不知道對不對.

裡面使用了兩個方法,乙個使用乙個隱含窗體來處理訊息

還有乙個是直接使用thread的訊息佇列來處理,但是這個時候sendmessage無法工作,所以我自己設想了乙個方法,雖然不完全達到了要求但是我簡單測試了一下,好像還能工作.

切換兩種工作方式要修改編譯條件

使用隱含窗體來處理訊息

使用執行緒訊息佇列來處理訊息

. 2003-6-22 11:02:54

還有我想要等待執行緒開始進行訊息迴圈的時候create函式才返回.但是現在好像還沒有這樣(用乙個事件來處理).只是開始進入了threadexecute函式,執行緒的create就返回了.可能會出問題.

2003-6-23 8:55:22

通過設定 doloop屬性可以設定執行緒是否迴圈(不阻塞等待訊息),這樣派生類執行緒在迴圈做一些其他事情的同時還可以接受訊息. 例如:派生類裡面迴圈傳送緩衝區的資料,還可以響應其他執行緒傳送過來的訊息(如停止,啟動,退出,等等)

2003-8-4 10:21:18