局域网实时通讯工具-c++builder

计算机与信息学院《计算机网络系统实践》报告2009 年 9 月设计题目：局域网实时通讯工具 学生姓名： 学 号： 专业班级：计算机科学与技术06级4班一、设计要求1.熟悉WinSock API 主要函数的使用；2.掌握相应开发工具对Windows Socket API的封装；3.制作基于局域网的一对一网络即时通讯工具，实现基本数据的网络传输。

二、开发环境与工具Windows xp C++builder三、设计原理网络通讯的基础是套接字Socket.Socket是通信端点的一种概念抽象。

它提供了相连的各个通讯端点通过网络进行数据发送和接收机制。

Windows Sockets规范是一套开放的，支持多种协议的Windows操作系统下的网络编程API。

Socket接口是TCP/IP网络通信的API。

也就是说，Socket接口规定了许多函数和例程，程序员可以用它们来开发TCP/IP网络上的应用程序。

今天，Socket接口是TCP/IP网络通信最为通用的API之一。

Socket接口概念1.网间进程通信网间进程通信要解决的是不同主机进程间的相互通信问题。

为此，首先要解决的是网络进程标示问题。

同一主机上，不同的进程号不能惟一表示该进程。

其次，操作系统支持的网络协议众多，不同的协议的工作方式不同，地址格式也不同。

因此，网间通信还要解决多重协议的识别问题。

端口网络中可以被命名和寻址的通信端口，是操作系统可分配的一种资源。

地址网络通信中的两个进程分别在不同的机器上。

在互联网络中，两台机器可能位于不同的网络，这些网络通过互连设备连接。

因此需要三级寻址（1）某一主机可以与多个网络相联，必须指定一特定网络地址；（2）网络上每一台主机应有其惟一的地址（3）每一主机上的每一个进程应有在该主机上的惟一标志。

网络字节顺序不同的计算机存放多字节值的顺序不同，有的机器在起始地址存放地位字节，有的存高位字节。

连接两个进程间的通讯链路称为连接。

半相关网络中用一个三元组可以在全局惟一标志一个进程。

全相关一个完整的网络通信需要两个进程组成，并且只使用同一种高层协议。

2.服务方式面向连接和无连接方式面向连接服务中每一次完整的数据传输都要经过建立连接，使用连接终止连接的过程无连接服务中每个数据报都携带完整的目的地址，各数据报在系统中独立传输。

顺序差错控制流控制字节流数据报缓冲紧急数据3客户服务器模式4套接字类型流式套接字数据报式套接字原始式套接字服务器端流程图客户端流程图打开服务器设置服务器端的端口号点击监听，服务器端进入监听状态点击断开按钮，服务器与客户端断开设置相同的端口号以及服务器的IP地址打开客户端程序监听到客户端请求连接的信息与客户端连接成功向客户端发送与接收信息退出程序与客户端连接失败继续监听或者重新设置端口号再监听四 系统功能描述及软件模块划分服务器设计网络聊天的基础是TCP/IP 协议，服务器把程序转换成一个虚拟的TCP/IP 服务器，并且和指定的客户端建立连接后，成功后向指定的客户端建立连接，在连接成功后想指定的客户端发出连接信号，在连接成功后，向指定的服务器发出信号。

（1） serversocket 组件位于组件模版的internet 标签页下，使用时直接拖动Form1即可，在使用serversocket 组件时，必须设置serversocket 的端口号。

它与客户端进行通信与连接的通道，客户端必须以相同的端口号才能连接。

（2） 在serversocket 组件需要重新设置端口号时，应该首先断开与客户端的链接，然后再设置端口号再重新连接。

（3） 如果需要使用serversocket 组件发送信息，直接使用其方法sendtxt()即可，（4） 当serversocket 组件收到客户端发来的信息是，它会启用onclientread 事件。

要显示相应的内容是，需要自行处理该事件。

聊天客户端设计（1）Clientsocket 组件位于组件模版的internet 标签页下，使用时直点击连接按钮，试图与服务器端取得连接点击断开按钮，客户端与服务器端断开连接 连接成功向服务器端发送以及接受信息退出程序失败接拖动Form1即可，在使用Clientsocket组件时，必须设置Clientsocket的端口号。

