大家好 抱歉~剛接觸delphi不久~想問個問題~ 我想寫個網路小程式~ 有一個server對兩個client~ 現在我遇到的問題是~ 第一個client送訊息給server後~server會更新線上人數列表並回應給第一個client~ client2丟訊息給server也能更新server列表~但我想讓client2丟訊息給server後~server也同時能回個訊息給client1(更新client端的線上人數列表)~ 目前cilent1跟client2的會員列表無法同時更新~ 請問我要怎麼寫比較好~ 是否可以判斷目前有多少個thread~然後針對其中一個thrtead去傳訊? 謝謝大家 ps.我是用delphi7裡面indy提供的idtcpclient/idtcpserver~

試試在 TIdTcpServer 的 OnExecute 事件中:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  i: integer;
  it: TIdPeerThread;
begin
  for i := 0 to IdTcpServer1.Threads.LockList.Count - 1 do
  begin
    // 取得每個 Thread
    it := TIdPeerThread(IdTcpServer1.Threads.LockList.Items[i]);
    // 以下做更新列表的動作
  end;
end;

謝謝你的回答~ 嗯~我還有一些疑問~ 其實我不太會用thread~ 所以我想問一下那個LockList.Count是指不包含目前正在處理的這個thread嗎? 好比處理client2連線時~count=1(只有算client1的) 因為我嘗試去測試~可是兩個client端連線沒有辦法讓i的值變成2 ~請問我可能那邊出錯了? 還有我想請問一下~ 網路連線是不是通常寫成一次連接然後就斷線~要再傳訊息就再連線一次~ 謝謝回答~感激~ 發表人 - jimoodelphi 於 2004/06/08 00:07:33

失禮, 我錯了 您可以參考 Indy Demo 裏的 Chat demo 它用一個 TSimpleClient 來記錄每個 client 連線

嗯~謝謝你~ 我的問題有點麻煩~ 我有去找了一些範例~ 但是看不太懂或是不是delphi7的~ 可否有一些簡單的範例建議~ 我只要兩個client端能連線~一個server端~ client端丟訊息給server端~ server端能"同時"丟訊息給兩個client端~ server也能將client1端的資料接收後~丟給client2~ 如果有的話(delphi7的)~麻煩給個連結~非常感激~ 發表人 - jimoodelphi 於 2004/06/09 20:32:12

Chat Demo 就是了啊!

提問者您好:


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


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


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

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