几行代码获取公网IP地址

2015-3-13 17:54 658 0

摘要: [delphi] view plaincopyuses msxml, RegularExpressions; function&nbs...

关键词： nbsp IdIPWatch req plaincopyuses TIdIPWatch EmptyStr function Create delphi Result

[delphi] view plaincopyuses msxml, RegularExpressions; function GetPublicIP:string; var req: IXMLHTTPRequest; begin req := CoXMLHTTP.Create; req.open('get', 'http://city.ip138.com/ip2city.asp', False, EmptyStr, EmptyStr); req.send(''); Result := TRegEx.Match(req.responseText, '[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}').Value; end; DelphiXE以上版本。 [delphi] view plaincopyuses IdIPWatch; function GetNativeIP: String; var IdIPWatch: TIdIPWatch; begin IdIPWatch := TIdIPWatch.Create(nil); try Result := IdIPWatch.LocalIP; finally IdIPWatch.Free; end; end; DelphiXE7下编写。

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除