以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  接口调用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171320)

--  作者:aaa1234
--  发布时间:2021/8/26 10:19:00
--  接口调用
老师您好我想问一下,语雀的接口应该怎么调用版本说明 · 语雀 (yuque.com)
--  作者:有点蓝
--  发布时间:2021/8/26 11:20:00
--  
把里面的c#代码放到vs里开发成dll给foxtable调用。

或者自行转换为vb.net代码放到全局代码使用:https://converter.telerik.com/

--  作者:aaa1234
--  发布时间:2021/8/26 11:46:00
--  
蓝老师放在哪个全局代码里面好,我是执行了
或者自行转换为vb.net代码放到全局代码使用:https://converter.telerik.com/
这个

--  作者:有点蓝
--  发布时间:2021/8/26 11:59:00
--  
全局代码:http://www.foxtable.com/webhelp/topics/1842.htm
--  作者:aaa1234
--  发布时间:2021/8/26 13:45:00
--  
Imports System
Imports System.Collections.Generic
Imports System.Net
Imports System.Xml
Imports Newtonsoft.Json

Namespace EC_OpenApi_Service
    Public Class EC_OpenApi_ServiceExample
        Private Shared _ebDomain As String = "http://kaifa-eb.ez-wms.com"
        Private Shared _wmsDomain As String = "http://kaifa.ez-wms.com"
        Private Shared _userName As String = "admin"
        Private Shared _userPass As String = "eccang123456"

        Private Shared ReadOnly Property _userebName As String
            Get
                Return "admin"
            End Get
        End Property

        Private Shared ReadOnly Property _userebPass As String
            Get
                Return "123456"
            End Get
        End Property

        Private Shared ReadOnly Property _userwmsName As String
            Get
                Return "admin"
            End Get
        End Property

        Private Shared ReadOnly Property _userwmsPass As String
            Get
                Return "eccang123456"
            End Get
        End Property

        Public Shared Sub Main(ByVal args As String())
            Console.WriteLine("测试获取仓库Json")
            Dim result As String = GetWarehouses()
            Console.WriteLine(result)
            Console.ReadKey()
            Console.WriteLine("测试获取订单列表Json")
            Dim orderListRequest As OrderListRequest = New OrderListRequest() With {
                .condition = New OrderListConditionStruct() With {
                    .saleOrderCodes = New List(Of String)() From {
                        "302173175674-1364094976020"
                    }
                }
            }
            result = GetOrderList(orderListRequest)
            Console.WriteLine(result)
            Console.ReadKey()
        End Sub


这样吗,他说我imports未声明

--  作者:有点蓝
--  发布时间:2021/8/26 13:45:00
--  
下面代码去掉
Imports System
Imports System.Collections.Generic
Imports System.Net
Imports System.Xml
Imports Newtonsoft.Json

Namespace EC_OpenApi_Service

--  作者:aaa1234
--  发布时间:2021/8/26 14:04:00
--  
      Dim result As String = GetWarehouses()
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

--  作者:aaa1234
--  发布时间:2021/8/26 14:07:00
--  
1
[此贴子已经被作者于2021/8/26 14:07:24编辑过]

--  作者:有点蓝
--  发布时间:2021/8/26 14:12:00
--  
转换的代码应该不完整,GetWarehouses是c#源码里面的一个函数
--  作者:aaa1234
--  发布时间:2021/8/26 14:58:00
--  
哪如果我要做接口怎么做