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

使用Indy：

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

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

1 个答案: