各位前輩: 小弟有一個問題請教: 專案裡有一個Main Unit,另有四個 Thread (Thread_a - Thread_d), Main Unit 要送資料給各個 Thread 處理,資料傳遞的方式要用 Queue 的方式(先進先出), 預計用到四個 Queue (Queue_a - Queue_d), 所以 Queue_a 可能 "同時" 被 Main Uint 及 Thread_a 存取,(Queue_b - Queue_d 皆有同樣問題),請問要如何處理這個問題,可否給些意見.

引言: 各位前輩: 小弟有一個問題請教: 專案裡有一個Main Unit,另有四個 Thread (Thread_a - Thread_d), Main Unit 要送資料給各個 Thread 處理,資料傳遞的方式要用 Queue 的方式(先進先出), 預計用到四個 Queue (Queue_a - Queue_d), 所以 Queue_a 可能 "同時" 被 Main Uint 及 Thread_a 存取,(Queue_b - Queue_d 皆有同樣問題),請問要如何處理這個問題,可否給些意見.

Queue的話有Head指標與Tail指標,Main Unit存入處理Head, Thread_a處理Tail,應不會衝突, 除非Main Unit與Queue都會同時讀出或同時寫入, 可用一Busy Flag的Boolean變數,用來控制這個Queue是否處理中, 如:

var inqueue:boolean;
QueuePush()
begin
   while inqueue do application.processmessage;
   inqueue:=true;
   // push process
   inQueue:=false;
end;
initialization
inqueue:=false;

以上未測試,只是提出一個想法 ～～～Delphi K.Top網站總管～～～

引言: 各位前輩: 小弟有一個問題請教: 專案裡有一個Main Unit,另有四個 Thread (Thread_a - Thread_d), Main Unit 要送資料給各個 Thread 處理,資料傳遞的方式要用 Queue 的方式(先進先出), 預計用到四個 Queue (Queue_a - Queue_d), 所以 Queue_a 可能 "同時" 被 Main Uint 及 Thread_a 存取,(Queue_b - Queue_d 皆有同樣問題),請問要如何處理這個問題,可否給些意見.

使用 Critical Section Mutex Semaphore Event 都可以用來做同步

引言: Queue的話有Head指標與Tail指標,Main Unit存入處理Head, Thread_a處理Tail,應不會衝突, 除非Main Unit與Queue都會同時讀出或同時寫入, 可用一Busy Flag的Boolean變數,用來控制這個Queue是否處理中, 如:

var inqueue:boolean;
QueuePush()
begin
   while inqueue do application.processmessage;
   inqueue:=true;
   // push process
   inQueue:=false;
end;
initialization
inqueue:=false;
[/code]
以上未測試,只是提出一個想法    ～～～Delphi K.Top網站總管～～～

請問在BCB中我要如何寫呢??