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