我看到之前有人問過這個問題， 以下是我看到的程式碼… 但是我把這段程式碼放在我程式中， 測試後，Client端沒有收到message， 為什麼會這樣呢？ //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Num ; } void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender, TCustomWinSocket *Socket) { Num--; } void __fastcall TForm1::ServerSocket1Listen(TObject *Sender, TCustomWinSocket *Socket) { //把收到的message 回覆給 client AnsiString buf = Socket->ReceiveText(); for (int i = 0 ; i < Num ; i ) if (ServerSocket1->Socket->Connections[i]->RemoteAddress == Socket->RemoteAddress) ServerSocket1->Socket->Connections[i]->SendText(buf); }

void __fastcall TForm1::ServerSocket1Listen(TObject *Sender, TCustomWinSocket *Socket) 改成 void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) 讀資料是在這裡處理的.

Teresa_Chang：ServerSocket事件換成下面方式試試！
void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket)
{
  //取得連線者的 IP
  Memo1->Lines->Add(Socket->RemoteAddress);
  //讀取連線者傳送來的資料
  Memo1->Lines->Add(Socket->ReceiveText());
  AnsiString msg =
       "這是 Server 程式測試....\r\n本程式只是做為簡單的連線測試使用,\r\n並於連線後送出本訊息至 Client 端,\r\n然後立刻斷線!!\r\n\r\n";
  Socket->SendText(msg);
  Socket->Close();
}
請參考！

Andy Chang 發表人 - andychang1690 於 2004/09/08 21:30:50

------
Andy Chang