Delphiで外部（公開）IPを取得する方法

Question

私の外部（公開）IPアドレスをDelphiから取得する必要があります。

例えば、www.whatismyip.comで示される同じIP。

どうすればいいですか？ Winsockはこれを許可しません。

Answer 1

私はできないと思います。さて、あなたのIPアドレスが何であるかを示すサービス（例：http://www.whatismyip.com/）を呼び出して、それを応答から見つけることができます。しかし、私はあなたのPC上の何かがあなたのIPアドレスがどのように見えるかを外界に伝えることはできないと思います。

テストされていないが、私はあなたがインディでこれを行うことができると思います。これを使用する前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形式で返します。 Delphiで

あなたはIdHTTPをこの方法を使用する必要があります：IdHTTP1.Get('http://ipinfo.io/json') 、それはすべてのデータと文字列を返します。あなたが好きか、次の例としてlkJSONを使用することができますJSONインタプリタを使用することができます。

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

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

私はあなたを助け願っています。

Answer 4

これは私の作品：

外部IPアドレスで

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;