用WinSock控件编写网络聊天器

来源：yesky 作者：网人 出处：巧巧读书 2006-02-07 进入讨论组

• 关 键 词：
• c++builder
• winsock控件
• internet
• tcp/ip协议
• windows

上一页 1 2 3 4 5 下一页 

　　//当用户提出连接请求后，客户端会触发OnCreate事件
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
StatusBar1-$#@62;SimpleText="连接到:"+Server;
TreeView1-$#@62;Items-$#@62;Add(TreeView1-$#@62;Selected ,Server);
Memo1-$#@62;Lines-$#@62;Clear();
//定义mouse的类型
Form1-$#@62;Cursor=crDefault ;
Edit1-$#@62;Cursor=crDefault;
Memo1-$#@62;Cursor=crDefault;
//产生一个新的监听 }
//---------------------------------------------------------------------------
//在服务器接受了客户的请求后会触发OnAccept事件
void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket)
{ Memo1-$#@62;Lines-$#@62;Clear();
IsServer=true;
StatusBar1-$#@62;SimpleText="连接到:"+Socket-$#@62;LocalHost;
TreeView1-$#@62;Items-$#@62;Add(TreeView1-$#@62;Selected ,Socket-$#@62;LocalHost);
}
//---------------------------------------------------------------------------
//断开后继续监听
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
StatusBar1-$#@62;SimpleText="正在监听...";
}
//---------------------------------------------------------------------------
//客户端关闭连接后产生的事件
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Btnlisten-$#@62;Enabled=true;
Btnconnect-$#@62;Enabled=true;
Btndisconnect-$#@62;Enabled=false;
StatusBar1-$#@62;SimpleText="";
}
//---------------------------------------------------------------------------
// 通信过程中产生错误时产生的事件
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ShowMessage("错误!!! 无法连接到服务器");
ErrorCode=0;
Btnlisten-$#@62;Enabled=true;
Btnconnect-$#@62;Enabled=true;
Btndisconnect-$#@62;Enabled=false;
StatusBar1-$#@62;SimpleText="";
//定义mouse的类型
Form1-$#@62;Cursor=crDefault ;
Edit1-$#@62;Cursor=crDefault;
Memo1-$#@62;Cursor=crDefault;
Form1-$#@62;Caption ="网络聊天器";
}
//---------------------------------------------------------------------------
//客户端接收数据
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1-$#@62;Lines-$#@62;Add(Socket-$#@62;ReceiveText());
}
//---------------------------------------------------------------------------
//服务器端接收数据
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1-$#@62;Lines-$#@62;Add(Socket-$#@62;ReceiveText());
}
//---------------------------------------------------------------------------专题:http://www.qqread.com/bcb/d322282500.html 更多内容请看网络管理实用手册、网络故障手册、网络组网专题专题，或进入讨论组讨论。

上一页 1 2 3 4 5 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：计算机短信DIY

较新的文章：读书软件做自己的