Question

delphi中使用sock或tcp/udp

我想用dephi做一个向一个服务器IP+端口发一个数据，然后服务器返回一个数据，应该怎么做，大吓们有类似源码更好，非常感谢!

Answer 1

可以使用Delphi自带的控件TTcpClient。
使用步骤：设置好主机地址和端口；响应连接事件，在连接事件中记录连接状态；响应读数据事件，显示收到的数据；调用连接方法；连接后按服务器要求的格式发送数据；完毕。

追问

能写个简单的实例吗？我用的是delphi7---非常感谢！

追答

自己先动手试试，有问题了再问别人。

追问

呵呵😊😊😊

追答

行就给分、赞同、推荐。

追问

服务器如何向客户端返值呢?

追答

这个取决于服务端的实现。比如服务端使用TTcpServer，那么它可以通过工作线程中ClientSocket来发送数据到客户端。

追问

恩，客户端与服务器间可以了，非常感谢你!我还想请教你下，我假如说有三个客户，1客户向2客户发信息，服务器怎么知道此信息是2的还是3的，然后发到2或3客户!非常感谢你!请问怎么做标识呢?

追答

不同的客户端有着不同的连接（比如前面说的ClientSocket），所以很容易区分的。
另外也可以给不同的客户端指定一个唯一标识，比如在服务端生成一个整数ID，需要给某个客户端发送数据时，根据ID先映射到对应的ClientSocket再操作。