在线查询数据,数据来源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;