http://www.cz88.net下载纯真IP地址库文件 qqwry.dat 用来对照IP与物理地址
把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');

Astropad推出新配件:让iPad Pro变成显示器

苹果 Mac mini 没有提供任何配件,这意味着购买之后我们需要自己选购额外的显示器、键盘以及鼠标。今天,Astropad 发布了一款被称为 Luna Display 的配件,...

阅读全文

DevExpress VCL for Delphi 各版本收集下载(最新支持Delphi 10.3.3 RIO)

点此下载 最新更新: DevExpress VCL 18.2.5 Full Sources and DxAutoInstsller 下载包含以下内容:  DevExpress VCL for Delphi 帮...

阅读全文

关于法定节假日的问题

1995年5月, 中国开始实行每周5天工作制。 1999年9月18日,中国国务院发布《全国年节及纪念日放假办法》,决定增加公众法定休假日。春节、“五一”和 “十一...

阅读全文

评论已经关闭。