Yerel ağdaki diğer cihazların IP adreslerini nasıl tespit edebilirim?

Question

Bu kodu kullanarak bilgisayarımın yerel IP adresini zaten tespit ettim (soketleri kullanın):

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; 

Yönlendiricinin dahili LAN IP adresini ve mümkünse LAN bağlantılı bir cihazın DVR?

Answer 1

kullanma Indy: tanım gereği

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