TCP/IP协议的传输即面向点到点的传输方式！
创建应用程序
选择NEW菜单下的Application选项创建一个普通的应用程序
创建所需控件
首先在控件栏的Win页中选择ImageList控件和CoolBar控件再从Win栏选择ToolBar控件放置到CoolBar 控件上用鼠标右键单击ImageList控件在弹出的菜单中选择ImageList Editer选项弹出ImageList Editer对话框单击Add按钮选择幅位图在对象管理器Object Inspector中将ToolBar控件的Image属性设为ImageList用鼠标右键单击ToolBar控件选New Button选项总共创建个ToolButton在 对象管理器中将个ToolButton的ImageIndex属性分别设置为此时ImageList控件中的幅位图将会分别显示在Toolbutton上将个ToolButton控件的ShowHint属性全都设置为ture并将它们的Hint属性分别设置为监听连接断开连接更改你的昵称和退出聊天程序
然后在窗体中放置一个Edit控件Memo控件StatusBar控件和一个Label控件将Label控件的Caption属性设置为输入框
最后也是最关键的在控件栏的Internet页中选择SeverSocket控件和ClientSocket控件放置在窗体中将SeverSocket控件和ClientSocket控件的Port属性设置为SeverSocket控件是基于TCP/IP协议传输的服务器方的控件它的主要作用是用来监听其它基于TCP/IP传输计算机的连接请求并在收到连接请求时建立连接进行数据传输ClientSocket控件是基于TCP/IP传输的客户方的控件它的主要作用是向监听 TCP/IP传输的服务器发出连接请求在收到服务器的允许连接的响应后建立连接并传输数据之所以在窗体中同时创建ServerSocket和ClientSocket控件是因为应用程序既可作为服务器又可作为客户端使用
Serversocket和ClientSocket之间的连接
首先设置两个全局变量
NickName:string;
b_Client:boolean;
其中NickName用于放聊天人的名称b_Client用于表明应用程序是否作为客户端进行数据传输
在窗体Form的Oncreate事件中初始化变量代码如下
procedure TFormFormCreate(Sender:TObject);
begin
NickName:+=我的昵称;
b_Client:=ture;
end;
双击ToolButton编写服务器监听代码如下
procedure TFormToolbuttonClick(Sender:TObject);
begin
ClientSocketclose;
ServerSocketopen;
StatusBarSimpleText:=开始监听
end;
双击ToolButton编写客户的申请连接代码如下
procedure TFormToolButtonClick(Sender:TObject);
var s:string;
begin
if ClientsocketActive then
ClientSocketclose;
if InputQuery(连接到计算机要连接的计算机名称或IP地址s) then
if Length(s)> then
with ClientSocket do
begin
Host:=s;
open;
end;
end;
在对象管理器中双击ClientSocket事件页的OnConnecting事件编写处理客户等待连接请求代码如下
procedure TFormClientSocketConnecting(Sender:TObject;Socket:TCustomWinSocket);
begin
StatusBarSimpleText:=等待来自+SocketRemoteAddress+的连接允许响应;
end;
在对象管理器中双击SeverSocket事件页的OnAccept事件处理服务器响应连接事件代码如下
procedure TFormSeverSocketAccept(Sender:TObject;Socket:TCustomWinSocket);
begin
b_Client:=false;
StatusBarSimpleText:=连接到+SocketRemoteAddress;
end;
在对象管理器中双击ClientSocket事件页的OnConnect事件OnConnect事件在连接成功时被调用代码如下
procedure TFormClientSocketConnect(Sender:TObject;Socket:TCustomWinSocket);
begin
b_Client:=ture;
StatusBarSimpleText:=连接成功;
end;
ServerSocket和ClientSocket之间的数据传输
聊天的内容是通过Edit控件输入并在敲回车键后显示在Memo控件中再传输到与之连接的计算机中Edit的OnKeyDown事件代码如下
procedure TFormEditKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
if Key=VK_Return then
begin
MemoLinesAdd(NickName+:+EditText;
if b_Client then
ClientSocketSocketSendText(MemoLines[MemolinesCount])
else
ServerSocketSocketConnections[]SendText(MemoLines[MemolinesCount]);
end;
end;
在ServerSocket控件的onread事件中编写服务器接收到数据后的动作代码如下
procedure TFormServerSocketClientRead(Sender:TObject;Socket:TCustomWinSocket);
begin
MemolinesAdd(SocketReceiveText);
end;
在ClientSocket控件的onread事件中编写客户端接收到数据后的动作代码如下
procedure TFormClientSocketRead(Sender:TObject;Socket:TCustomWinSocket);
begin
MemolinesAdd(SocketReceiveText);
end;
断开Serversocket和ClientSocket之间的连接
双击ToolButton编写客户端断开的处理过程代码如下
procedure TFormToolButtonClick(Sender:TObject);
begin
ClientSocketclose;
StatusBarSimpleText:=断开连接;
end;
编写服务器响应客户端断开的处理过程代码如下
procedure TFormServerSocketClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);
begin
SeverSocketclose;
StatusBarSimpleText:=断开连接;
end;
更改聊天者的昵称
双击Toolbutton编写更改昵称代码如下
procedure TFormToolButtonClick(sender:TObject);
var
s:string;
begin
if InputQuery(更改昵称你的新昵称s) then
if Length(s)> then
NickName:=s;
end;
退出应用程序
双击Toolbutton编写退出应用程序代码如下
procedure TFormToolButtonClick(sender:TObject);
ClientSocketclose;
ServerSocketclose;
Formclose;
end;
保存并运行应用程序
最好在网上运行该程序如果没联网但你的计算机支持TCP/IP协议（可以通过网络邻居安装TCP/IP协议）你可以在你的计算机上从我的电脑中运行该应用程序的两个实例运行后将一个聊天程序作为服务器监听另一个聊天程序作为客户与服务器连接并聊天局域网中同样可以运行！！！
