मैं स्थानीय नेटवर्क पर अन्य उपकरणों के आईपी पते का पता कैसे लगा सकता हूं?

Question

मैं इस कोड का उपयोग कर अपने कंप्यूटर के स्थानीय आईपी पते का पता लगाता हूं (सॉकेट का उपयोग करें):

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; 

राउटर के आंतरिक लैन आईपी पते का पता लगाने के बारे में और यदि संभव हो, तो किसी भी लैन से जुड़े उपकरण जैसे कि डीवीआर?

Answer 1

का उपयोग इंडी:

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