IP归属地查询器

在线查询数据,数据来源123cha.com。需要联网使用,不是查询的纯真的数据。猛击此处下载。 laugh

部分代码:

procedure TForm1.Button1Click(Sender: TObject);
var
   xml : OleVariant;
   r:string;
   p1,p2 : Integer;
   I:Integer;
begin
   xml := CreateOleObject('Microsoft.XMLHTTP');
   xml.Open('GET','http://www.123cha.com/ip/?q='+edt1.Text, False);
   xml.Send;
   r := xml.responseText;
   p1:=Pos('数据',r);
   p2:=Pos('
  • [查询提供]',r); mmo1.lines.add(' 您查询的地址可能归属地是:') ; mmo1.lines.add(' ===========================') ; mmo1.Lines.add (Copy(r, p1+16, p2-p1-5)); mmo1.Text:=StringReplace(mmo1.Text,' ','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'
  • ','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'
  • ','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'','',[rfReplaceAll]); end;
  • ☆文章版权声明☆

    * 网站名称:obaby@mars
    * 网址:http://h4ck.org.cn/
    * 本文标题: 《IP归属地查询器》
    * 本文链接:http://h4ck.org.cn/2010/03/ip/
    * 转载文章请标明文章来源,原文标题以及原文链接。请遵从 《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。


    分享文章:

    猜你喜欢:

    发表回复

    您的电子邮箱地址不会被公开。