delphi - 在Delphi中如何找到开放的端口？

Question

我们正在使用 Delphi TServerSocket 并希望自动分配端口。 我们如何在 Delphi 7 中找到开放的端口？

Answer 1

将TServerSocket.Port属性设置为0。操作系统将分配它找到的第一个可用端口。然后，您可以在服务器处于事件状态后读取 TServerSocket.Socket.LocalPort 属性，以找出实际分配的端口。