获取公网ip

uses 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;

获取本地ip