三月 11th, 2010 | 
Author: 
在线查询数据，数据来源123cha.com。需要联网使用，不是查询的纯真的数据。猛击此处下载。 
部分代码：
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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('<li>[查询提供]',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,'</li>','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'<li>','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'<font color="blue">','',[rfReplaceAll]); mmo1.Text:=StringReplace(mmo1.Text,'</font>','',[rfReplaceAll]); end; </li> |
相关文章
Posted in 
Tags:
