笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来,希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方,也就是说,它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方,也就是说,它的动作是监听以及被动接受客户端的连接请求,并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求,并与每个ClientSocket组件建立单独的连接,进行单独的通信。因此,一个服务器端可以为多个客户端服务。 设计思路
1
delphi源码TServerSocket 和TClientSocket文件传输
1
delphi源码基础的TServerSocket 和 TClientSocket文件传输
1
对Delphi类TServerSocket和TClientSocket做了修改,增加IPv6协议支持。 修改后的类名为TIPV6ServerSocket和TIPV6ClientSocket。 使用方法与原类一致,仅需要在激活Socket前设置一下IPVer属性。 里面还有使用TIPV6ServerSocket和TIPV6ClientSocket进行文本传送的简单示例。 先安装控件(源文件scktcompip6.pas), 后打开本示例程序。 如果编译提示找不到文件scktcompip6, 把控件源文件所在文件夹添加到搜索路径中即可。 提供了两个版本,低版本在Delphi6和7测试正常,高版本在DelphiXE7下测试正常。 区别就是低版本的Char类型是单字节,高版本的Char类型是双字节。
2021-08-15 10:04:39 302KB Delphi IPv6 TServerSocket TClientSocket
1
Delphi之TClientSocket和TServerSocket进行TCP长连接通讯,使用KeepALive自动发送心跳包检测断网,并实现断线重连,经测试可以及时检测到拔掉网线断网情况,具有较高的参考价值
1
Delphi之TServerSocket和TClientSocket多线程传输文字例子
2019-12-21 21:14:21 492KB Delphi Socket 多线程
1