知识大全使用TCP/IP协议实现聊天程序

Posted 2022-07-21 知

篇首语：生命之灯因热情而点燃，生命之舟因拼搏而前行。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全使用TCP/IP协议实现聊天程序相关的知识，希望对你有一定的参考价值。

使用TCP/IP协议实现聊天程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　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 TForm FormCreate(Sender:TObject);

begin

NickName:+= 我的昵称 ;

b_Client:=ture;

end;

　　双击ToolButton 编写服务器监听代码如下

procedure TForm Toolbutton Click(Sender:TObject);

begin

ClientSocket close;

ServerSocket open;

StatusBar SimpleText:= 开始监听

end;

　　双击ToolButton 编写客户的申请连接代码如下

procedure TForm ToolButton Click(Sender:TObject);

var s:string;

begin

if Clientsocket Active then

ClientSocket close;

if InputQuery( 连接到计算机要连接的计算机名称或IP地址 s) then

if Length(s)> then

with ClientSocket do

begin

Host:=s;

open;

end;

　　在对象管理器中双击ClientSocket事件页的OnConnecting事件编写处理客户等待连接请求代码如下

procedure TForm ClientSocket Connecting(Sender:TObject;Socket:TCustomWinSocket);

begin

StatusBar SimpleText:= 等待来自 +Socket RemoteAddress+ 的连接允许响应 ;

end;

　　在对象管理器中双击SeverSocket事件页的OnAccept事件处理服务器响应连接事件代码如下

procedure TForm SeverSocket Accept(Sender:TObject;Socket:TCustomWinSocket);

begin

b_Client:=false;

StatusBar SimpleText:= 连接到 +Socket RemoteAddress;

end;

　　在对象管理器中双击ClientSocket事件页的OnConnect事件 OnConnect事件在连接成功时被调用代码如下

procedure TForm ClientSocket Connect(Sender:TObject;Socket:TCustomWinSocket);

begin

b_Client:=ture;

StatusBar SimpleText:= 连接成功 ;

end;

　　 ServerSocket和ClientSocket之间的数据传输

　　聊天的内容是通过Edit控件输入并在敲回车键后显示在Memo控件中再传输到与之连接的计算机中 Edit的OnKeyDown事件代码如下

procedure TForm Edit KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);

begin

if Key=VK_Return then

begin

Memo Lines Add(NickName+ : +Edit Text ;

if b_Client then

ClientSocket Socket SendText(Memo Lines[Memo lines Count ])

else

ServerSocket Socket Connections[ ] SendText(Memo Lines[Memo lines Count ]);

end;

　　在ServerSocket控件的onread事件中编写服务器接收到数据后的动作代码如下

procedure TForm ServerSocket ClientRead(Sender:TObject;Socket:TCustomWinSocket);

begin

Memo lines Add(Socket ReceiveText);

end;

　　在ClientSocket控件的onread事件中编写客户端接收到数据后的动作代码如下

procedure TForm ClientSocket Read(Sender:TObject;Socket:TCustomWinSocket);

begin

Memo lines Add(Socket ReceiveText);

end;

　　 断开Serversocket和ClientSocket之间的连接

　　双击ToolButton 编写客户端断开的处理过程代码如下

procedure TForm ToolButton Click(Sender:TObject);

begin

ClientSocket close;

StatusBar SimpleText:= 断开连接 ;

end;

　　编写服务器响应客户端断开的处理过程代码如下

procedure TForm ServerSocket ClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);

begin

SeverSocket close;

StatusBar SimpleText:= 断开连接 ;

end;

　　 更改聊天者的昵称

　　双击Toolbutton 编写更改昵称代码如下

procedure TForm ToolButton Click(sender:TObject);

var

s:string;

begin

if InputQuery( 更改昵称你的新昵称 s) then

if Length(s)> then

NickName:=s;

end;

　　 退出应用程序

　　双击Toolbutton 编写退出应用程序代码如下

procedure TForm ToolButton Click(sender:TObject);

ClientSocket close;

ServerSocket close;

Form close;

end;

　　 保存并运行应用程序

cha138/Article/program/Delphi/201311/25042

知识大全 使用TCP/IP协议实现聊天程序

知识大全使用TCP/IP协议实现聊天程序