最近在研究TTcpServer元件，發現幾個地方，一直沒辦法了解 因為對socket的關念不是粉清楚，想請教一下先進元件裏幾段source的用意    //問題一：FetchClientSocketThread的作用 TTcpServer元件Create了一個thread(TServerSocketThread)去作listen和accept，Execute裏有一個FetchClientSocketThread，它的實作用意我一直看不懂，我測試時同一隻Client端程式，先後連上Server 3次，發現FetchClientSocketThread只有第一次連線時會跑進去 而且裏面有一段 FPoolIndex := (FPoolIndex + 1) mod FThreadPool.Count;   更不知它寫成這樣的用意是什麼，看不懂???    //問題二：TServerSocketThread.FThreadPool扮演的角色 還有一個問題就是TServerSocketThread裏有一個FThreadPool: TList;變數，但發現它只有在AddClientSocketThread才會做add,我測試時Client端連上來三次，也只始終add過一次，不知這個FThreadPool何時才會被ADD多次，它的作用是什麼??     

 
//-----------------------------------------------------------
procedure TServerSocketThread.Execute;
var
  T: TClientSocketThread;
begin
  while not Terminated and Assigned(FServerSocket) and FServerSocket.Listening do
  begin
    if FServerSocket.WaitForConnection then  //等待connect
      if not Terminated then
      begin
        T := FetchClientSocketThread; // ??這段實作看不懂，貼在下面
        if not Assigned(T) then
          T := AddClientSocketThread;//??這裏會做FThreadPool.add
        if Assigned(T) then
          T.Resume;
        Sleep(0);
      end;
  end;
end;
//--------------------------------------------------------------    function TServerSocketThread.FetchClientSocketThread: TClientSocketThread;
var
  IndexRef: Integer;
begin
  Result := nil;
  if Assigned(FServerSocket) and (FThreadPool.Count > 0) then
  begin
    IndexRef := FPoolIndex;
    repeat
      FPoolIndex := (FPoolIndex   1) mod FThreadPool.Count;  //這段用意是在做什麼??
      Result := FThreadPool[FPoolIndex];
    until (FPoolIndex = IndexRef) or Result.Suspended;
    if not Result.Suspended then
      Result := nil;
  end;
end;        

iamjsn 你好 一、FetchClientSocketThread 接收來自Client 的連線，因為是Thread 有可能有許多個client 同時連入 但是程式裡，使用輪詢處理 例： FPoolIndex := (FPoolIndex + 1) mod FThreadPool.Count;     mod 的妙用在於此，假設FThreadPool.Count=10;若有15條連線，超過FThreadPool.Count時，  就是說…它同時間內 FPoolIndex 的編號只有0~9，超過9 的，我想猜應該是不會被處理吧    二、這個應該是"連線數"-->同時在線上的client 數， 而不是"連線次數"--->client 登入幾次 一個連線，連上時…它會增加一次，換句話說，你如果同時開三、四個client 它應該會顯多個連線(三、四個)    PS:這是我用Indy 9.0 的 TCPServer /TCPClient 的心得:p 不知道有沒有一樣? < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217"> 發表人 - ddy 於 2003/03/28 21:52:33

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.