डेल्फी

Question

में बाहरी (सार्वजनिक) आईपी कैसे प्राप्त करें मुझे डेल्फी से अपना बाहरी (सार्वजनिक) आईपी पता प्राप्त करने की आवश्यकता है।

उदाहरण के लिए www.whatismyip.com द्वारा दिखाया गया एक ही आईपी।

मैं यह कैसे कर सकता हूं? विंसॉक इस अनुमति नहीं देता है।

Answer 1

मुझे नहीं लगता कि आप कर सकते हैं। खैर, आप कुछ सेवा कह सकते हैं जो आपको बताती है कि आपका आईपी पता क्या प्रतीत होता है, (उदा: http://www.whatismyip.com/) और प्रतिक्रिया से इसे समझें। लेकिन मुझे नहीं लगता कि आपके पीसी पर कुछ भी आपको बताएगा कि आपका आईपी पता बाहरी दुनिया में कैसा दिखता है।

untested है, लेकिन मुझे लगता है आप इंडी के साथ ऐसा कर सकते हैं: इस प्रयोग करने से पहले http://www.whatismyip.com/faq/automation.asp:

MyPublicIP := IdHTTP1.Get('http://automation.whatismyip.com/n09230945.asp'); 

पर नियमों/नीति की समीक्षा करें।

Answer 2

स्मृति से

, अपरीक्षित: http://ipinfo.io/json:

function GetMyHostAddress: string; 
var 
    http: IWinHttpRequest; 
begin 
    http := CreateOleObject('WinHttp.WinHttpRequest5.1') as IWinHttpRequest; 
    http.Open('GET', 'http://automation.whatismyip.com/n09230945.asp', False); 
    http.Send(EmptyParam); 

    if http.StatusCode = 200 then 
     Result := http.ResponseText 
    else 
     Result := ''; 
end; 

Answer 3

आप इस वेबसाइट का उपयोग कर सकते हैं। यह JSON प्रारूप में आपके वर्तमान इंटरनेट कनेक्शन के बारे में जानकारी देता है।

डेल्फी में आपको IdHTTP का उपयोग करने की आवश्यकता है: IdHTTP1.Get('http://ipinfo.io/json') और यह सभी डेटा के साथ एक स्ट्रिंग लौटाएगा। आप एक JSON दुभाषिया आप की तरह उपयोग कर सकते हैं या आप निम्नलिखित उदाहरण के रूप में उपयोग कर सकते हैं lkJSON:

json := TlkJSON.ParseText(MainEstrutura.IdHTTP1.Get('http://ipinfo.io/json')) as TlkJSONobject; 

str := json.Field['ip'].Value; 

मुझे आशा है कि आप मदद करते हैं।

Answer 4

यह मेरे लिए काम करता है:

uses JSON,IdHTTP; 
    function GetIP():String; 
    var LJsonObj : TJSONObject; 
    str:string; 
    http : TIdHttp; 
    begin 
    str:=''; 
    http:=TIdHTTP.Create(nil); 
    try 
     str:=http.Get('http://ipinfo.io/json'); 
     LJsonObj:= TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(str),0)   as TJSONObject; 
     str := LJsonObj.Get('ip').JsonValue.Value; 
     LJsonObj.Free; 
     http.Free; 
    Except 
    end; 
    result:=str; 
end; 

Answer 5

Function GetMyIP:string; 
var 
    xmlhttp:olevariant; 
    s,p:integer; 
    temp:string; 
begin 
    result:=emptystr; 
    xmlhttp:=CreateOleObject('Microsoft.XMLHTTP'); 
    try 
    xmlhttp.open('GET', 'http://www.findipinfo.com/', false); 
    xmlhttp.SetRequestHeader('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3'); 
    xmlhttp.send(null); 
    except 
    exit; 
    end; 
    if(xmlhttp.status = 200) then 
    temp:=trim(VarToStr(xmlhttp.responseText)); 
    xmlhttp:=Unassigned; 
    s:=pos('Address Is:',temp); 
    if s>0 then 
    inc(s,11) 
    else 
    exit; 
    temp:=copy(temp,s,30); 
    s:=pos('<',temp); 
    if s=0 then exit 
    else 
    dec(s); 
    result:=trim(copy(temp,1,s)); 
end;