提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  云平台

当前栏目

IP归属地查询器

IP 归属 查询器
2023-06-13 09:15:18 时间

在线查询数据，数据来源123cha.com。需要联网使用，不是查询的纯真的数据。

部分代码：

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;

相关文章