四行コードはネットワークIPアドレスを取得します。
415 ワード
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;
DelphiXE以上のバージョンです。