BCB创建基于Internet的点对点Chat

在建立连接后，双方就可以在Memo1中输入谈话内容开始进行交谈了，按下Enter键后，将所在行的文本发送出去。服务器端的Socket的Connections属性返回一个数组，该数组由服务器当前活动的连接组成。

void __fastcall TForm1::Memo1KeyDown(
TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==VK_RETURN){
if(IsServer)
ServerSocket1- >Socket- >Connections[0]- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
else
ClientSocket1- >Socket- >SendText(
Memo1- >Lines- >Strings[Memo1- >Lines- >Count-1]);
}
}

在本例中我们采用非阻塞传输方式，当其中的一方进行写操作时，另一方会触发OnRead事件(客户端)或OnClientRead事件(服务器端)，这两个事件的处理程序只是将接收到的内容添加到Memo2的后面。

Memo2- >Lines- >Add(Socket- >ReceiveText());

如果在用户建立连接后单击＂断开＂钮，将断开客户端与服务器的连接，服务器端将触发OnClientDisconnect事件，而客户端则会触发OnDisconnect事件，这时服务器端应回到监听状态，等待用户的连接；而客户端将返回到连接前的状态，等待用户再次建立连接，如果有不止一个服务器的话，可以选择连接到其他的服务器上。

void __fastcall TForm1::btndisconnectClick(
TObject *Sender)
{
ClientSocket1- >Close();
}
void __fastcall TForm1::ServerSocket1ClientDisconnect(
TObject *Sender,
TCustomWinSocket *Socket)
{
StatusBar1- >SimpleText="正在监听...";
}
void __fastcall TForm1::ClientSocket1Disconnect(
TObject *Sender, TCustomWinSocket *Socket)
{
btnlisten- >Enabled=true;
btnconnect- >Enabled=true;
btndisconnect- >Enabled=false;
StatusBar1- >SimpleText="";
}

此外在客户端还应该增加错误捕获机制，当用户输入无效的服务器名或服务器端没有处于监听状态时能够及时给用户反馈信息。

void __fastcall TForm1::ClientSocke
t1Error(TObject *Sender,
TCustomWinSocket *Socket,
TErrorEvent ErrorEvent, int &ErrorCode)
{
StatusBar1- >SimpleText="无法连接到:
"+Socket- >RemoteHost;
ErrorCode=0;
}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!