大家好:        小弟參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=36597這篇,想要實作看看聊天室悄悄話的功能.        我在client和Server端各開一個CheckListBox想要顯示出線上的User,這樣Client端可決定他要傳給誰,Server端可決定踢誰.        下面是小弟的片段程式    //Srever端 //J開頭的Socket,表示內容是帳號 AnsiString buf; if (IsDelimiter("J",buf,1))//如果是使用者上線的話 {     buf.Delete(1,1);     CheckListBox1->Items->Add(buf); for (int u=0 ;uItems->Strings[u]; for (int i=0 ;iSocket->Connections[i]->SendText("U" L); } } } //Client端 //傳Socket的做法 AnsiString Name = LabeledEdit2->Text; //送出使用者名稱 ClientSocket1->Socket->SendText("J" Name); //收Socket的做法 if (IsDelimiter("U",buf,1)) { CheckListBox1->Items->Clear(); buf.Delete(1,1); CheckListBox1->Items->Add(buf); } 我的問題是想把Client收到更新過的user list是有Comma Text的Ansistring 放到Client的CheckListBox上面,可是出了問題! 謝謝指教 發表人 - shenglin 於 2004/06/24 17:49:54 發表人 - shenglin 於 2004/06/24 22:19:48 發表人 - shenglin 於 2004/06/24 22:23:50

大家好:        sorry佔用網路資源,我已經發現自己的錯誤了. 因為我每次要更新都先送出clear list的訊息,可是會跟傳送使用者名單混在一起.分開送出即可.修正如下.

 //Srever端
//J開頭的Socket,表示內容是帳號
AnsiString buf;
if (IsDelimiter("J",buf,1))//如果是使用者上線的話
{

for (int c=0;cSocket->Connections[c]->SendText("ListClr");  //告訴clientlist清單先清除
    }    buf.Delete(1,1);
CheckListBox1->Items->Add(buf);
for (int u=0 ;u{
AnsiString L=CheckListBox1->Items->Strings[u];
for (int i=0 ;i {
ServerSocket1->Socket->Connections[i]->SendText("U" L);
}
}
}    //Client端
//傳Socket的做法
AnsiString Name = LabeledEdit2->Text; //送出使用者名稱
ClientSocket1->Socket->SendText("J" Name);
//收Socket的做法
if (IsDelimiter("Listclr",buf,7))//先清除清單
  {
  CheckListBox1->Items->Clear();
  }
if (IsDelimiter("U",buf,1))//更新
{
//CheckListBox1->Items->Clear();
buf.Delete(1,1);
CheckListBox1->Items->Add(buf);
}    

附註:斷線的地方也要做一遍更新清單的動作,我寫的方法好像是笨笨的做法 謝謝指教