Delphi获取公网IP地址函数

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2011-08-04 21:49:59

通过HHTP方式连接ip138网站来得到本机的公网IP地址代码如下,很简单就是获取下源码,得到IP字符!下列函数网上收集!

uses IdHTTP;

function GetPublicIP: string;
var
  strIP, URL: string;
  iStart, iEnd: Integer;
  MyIdHTTP: TIdHTTP;
begin
  Result := '';
  MyIdHTTP := TIdHTTP.Create(nil);
  try
    try
      URL := MyIdHTTP.Get('http://www.ip138.com/ip2city.asp');
    except
    end;
  finally
    MyIdHTTP.Free;
  end;

  if Length(URL) <> 0 then
  begin
    iStart := Pos('[', URL);
    iEnd := Pos(']', URL);
    if (iStart <> 0) and (iEnd <> 0) then
    begin
      strIP := Trim(Copy(URL, iStart + 1, iEnd - iStart - 1));
      if strIP <> '' then
        Result := strIP;
    end;
  end;
end;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B