delphi - 如何检测本地网络中其他设备的IP地址？

Question

我已经使用此代码检测到我的计算机的本地 IP 地址(使用套接字):

Function Ip_Local : String;
  Var Acces_Sock : TCustomIpClient;
Begin
  Acces_Sock := TCustomIpClient.Create(Nil);
  Try
    Result := Acces_Sock.LocalHostAddr
  Finally
    Acces_Sock.Free;
  End;
End; 

检测路由器的内部 LAN IP 地址以及任何 LAN 连接设备(如 DVR)(如果可能)的内部 LAN IP 地址怎么样？

Answer 1

使用 Indy:

function CsiGetRemoteIpAddress(const pHostName: string): string;
begin
  TIdStack.IncUsage;
  try
    Result := GStack.ResolveHost(pHostName);
  finally
    TIdStack.DecUsage;
  end;
end;