这个端口号必须与服务器设置的端口号一致，否则它不能与服务器进行连接，并且需要设置连接服务器的IP地址。

（2）Clientsocket组件需要重新与其他服务器连接时，应该首先断开与原服务器的链接。

然后再设置端口号和服务器IP地址并重新连接。

在活动状态时不容许连接新的服务器地址。

（3）Clientsocket组件与服务器连接成功时，会产生OnConnect事件，可以处理该事件的相关内容。

（4）如果需要使用Clientsocket组件发送消息时，直接使用其方法sendtxt()即可。

五设计步骤服务器端通信端口void __fastcall TForm1::Label1Click(TObject *Sender){}Serversocketvoid __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){}监听//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit1->Text);ServerSocket1->Active=true;ShowMessage("正在监听客户端连接状态.....");Memo1->Lines->Clear();Memo2->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Close();ShowMessage("已经和客户端断开了连接....");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Socket->Connections[0]->SendText(Memo2->Text); // ServerSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){Memo1->Lines->Add(Socket->ReceiveText());}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ServerSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject*Sender,TCustomWinSocket *Socket){ShowMessage("客户端已经请求断开连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button6Click(TObject *Sender){Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::Label1Click(TObject *Sender){}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){}断开//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit1->Text);ServerSocket1->Active=true;ShowMessage("正在监听客户端连接状态.....");Memo1->Lines->Clear();Memo2->Lines->Clear();}------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Close();ShowMessage("已经和客户端断开了连接....");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Socket->Connections[0]->SendText(Memo2->Text); // ServerSocket1->Socket->SendText(Memo2->Text);}void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){Memo1->Lines->Add(Socket->ReceiveText());}void __fastcall TForm1::Button4Click(TObject *Sender){ServerSocket1->Active=false;Form1->Close();}void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("客户端已经请求断开连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button6Click(TObject *Sender){Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}void __fastcall TForm1::Label1Click(TObject *Sender){}void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,TCustomWinSocket *Socket){}发送//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit1->Text);ServerSocket1->Active=true;ShowMessage("正在监听客户端连接状态.....");Memo1->Lines->Clear();Memo2->Lines->Clear();}void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Close();ShowMessage("已经和客户端断开了连接....");Memo1->Clear();Memo2->Clear();}void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Socket->Connections[0]->SendText(Memo2->Text); // ServerSocket1->Socket->SendText(Memo2->Text);}void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){Memo1->Lines->Add(Socket->ReceiveText());}void __fastcall TForm1::Button4Click(TObject *Sender){ServerSocket1->Active=false;Form1->Close();}void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("客户端已经请求断开连接...");Memo1->Clear();Memo2->Clear();}void __fastcall TForm1::Button6Click(TObject *Sender){Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}void __fastcall TForm1::Label1Click(TObject *Sender){}void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){}刷新#include <vcl.h>#pragma hdrstop#include "Unit1.h"#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}void __fastcall TForm1::Button1Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit1->Text);ServerSocket1->Active=true;ShowMessage("正在监听客户端连接状态.....");Memo1->Lines->Clear();Memo2->Lines->Clear();}void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Close();ShowMessage("已经和客户端断开了连接....");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Socket->Connections[0]->SendText(Memo2->Text); // ServerSocket1->Socket->SendText(Memo2->Text);}void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){Memo1->Lines->Add(Socket->ReceiveText());}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ServerSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("客户端已经请求断开连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button6Click(TObject *Sender){Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::Label1Click(TObject *Sender){}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){}退出//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit1->Text);ServerSocket1->Active=true;ShowMessage("正在监听客户端连接状态.....");Memo1->Lines->Clear();Memo2->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Close();ShowMessage("已经和客户端断开了连接....");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Socket->Connections[0]->SendText(Memo2->Text); // ServerSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){Memo1->Lines->Add(Socket->ReceiveText());}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ServerSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("客户端已经请求断开连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button6Click(TObject *Sender){Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::Label1Click(TObject *Sender){}//---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){}接收信息void __fastcall TForm1::Label2Click(TObject *Sender){}发送信息void __fastcall TForm1::Label3Click(TObject *Sender){}客户端连接//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ClientSocket1->Port=StrToInt(Edit1->Text);ClientSocket1->Host=Edit2->Text;ClientSocket1->Active=true;ShowMessage("连接服务器成功");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Close();// ShowMessage("已经和服务器断开了连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket){ShowMessage("已经连接到"+Edit2->Text);Memo1->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ClientSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button5Click(TObject *Sender){// Edit1->Clear();// Edit2->Clear();Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经和服务器断开了连接...");}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket){Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText()); }//---------------------------------------------------------------------------断开//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ClientSocket1->Port=StrToInt(Edit1->Text);ClientSocket1->Host=Edit2->Text;ClientSocket1->Active=true;ShowMessage("连接服务器成功");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Close();// ShowMessage("已经和服务器断开了连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经连接到"+Edit2->Text);Memo1->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ClientSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button5Click(TObject *Sender){// Edit1->Clear();// Edit2->Clear();Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经和服务器断开了连接...");}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket){Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText()); }//---------------------------------------------------------------------------发送//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ClientSocket1->Port=StrToInt(Edit1->Text);ClientSocket1->Host=Edit2->Text;ClientSocket1->Active=true;ShowMessage("连接服务器成功");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Close();// ShowMessage("已经和服务器断开了连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经连接到"+Edit2->Text);Memo1->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ClientSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button5Click(TObject *Sender){// Edit1->Clear();// Edit2->Clear();Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经和服务器断开了连接...");}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket){Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText());}//---------------------------------------------------------------------------刷新//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ClientSocket1->Port=StrToInt(Edit1->Text);ClientSocket1->Host=Edit2->Text;ClientSocket1->Active=true;ShowMessage("连接服务器成功");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Close();// ShowMessage("已经和服务器断开了连接...");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Socket->SendText(Memo2->Text);}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket){ShowMessage("已经连接到"+Edit2->Text);Memo1->Lines->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button4Click(TObject *Sender){ClientSocket1->Active=false;Form1->Close();}//---------------------------------------------------------------------------void __fastcall TForm1::Button5Click(TObject *Sender){// Edit1->Clear();// Edit2->Clear();Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender, TCustomWinSocket *Socket){ShowMessage("已经和服务器断开了连接...");}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket){Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText()); }//---------------------------------------------------------------------------退出//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}void __fastcall TForm1::Button1Click(TObject *Sender){ClientSocket1->Port=StrToInt(Edit1->Text);ClientSocket1->Host=Edit2->Text;ClientSocket1->Active=true;ShowMessage("连接服务器成功");Memo1->Clear();Memo2->Clear();}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Close();// ShowMessage("已经和服务器断开了连接...");Memo1->Clear();Memo2->Clear();}void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Socket->SendText(Memo2->Text);}void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经连接到"+Edit2->Text);Memo1->Lines->Clear();}void __fastcall TForm1::Button4Click(TObject *Sender){ClientSocket1->Active=false;Form1->Close();}void __fastcall TForm1::Button5Click(TObject *Sender){// Edit1->Clear();// Edit2->Clear();Memo1->Clear();Memo1->SetFocus();Memo2->Clear();Memo2->SetFocus();}void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,TCustomWinSocket *Socket){ShowMessage("已经和服务器断开了连接...");}void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket){Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText()); }通信端口void __fastcall TForm1::Label1Click(TObject *Sender){}服务器端口void __fastcall TForm1::Label2Click(TObject *Sender){}接受的信息void __fastcall TForm1::Label3Click(TObject *Sender){}发送的信息void __fastcall TForm1::Label4Click(TObject *Sender){}六、设计结果初始时设置端口号为1000IP为10.16.30.143监听连接发送接收刷新断开退出结束运行七、软件使用说明制作基于局域网的一对一网络即时通讯工具，实现基本数据的网络传输（1）设定端口号和IP地址（2）服务器端进入监听状态客户端连接（3）成功后可发送消息（4）停止发送可点断开并推出八、参考资料C++Builder精彩编程实例集锦罗斌中国水利水电出版社C++Builder经典范例50讲王均李红玲科学出版社C++Builder6.0时尚编程百例网冠科技机械工业出版社九、验收时间及验收情况（注意，不允许提及自己的验收成绩）2009年9月10日十、设计体会计算机网络是我们的主要专业课虽然在大三我对这门课并没有什么兴趣，觉得那些程序枯燥乏味。