我是用TSERVERSOCKET元件來接收client端的連線,下面的程式碼是將要求連線的各個client端相關資訊記錄在一個
listview元件上.
目前程式測試時發生一問題,就是當client端一多的時候(7,8台以上),serversocket元件就會發生漏失接收client的現象.
例如serversocket元件一開始listen後,原本有10台主機要求連線,但研判是我在ClientConnect事件中處理指令太多耗時,以致於
tserversocket元件原本要接收到１０台連線,但只真正connect到6,7台(以上測試皆為公司內部網域測試).
有想過用thread來解決此問題,但又不知從何下手,因為沒寫過thread程式,請各位高手大大們指點迷津,感恩阿!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
[code cpp]
void __fastcall TForm1::server_socket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
int nAdd;
AnsiString buff;
Application->ProcessMessages();
client_view1->Items->Add();
nAdd=client_view1->Items->Count-1;
buff=Socket->RemoteAddress;
client_view1->Items->Item[nAdd]->SubItems->Add("");
client_view1->Items->Item[nAdd]->SubItems->Add(buff);
buff=Socket->RemotePort;
client_view1->Items->Item[nAdd]->SubItems->Add(buff);
buff=DateTimeToStr(Now());
client_view1->Items->Item[nAdd]->SubItems->Add(buff);
//遞增上線數
online_host ;
host_amount->Text=show_online_host IntToStr(online_host);
//遞增上線數
}
[/code]

------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~

編輯記錄

我的程式沒有遇到這樣的問題!!  12台連線沒有問題
不過小弟建議 減少server_socket1ClientConnect
事件內的工作 會有幫助！！

------
工程師的世界太深奧了 ~ 總是有不斷的驚奇發生
在解決問題的當下 , 才能確認我的存在
在得到幫助的當下 , 才能發現我不孤單