請指點一下，討論也可以，頂也有分 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061206091917269.html
先說我一直以來的觀點,不知對錯。 ?
? ?
? 多線程的同步有三個方法，建互斥鎖，Synchronize和消息。前兩個我不說了，只說消息。 ?
? ?
? 我作的消息同步就是把需要同步的操作放到主窗體的消息響應事件中。 ?
? 即: ?
? procedure ? TfrmMain.DO_USERMSG(var ? Message: ? TMessage); ? message ? WM_USERMSG; ?
? begin ?
? ? ? //do ? something ?
? end; ?
? ?
? 每個線程在滿足條件時會給主窗體發消息。 ?
? ?
? 這樣DO_USERMSG函數是在主線程中執行的函數，應該不存在并發問題。但是實際上不是這樣的，比如把函數改為： ?
? ?
? procedure ? TfrmMain.DO_USERMSG(var ? Message: ? TMessage); ? message ? WM_USERMSG; ?
? begin ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? ? ? Memo1.Lines.Add(format("收到線程%d消息",[Message.LParam])); ?
? end; ?
? ?
? Memo1中的內容是混雜在一起的。 ?
? ?
? 我在函數中加了互斥量，問題才解決了，為什么是這樣呢，判各位指點。

線程的消息同步不是WIN系統的Postmessage ? 或 ? SendMessage ? ?
? ?
? 《WINDOWS核心編程》仔細看看，絕對值得購買。

幫頂 ? 消息是隊列。。。

同步還有臨界區的方式，但只能用在同步同一個進程的多個線程，但它的速度最快，占用資源最少。 ?
? ?
?

我不理解的主要是DO_USERMSG函數好像是并發執行的。

不是并發,但是memo處理的響應速度不及時，導致看起來像并發，界面完成一個消息的工作是需要時間的，不然Delphi的線程也不會有這段提示了： ?
? { ? Important: ? Methods ? and ? properties ? of ? objects ? in ? VCL ? or ? CLX ? can ? only ? be ? used ?
? ? ? in ? a ? method ? called ? using ? Synchronize, ? for ? example, ?
? ?
? ? ? ? ? ? ? Synchronize(UpdateCaption); ?
? ?
? ? ? and ? UpdateCaption ? could ? look ? like, ?
? ?
? ? ? ? ? procedure ? xxxx.UpdateCaption; ?
? ? ? ? ? begin ?
? ? ? ? ? ? ? Form1.Caption ? := ? 'Updated ? in ? a ? thread'; ?
? ? ? ? ? end; ? }

暈，這樣的問題才叫基礎問題？

發送消息的時候用PostMessage不用SendMessage

總結

以上是生活随笔為你收集整理的请指点一下，讨论也可以，顶也有分的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。