C++Builder创建基于Internet点对点Chat

C++Builder创建基于Internet点对点Chat建立一新工程，创立应用程序的用户界面：

1.将组件页切换到Internet页，放一个TServerSocket组件和一个TClientSocket组件到窗体上，这样应用程序既可以是TCP/IP效劳器，也可以是TCP/IP客户。将Port属性都设为同一个值(如1000)，确定Socket之间的连接类型为NonBlocking(非堵塞方式)。

2.放两个TMemo组件到窗体上，用来分别显示双方的谈话内容，将Memo2的ReadOnly属性设为True。

3.在窗体的顶部放上一个Panel组件，在其上放三个按钮：监听(btnlisten)、连接(btnconnect)、断开(btndisconnect)，用来启动相应的操作。

4.在窗体底部放一个StatusBar组件，将其SimplePanel属性设为True,在相应的大事处理程序中转变状态条信息，让用户随时了解连接状态。

翻开头文件，在窗体类的Private段添加两个私有成员:boolIsServer;StringServer。双方通信时需同时运行Chat程序，IsServer用来确定哪个Chat程序处于效劳器端，Server用来存放效劳器的主机名。建立窗体类的构造器如下：

fastcallTForm1::TForm1(TComponent*Owner)

:TForm(Owner)

{

IsServer=false;

Server=“localhost“;

}

这里Server被缺省设为localhost，这样程序可以在没有连入Internet的单机上进展调试。在Windows子名目下你可以找到hosts.sam文件中，在该文件中已经将本机IP地址127.0.0.1定义了主机名：

localhost。

void__fastcallTForm1::FormCreate(TObject*Sender)

{

btndisconnect->Enabled=false;

}

程序运行后，假如用户按下＂监听＂钮，则将该程序设为效劳器端，这时应将TServerSocket的Active属性设为True，使效劳器自动进入监听状态。

void__fastcallTForm1::btnlistenClick(TObject*Sender)

{

ClientSocket1->Active=false;

ServerSocket1->Active=true;

StatusBar1->SimpleText=“正在监听...“;

btnlisten->Enabled=false;

btnconnect->Enabled=false;

}

当用户按下＂连接＂钮后，程序会弹出一个询问框，要求用户输入要连接的效劳器的主机名，然后建立连接。

void__fastcallTForm1::btnconnectClick(TObject*Sender)

{

if(InputQuery(“连接到效劳器“,“输入效劳器地址:“,Server)){

if(Server.Length()>0){

ClientSocket1->Host=Server;

ClientSocket1->Active=true;

btnlisten->Enabled=false;

btnconnect->Enabled=false;

btndisconnect->Enabled=true;

}

}

}

当用户提出连接恳求后，客户端会触发OnCreate大事，程序先在状态条中显示连接信息，然后将显示对方谈话内容的Memo2清空，预备开头交谈。

void__fastcallTForm1::ClientSocket1Connect(TObject*Sender,

TCustomWinSoc