当前位置：文江博客话题详情

如何检查套接字客户端-服务器是否在同一网络上？

发布于 2024-09-12 08:25:36 字数 122 浏览 8 评论 0原文

我正在使用套接字，为此我使用 TIdTCPClient 和 TIdTCPServer。我需要检查 TIdTCPClient 连接的 TIdTCPServer 是否在同一网络上。

我该怎么做？

在。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

迷你仙 2024-09-19 08:25:36

您需要知道客户端的子网掩码才能进行此类比较。套接字不会公开该信息，因此您必须直接询问操作系统（例如，在 Windows 上，您可以在 GetAdaptersInfo() 或 返回的列表中查找客户端连接的本地 IP >GetAdapterAddresses()）。获得掩码后，您可以用它来掩码客户端的 IP 和服务器的 IP，并查看结果值是否相同。

回复收藏 0 原文

娇女薄笑 2024-09-19 08:25:36

“同一网络”是什么意思？您可以模仿traceroute实用程序并检查有多少跳（及其路由器地址），并与预期的进行比较。

回复收藏 0 原文

芸娘子的小脾气 2024-09-19 08:25:36

感谢点击，为了解决我的情况，我只需要验证主机是否是本地主机。

解决办法：

function IsLocalHost(AHost : string) : Boolean;
var
  LStrRegexRedeLocal : string;
begin
  if LowerCase(AHost) = 'localhost' then
    result := True
  else
  begin
    LStrRegexRedeLocal := '(^10\.)|(^172\.1[6-9]\.)|(^172\.2[0-9]\.)|(^172\.3[0-1]\.)|(^192\.168\.)|(^127\.0\.0\.1)';
    result := ExecRegExpr(LStrRegexRedeLocal, AHost);
  end;
end;

Tks for hits, to solve my case I just needed to verify if the host is a local host or not.

The solution:

function IsLocalHost(AHost : string) : Boolean;
var
  LStrRegexRedeLocal : string;
begin
  if LowerCase(AHost) = 'localhost' then
    result := True
  else
  begin
    LStrRegexRedeLocal := '(^10\.)|(^172\.1[6-9]\.)|(^172\.2[0-9]\.)|(^172\.3[0-1]\.)|(^192\.168\.)|(^127\.0\.0\.1)';
    result := ExecRegExpr(LStrRegexRedeLocal, AHost);
  end;
end;

回复收藏 0 原文

~没有更多了~