delphi - 德尔福使用 Indy 10

Question

我正在使用 Delphi 4，并且我想创建一个标准的非阻塞套接字，而不需要混乱的 Indy 代码（Pv4 和 Pv6）。我想获取计算机的 IP 地址并能够 ping 有任何人这样做。我可以用 Indy 10 或 Indy 9 来做吗？有没有人编写代码来做这些事情并请对其进行测试。

Answer 1

Indy 很久以前就正式停止支持 Delphi 4。Delphi 5 是仍受支持的最早版本。Delphi 有自己的套接字类——TClientSocket 和 TServerSocket——它们可以在阻塞和非阻塞模式下运行。Indy 仅在阻塞模式下严格运行。

在不使用 Indy 的情况下，您可以使用 WinSock API 的gethostname和gethostbyname函数或 Win32 API 的GetAdapterAddresses或相关函数获取机器的 IP，并使用 Win32 API IcmpSendEcho函数进行 ping。