您现在的位置:首页 >> 网络通讯 >> Indy >> 内容

Delphi获取IP138的数据查询

时间:2011/9/3 15:48:00 点击:

  核心提示:查询结果自己解析:procedure TForm1.Button1Click(Sender: TObject);var SL:TStringList;begin SL:=TStringList.Cre...

查询结果自己解析:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL:TStringList;
begin
  SL:=TStringList.Create;
  try
    SL.Add('action=mobile');
    SL.Add('mobile=1388080');
    IdHTTP1.Request.ContentLength:=Length(SL.Text);
    IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
    Memo1.Text:=IdHTTP1.Post('http://www.ip138.com:8080/search.asp',SL);
  finally
    if Assigned(SL) then FreeAndNil(SL);
  end;
end;

作者:外出就餐 来源:原创
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号