利用CB创建用户自己的网上聊天程序

在ClientSocket1的Connect句柄添加如下代码:

void __fastcall TForm1::ClientSocket1Connect(Tobject *Sender , TCustomWinSocke
t *Socket)
{//当用户和远程服务器连接成功后，激发该事件//
StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteHost;
}

在ClientSocket1的Error句柄添加如下代码:

void __fastcall TForm1::ClientSocket1Error(Tobject *Sender,TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{ //当用户和远程服务器连接失败后，激发该事件//
Memo2->Lines->Add("Error connecting to:" + Server);
ErrorCode = 0;
}

在ClientSocket1的Read句柄添加如下代码:

void __fastcall TChatForm::ClientSocket1SeverRead(Tobject *Sender, TCustomWinSocket *Socket)
{
//当作为客户器一端读来自服务器一端的数据时，激发该事件//
Memo2->Lines->Add(Socket->ReceiveText());
}

在SeverSocket1的ClientRead句柄添加如下代码

void __fastcall TForm1::ServerSocket1ClientRead(Tobject *Sender, TCustomWinSocket *Socket)
{
//当作为客户器一端读来自服务器一端的数据时，激发该事件//
Memo2->Lines->Add(Socket->ReceiveText());
}

在SeverSocket1的Accept句柄添加如下代码

void __fastcall TForm1::ServerSocket1Accept(Tobject *Sender, TCustomWinSocket
*Socket)
{ //当服务器成功的监听到来自客户器的信号后，激发该事件//
IsServer = true;
StatusBar1->Panels->Items[0]->Text = "Connect to: " + Socket->RemoteAddress;
}

在Form1的Create句柄添加如下代码:

void __fastcall TForm1::Form1Create(Tobject *Sender)
{
　　 IsServer=false;
}

注：“//”为注释.

以上程序C++ Builder 5.0Enterprise通过。

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