delphi - 如何在Delphi中获取外部(公共(public))IP

Question

我需要从 Delphi 获取外部(公共(public))IP 地址。

与 www.whatismyip.com 显示的 IP 相同例如。

我怎样才能做到这一点？ Winsock 不允许这样做。

Answer 1

您可以使用这个网站:http://ipinfo.io/json 。它以 JSON 格式返回有关您当前互联网连接的信息。

在delphi中，您需要这样使用IdHTTP:IdHTTP1.Get('http://ipinfo.io/json') 它将返回一个包含所有数据的字符串。您可以使用您喜欢的 JSON 解释器，也可以使用 lkJSON，如下例所示:

json := TlkJSON.ParseText(MainEstrutura.IdHTTP1.Get('http://ipinfo.io/json')) as TlkJSONobject;

str := json.Field['ip'].Value;

希望对你有帮助。