如何检测本地网络中其他设备的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)？

Answer 1

使用印地：

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