Server端回應給Client端的問題 |
答題得分者是:andychang1690
|
Teresa_Chang
一般會員 發表:41 回覆:42 積分:16 註冊:2004-05-04 發送簡訊給我 |
我看到之前有人問過這個問題, 以下是我看到的程式碼… 但是我把這段程式碼放在我程式中, 測試後,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);
}
|
brook
資深會員 發表:57 回覆:323 積分:371 註冊:2002-07-12 發送簡訊給我 |
|
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |