DELPHI 调用淘宝API 例子 IdHTTP1 控件

IdHTTP1 控件


[delphi] view plaincopy

procedureTfrmMain.btnCallTopAPIClick(Sender: TObject);  
var  
 AHttpRequestURL:String;  
 AHttpReponseContent:TMemoryStream;  
begin  
 AHttpReponseContent:=TMemoryStream.Create;  
  try  
   IdHTTP1.ReadTimeout:=0;  
   IdHTTP1.AllowCookies:=True;  
   IdHTTP1.ProxyParams.BasicAuthentication:=False;  
   IdHTTP1.ProxyParams.ProxyPort:=0;  
   IdHTTP1.Request.ContentLength:=-1;  
   IdHTTP1.Request.ContentRangeEnd:=0;  
   IdHTTP1.Request.ContentRangeStart:=0;  
   IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';  
   IdHTTP1.Request.Accept:='text/html, */*';  
   IdHTTP1.Request.BasicAuthentication:=False;  
   IdHTTP1.Request.UserAgent:='Mozilla/3.0 (compatible; Indy Library)';  
   IdHTTP1.HTTPOptions:=[hoForceEncodeParams];  
   
   AHttpRequestURL:='http://gw.api.tbsandbox.com/router/rest?'  
          +'sign=5029C3055D51555112B60B33000122D5'     "此处为TAOBAO生成的scret code
          +'×tamp=2011-07-01+13%3A52%3A03'  
          +'&v=2.0'  
          +'&app_key=test'                                                                 "些处为TAOBAO网站申请的appkey
          +'&method=taobao.user.get'             "此处为TAOBAO提供的API名称
          +'&partner_id=top-apitools'                                               
          +'&format=json'                   "提交请求之后TAOBAO反馈的文件格式( JSON/XML )
          +'&nick=%E5%95%86%E5%AE%B6%E6%B5%8B%E8%AF%95%E5%B8%90%E5%8F%B717'     " 这个地方没有搞清楚
          +'&fields=nick,location.state,location.city';       "此处为TAOBAO提供的API对应的字段,类似表字段
   
   IdHTTP1.Get(AHttpRequestURL,AHttpReponseContent);  
   AHttpReponseContent.Position:=0;  
   Self.Memo1.Lines.LoadFromStream(AHttpReponseContent);  
 finally  
   AHttpReponseContent.Free;  
 end;  

end; 


下面两个链接是对应的 TAOBAO API 对应上面的各中参数

http://open.taobao.com/doc2/apiList.htm?spm=0.0.0.0.5SqyzM&cid=1&docType=


http://open.taobao.com/doc2/detail?spm=0.0.0.0.e2AqJc&docType=1&articleId=101617&treeId=1


http://open.taobao.com/apitools/apiTools.htm?spm=0.0.0.0.p9SzMR


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值