delphi不同计算机程序间通信用TServerSocket实现
来源:互联网 发布:转运公司知乎 编辑:程序博客网 时间:2024/06/05 08:25
在Delphi中,用ServerSocket与ClientSocket组件,建立TCP/IP通信非常容易。
添加方法:
菜单component->Install Packets
按Add按钮,选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets140.bpl),然后TClientSocket和TServerSocket控件就会出现在Internet页上了
1、创建2个应用程序,一个是Server,另一个是Client。
2、Server程序的窗体上放置ServerSocket组件,并设置其port属性(如:设置为5000),并将Active属性设置为True;
3、Client程序的窗体上放置ClientSocket组件,也设置其port属性,与ServerSocket组件的port属性相同,也设置为5000;设置Adress属性为Server程序所在的机器的IP地址。如果Server程序与Client程序在同一台机器上,则设置Address 为127.0.0.1 。
再放一个命令按钮,在OnClick事件中添加一行事件处理程序:
ClientSocket1.Open;
在OnConnect事件中添加事件处理程序:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.lines.add('已经建立连接...');
end;
4、Server端:利用ServerSocket1.socket.connections[i].sendtext('......')
发送文本。在OnClientRead事件中接收Client端发送来的信息:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.lines.add(socket.ReceiveText);
end;
5、Client端:利用ClientSocket1.Socket.SendText('......')
发送文本。在OnRead事件中接收Server端发送来的信息:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.lines.add(socket.ReceiveText);
end;
//发送到服务端上语句
ClientSocket1.socket.SendText(edit2.Text);
0 0
- delphi不同计算机程序间通信用TServerSocket实现
- Delphi 实现传送文件 <TServerSocket/TClientSocket>
- 用Delphi实现程序检测计算机是否连网
- 用Delphi实现程序检测计算机是否连网
- 别人 delphi socket TServerSocket
- 如何使处于不同局域网的计算机实现远程通信
- delphi安装 Tclientsocket, Tserversocket控件
- delphi安装 Tclientsocket, Tserversocket控件
- 用C++ Builder中的TServerSocket,TClientSocket来写网络通讯程序
- 用NSConnection实现不同进程间的通信
- Delphi TclientSocket和TserverSocket用法(1)
- Delphi TclientSocket和TserverSocket用法(1)
- SVI实现不同vlan间通信
- 路由器实现不同VLAN间通信
- WinSocket網絡通信之 TClientSocket & TServerSocket
- Delphi不同程序间变量的同享
- 不使用路由器来实现不同网段(子网)计算机之间通信的方法
- 不同网段的计算机之间的通信
- 极其弱势中的反弹
- 最长公共子序列
- 【Android】《第一行代码—Android》第九章总结
- 黑马程序员@java基本语句组成
- 图表组件FusionCharts v3.10.0发布【附下载】
- delphi不同计算机程序间通信用TServerSocket实现
- fastdfs安装和配置
- 16-mysql数据库优化之普通索引的创建
- 黑马程序员@数组及对数组的操作
- C++11中的小细节--字符串的原始字面量
- Visual Studio下OpenCV最完美的环境配置方法
- 机器学习Tips
- Unity中数据库建立与读写详情
- Android平台Thrift服务端开发总结