网络是一个激动人心的领域，编写网络上的应用程序更是很多程序员向往的情节，然而编写网络程序需要掌握大量的网络传输协议、编程接口和WinSock32 API 函数，正因为如此，要完成从Windows程序员到Web程序员的转变不是一件易事．最近笔者成功的用C++ Buil--der 5.0 Enterprise 版编写出了网上聊天程序，特介绍如下：

　　一、 原理：网络聊天工具需要通过TCP/IP协议，因此可以把网络聊天程序分为服务器端和客户器端两部分，其中 服务器端用以把程序转换成一个虚拟的 TCP/IP 服务器. 并且和指定的客户机建立连接，在连接成功后，向指定的客户器发送和接收数据；客户器端把程序转换成一个虚拟的TCP/IP 客户器，并且向指定的服务器发出连接信号，在连接成功后，向指定的服务器发送和接收数据。在C++ Builder 5.0 环境下服务器端和客户器端的功能分别由TServerSocket控件和TClientSocket 控件加以实现。其中TCP/IP协议以包含在控件的属性中，因此只要正确填入属性，便可实现网上通讯。

　　二、具体实现：首先`在C++ builder 5.0 环境下建立一个Application ，并保存为Project1。在Form1 上添加如下控件，并设置相关属性，其中Memo2于显示对方传来的信息，其中Memo1用于显示传给对方的信息：

控件名称　　　　　　　　 属性　　　　　　　　 值

TBevel　　　　　　　　 Caption　　　　　　 Bevel1

TSpeedButton　　　　 Caption　　　　　　 SpeedButton1

TMemo　　　　　　　　 Caption　　　　　　 Memo1

TMemo　　　　　　　　 Caption　　　　　　 Memo2

TMainMenu　　　　　　 Caption　　　　　　 MainMenu1

TServerSocket　　　　 Caption　　　　　　 ServerSocket1

TClientSocket　　　　 Caption　　　　　　ClientSocket1

　　同时在 MainMenu1控件中增加 三个菜单项，其属性为

Name　　　　　　　　　　　　　　　　 Caption　　

Connect　　　　　　　　　　　　　　 连接

Disconncet　　　　　　　　　　　　　　断开

Listin　　　　　　　　　　　　　　　　监听

　　在Unit1 的Private中添加：

　　　　bool　　 IsServer;

　　　　String　　Server;

　　在Connect 的Click句柄添加如下代码：

void __fastcall TForm1::ConnectClick(TObject *Sender)

{

if (ClientSocket1->Active){ ClientSocke1t->Active = false;} // 判断是否以连接，如连接则断开连接//

if (InputQuery("Computer to connect to", "添入要连接的机器的IP地址:", Server))

{

　　 if (Server1.Length() > 0)//判断用户是否已经添入//

　　 {

　　　　ClientSocket-1>Host = Server;//设置要连接的IP地址为用户指定的IP地址值//

　　　　ClientSocket1->Active = true;//进行连接//

　　 }

}

}

　　在Listen的Click句柄添加如下代码：

void __fastcall Form1 ::ListenClick(TObject *Sender)

{

Listen->Checked = !Listen->Checked;

if (Listen->Checked)

　　 ServerSocket1->Active = true;//服务器端监听来自客户器断的信号//

else

　　ServerSocket1->Active = false;



}

　　在Disconnect 的Click句柄添加如下代码：

void __fastcall TForm1::ExitClick(TObject *Sender)

{

ServerSocket1->Close();//关闭服务器端//

ClientSocket1->Close();//关闭客户器端//

Close();

}

　　在Memo1 的KeyDown句柄添加如下代码：

void __fastcall TForm1::Memo1KeyDown(TObject *Sender, WORD &Key,

　　 TShiftState Shift)

{

if (Key == VK_RETURN)

{

　　 if (IsServer)

　　　　 {ServerSocket->Socket->Connections[0]->SendText(

　　　　 Memo1->Lines->Strings[Memo1->Lines->Count - 1]); }//作为服务器一端发送数据//

　　 else

　　 { ClientSocket->Socket->SendText(Memo1->Lines->Strings[

　　　　Memo1->Lines->Count -1]);}//作为客户器一端发送数据//

}

}

　　在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, TCustomWinSo

cket *Socket)

{

//当作为客户器一端读来自服务器一端的数据时，激发该事件//

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

}

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

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocke

t *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通过。

　　摘自《赛迪网》　孙航东/文