以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  淘宝开放平台 api 示例 [申请加精]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11507)

--  作者:qtcks
--  发布时间:2011/7/31 19:05:00
--  淘宝开放平台 api 示例 [申请加精]

1、下载 官方版.net sdk

2、外部引用 TopSdk.dll

3、说明书中 代码示例

?.NET版本

n不需要登录(sessionKey)的API调用

ITopClient client = new DefaultTopClient("url", "appkey", "appsecret");

UserGetRequest req = new UserGetRequest();

req.Fields = "user_id,nick,created,buyer_credit,type,sex";

req.Nick = "helloworld";

UserGetResponse rsp = client.Execute(req);

if (rsp.IsError)

{

Console.WriteLine(rsp.Body);

}

转成vb.net 的代码为:

以下内容为程序代码:

1 Dim url,appkey,appsecret As String
2 url="http://gw.api.tbsandbox.com/router/rest" \'沙箱环境调用地址 正式环境:http://gw.api.taobao.com/router/rest
3 appkey="test" \'淘宝开放平台颁发的唯一标识一个应用的ID号 appkey:test
4 appsecret ="test" \'应用密钥,不可对外公开,商家需注意保密 appSecrect:test
5
6 Dim client As Top.api.ITopClient = new Top.api.DefaultTopClient(url, appkey, appsecret ) \'实例化ITopClient类
7
8 Dim req As Top.api.Request.UserGetRequest = New Top.api.Request.UserGetRequest \'实例化具体API对应的Request类
9 req.Fields = "user_id,nick,created,buyer_credit,type,sex"
10 req.Nick = "sandbox_c_1"
11 Dim rsp As Top.api.Response.UserGetResponse = client.Execute(req) \'执行API请求并将该类转换为response对象
12 output.show(rsp.Body)
13


此主题相关图片如下:qq截图未命名asdfaaaaaaaaa.png
按此在新窗口浏览图片

示例1.读取店铺商品信息列表


此主题相关图片如下:读取信息.gif
按此在新窗口浏览图片

[此贴子已经被作者于2011-7-31 22:36:41编辑过]

--  作者:qtcks
--  发布时间:2011/7/31 19:09:00
--  

相关网址:

 

http://my.open.taobao.com/apidoc/main.htm

 

 

快速上手指南

示例代码(包含SDK)

其中SDK下载地址:下载SDK
SDK并封装了调用接口(API)的请求、加密、返回解析等一些必要的过程,开发者只需要关注调用结果即可

 

代码转换 C#.net to vb.net


--  作者:狐狸爸爸
--  发布时间:2011/7/31 19:25:00
--  

呵呵,做个连接好的例子,取出来数据,再给你加精。


--  作者:qtcks
--  发布时间:2011/7/31 20:08:00
--  

<?xml version="1.0" encoding="utf-8" ?><user_get_response><user><buyer_credit><good_num>0</good_num><level>0</level><score>0</score><total_num>0</total_num></buyer_credit><created>2009-09-30 11:19:03</created><nick>sandbox_c_1</nick><sex>f</sex><type>C</type><user_id>175978269</user_id></user></user_get_response><!--vsandbox068048.cm4-->

 

这个xml 如何转换成 table?


--  作者:qtcks
--  发布时间:2011/7/31 22:22:00
--  

获取 某 店铺的商品列表。

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名sdfsdfsdf.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目15.rar

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名sdfsdfsdfsdfsdf.png
图片点击可在新窗口打开查看

--  作者:qtcks
--  发布时间:2011/7/31 22:23:00
--  

折腾死我了,想研究的,自己看淘宝开放平台的文档


--  作者:ymjr2011
--  发布时间:2011/7/31 22:25:00
--  

好像是开发版的

 


--  作者:qtcks
--  发布时间:2011/7/31 22:29:00
--  

嘿嘿,整理份代码发上来给你们好了。

 


--  作者:qtcks
--  发布时间:2011/7/31 22:30:00
--  

1、全局代码

 

Public Function CXmlToDataSet(ByVal xmlStr As String) As System.Data.DataSet
        If Not String.IsNullOrEmpty(xmlStr) Then
            Dim StrStream As System.IO.StringReader = Nothing
            Dim Xmlrdr As System.Xml.XmlTextReader = Nothing
            Try
                Dim ds As System.Data.DataSet = New System.Data.DataSet
                \'读取字符串中的信息
                StrStream = New System.IO.StringReader(xmlStr)
                \'获取StrStream中的数据
                Xmlrdr = New System.Xml.XmlTextReader(StrStream)
                \'ds获取Xmlrdr中的数据          
                ds.ReadXml(Xmlrdr)
                Return ds
            Catch e As Exception
                Throw e
            Finally
                \'释放资源
                If (Not (Xmlrdr) Is Nothing) Then
                    Xmlrdr.Close()
                    StrStream.Close()
                    StrStream.Dispose()
                End If
            End Try
        Else
            Return Nothing
        End If
    End Function


--  作者:qtcks
--  发布时间:2011/7/31 22:32:00
--  

2、窗体->读取 按钮

Dim url,appkey,appsecret,xml As String
url="http://gw.api.tbsandbox.com/router/rest" \'沙箱环境调用地址  正式环境:http://gw.api.taobao.com/router/rest
appkey="test" \'淘宝开放平台颁发的唯一标识一个应用的ID号  appkey:test
appsecret ="test" \'应用密钥,不可对外公开,商家需注意保密   appSecrect:test
Dim client As Top.api.ITopClient =  new Top.api.DefaultTopClient(url, appkey, appsecret ) \'实例化ITopClient类

Dim req As Top.api.Request.ProductsGetRequest = New Top.api.Request.ProductsGetRequest\'实例化具体API对应的Request类
req.Fields = e.Form.Controls("TextBox1").value
req.Nick = e.Form.Controls("comboBox1").value
req.Props = e.Form.Controls("TextBox3").value
Dim rsp As Top.api.Response.ProductsGetResponse = client.Execute(req) \'执行API请求并将该类转换为response对象
e.Form.Controls("TextBox6").value = rsp.body
Tables("窗口1_Table1").DataSource =CXmlToDataSet(rsp.Body).Tables(0)
Tables("窗口1_Table2").DataSource =CXmlToDataSet(rsp.Body).Tables(1)