简单的工作室

Delphi实现通过IP地址获取地理位置

时间:2014-06-24 14:10来源:未知 作者:admin 点击:
下载 纯真IP地址库文件qqwry.dat 用来对照IP与物理地址 http://www.jiandande.com/html/xitongkaifa/heikeanquan/2014/0612/3043.html 把 qqwry.dat 存放在程序的根目录下。 项目工程文件中导入引用单元文件 Lh5Unit.pas uses Windows, Messages, SysUtils, Classes, Gr

下载 纯真IP地址库文件 qqwry.dat 用来对照IP与物理地址

http://www.jiandande.com/html/xitongkaifa/heikeanquan/2014/0612/3043.html

 qqwry.dat 存放在程序的根目录下。

项目工程文件中导入引用单元文件  untQQwry.pas


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    untQQWry;


        QQwry : TQQWry; {IP地理位置}


function GetIPtoAdder(IpName: string): string; {从IP地址得到所在地理位置}
var
  ip:string;
begin
  Result:='';
  ip := IpName;
  try
    Result := QQWry.getIPMsg(QQWry.GetIPRecordID(ip))[2]+
      QQwry.getipmsg(QQWry.GetIPRecordID(ip))[3];
  except
    Result := 'IP地址格式不对';
  end;
  if Result = '' then Result := '[未知数据]';
end;

procedure TSocketForm.FormCreate(Sender: TObject);
var
  sIpFile:String;
begin
   {读取IP追捕数据}
  FleshIpList := TStringlist.Create;
  sIpFile := ExtractFilePath(Paramstr(0)) + '\qqwry.dat';
  if not FileExists(sIpFile) then
    sConnHost:='纯真IP数据库不存在'
  else
  QQWry := TQQwry.Create(sIpFile);


end;



调用方式

物理地址:=GetIPtoAdder('要查询的IP');


(责任编辑:简单的工作室)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容