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

有关，如检测到路由器的局域网内部的IP地址，如果可能的话，任何LAN连接的设备的什么一台DVR？

Answer 1

利用Indy：

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