精华内容
下载资源
问答
  • 接口采用HTTP协议,所以支持HTTP协议的任何开发语言和平台,都可以基于此接口开发相关应用。接口包括:基础资料、财务、供应链、制造模块单据和BOS基础资料、BOS单据的增删改查,基本满足大部分企业的需要。下面基于...

    bc9862db4121b4e8ec8067aafc731e42.png

    金蝶K3 WISE 从14.3版本开始提供API接口,实现企业上下游(供应商、客户、第三方厂商)也就是所谓企业联盟之间的数据交换。经过几个版本的迭代,现在已经比较完善。

    接口采用HTTP协议,所以支持HTTP协议的任何开发语言和平台,都可以基于此接口开发相关应用。接口包括:基础资料、财务、供应链、制造模块单据和BOS基础资料、BOS单据的增删改查,基本满足大部分企业的需要。

    下面基于K3 WISE API接口,看看各种语言实现API的效果,包括VB版、Delphi版、C#版、Java版、手机客户端以及API接口服务程序和开发自己的API接口。

    VB版测试

    VB代码实现获取Token,获取物料详情和生成新的物料,以获取的物料信息为模板,生成新的物料。

    5b8d16977b0486497babf61b52b9a769.gif

    Delphi版测试

    Delphi代码实现获取Token,获取客户列表和详情、获取销售出库单列表和详情。

    31e9019131f3a8a5df82d7d5a2356e33.gif

    C#版测试

    C#代码实现获取Token,获取客户列表和详情、获取销售出库单列表和详情。

    7bf13f68d9358086933f2a2810862e93.gif

    Java版(手机客户端)测试

    Java代码实现,安卓手机客户端原生开发,实现获取Token,获取客户列表和详情、获取销售出库单列表和详情。

    d069f518f22edbf092fe186d60e4d034.png

    47ea2f30de2b32e03a5cc4011019a142.png

    c071eec3e41ca22a9b5c547ad59f29f4.png

    基于API的服务程序

    系统间同步数据时,很多时候手工同步比较麻烦,客户一般希望自动同步,比如几分钟或者几小时系统自动同步相应的基础资料或者单据,这时候就需要用服务程序来实现。

    下面以通过API接口自动生成K3的产品入库单为例,服务程序实现自动生单,可配置服务间隔、日志记录等。

    d352a1369cf54aaf480f36ef18f89f46.png

    开发自己的API接口

    目前,K3自身的API接口已经涵盖了基础资料、财务、供应链、制造模块单据和BOS基础资料、BOS单据的增删改查以及部分报表的查询,基本满足了大部分企业需要。但也可能因企业有个性化的需求,系统本身的API接口无法满足业务要求,比如返回的数据不符合需求等,这时我们就需要开发自己的API接口,定制返回数据。

    以C#(Framework4.0)开发的WebAPI为例,获取订单列表,调用方式和K3一样,但返回值不同,Postman调用示例如下:

    a4967d59a2b7640289ddf7496e908b40.png

    获取客户发货退货申请单列表,Token和验证信息放到HTTP头信息里,以JSon为过滤参数,根据客户需要组装JSon返回值,Postman调用示例如下:

    aa67e2dcf883c1290b72dc213a6bb530.png

    以上仅是示例测试,但都是基于客户的实际需求写的,通过这些示例,抛砖引玉,让大家对API接口的应用场景可以有个全面了解,方便应用于自己的项目。

    部分示例Demo可免费体验试用(不提供源代码),需要的加个人微信。

    推荐阅读:

    金蝶开发-改造单据录入之快速录单

    金蝶开发-工业老单据序时薄隐藏列内容

    金蝶开发-工业老单据序时薄增加过滤条件

    一块聊聊

    「企业信息化那些事儿」

    aac2655ba7aab3d267a23a4f33104dce.png

    「加个微信」

    e6c10e5946f9598b7bc247c5213b635d.png

    添加时请备注:地区-姓名+简介...

    非诚勿扰交流请加QQ群 182476447合作请联系 1554380666@qq.com

    展开全文
  • VB6调用webservice

    2018-12-27 22:06:03
    VB6调用webservice的例子,工程引用了Microsoft soap sdk 3.0 和 xml 6.0 (A vb6.0 program for webservice,using Microsoft soap sdk 3.0 and xml 6.0)
  • vb6.0调用webservice详解

    热门讨论 2014-07-06 09:26:43
    网上写vb6.0调用webservice的都写得比较简单, 这个结合实例作了较详细介绍
  • 直接上干货 Private Function POST(ByVal URL$, ByVal data$) Dim http On Error Resume Next http = CreateObject("WinHttp.WinHttpRequest.5.1") With http ...

    直接上干货 

     Private Function POST(ByVal URL$, ByVal data$)
            Dim http
            On Error Resume Next
            http = CreateObject("WinHttp.WinHttpRequest.5.1")
            With http
                .Open("POST", URL, True)
                .setRequestHeader("Accept-Language", "zh-CN")
                .setRequestHeader("Cache-Control", "no-cache")
                .setRequestHeader("User-Agent", "Mozilla/4.0")
                .setRequestHeader("Connection", "Keep-Alive")
                .setRequestHeader("Content-Length", data.Length)
                .setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
                .Send(data)
                .WaitForResponse()
                POST = .getallresponseheaders
                Dim request = http.responseText 
            End With
            http = Nothing
        End Function

     

    转载于:https://www.cnblogs.com/zhangxiaoyong/p/5392353.html

    展开全文
  • using System; using System.Collections.Generic;...using System.Net.Http; using System.Web.Http; using Test1.Models; namespace Test1.Controllers { public class PersonController : ApiContr.
    using System;
    using System.Collections.Generic;
    using System.Data.SqlClient;
    using System.Linq;
    using System.Net;
    using System.Net.Http;
    using System.Web.Http;
    using Test1.Models;
    namespace Test1.Controllers
    {
    
        public class PersonController : ApiController
        {
            //建议统一采用这种模式
            [HttpGet]
            [HttpPost]   
    
            [HttpGet]
            [HttpPost]
            public bool Login([FromBody]clsLogin obj)
            {
                bool ret;
    
                string connectionStringTest = @"server=192.168.0.105,1433;database=e7zao;user id=sa;password=123456";
                SqlConnection conn = new SqlConnection(connectionStringTest);
                try
                {
                    conn.Open();
    
                    //  MessageBox.Show("数据库链接成功!", "提示");
                }
                catch (Exception e)
                {
                    string message = e.Message;
    
                }
                finally
                {
                    //conn.Close();
                    // conn.Dispose();
                }
    
                SqlCommand cmd = new SqlCommand("select * from 用户表 where 用户名='" + obj.UserName + "' and 密码='" + obj.PassWord + "'", conn);
                SqlDataReader sdr = cmd.ExecuteReader();
                sdr.Read();
                
                if (sdr.HasRows)
                {
                    // 获取 字段值
                    // string s = sdr.GetString(sdr.GetOrdinal("用户名"));
                    ret = true;
                }
                else
                {
                    ret = false;
                    conn.Close();
                }
                return ret;
            }
        }
    }
    
    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Web;
    
    namespace Test1.Models
    {
        public class Person
        {
            public int Age { get; set; }
            public string Name { get; set; }
        }
        //PassWord
        public class clsLogin
        {
            public string UserName { get; set; }
            public string PassWord { get; set; }
        }
    
    
    
    
    }

    下面是VB的代码

    'json 字符串  {UserName:"admin",PassWord:"123"}
    Private Sub Command1_Click()
             Dim 参数 As String
             Dim 接口网址 As String
             Dim 返回值 As String
    
             接口网址 = "http://192.168.0.105:54321/api/Person/Login"
             用户名 = Text1
             密码 = Text2
             参数 = "{UserName:" & 引号 & 用户名 & 引号 & ",PassWord:" & 引号 & 密码 & 引号 & "}"
             返回值 = HttpPost(接口网址, 参数)
    '         MsgBox 返回值
             
            If 返回值 = True Then
                 MsgBox "登入成功"
                 主界面.Show
                 Unload Me
            Else
                MsgBox "密码或用户名错误!"
            End If
    
    End Sub
    

    服务端 采用ASP.net的C# WebApi+SQL2008,可以部署到阿里云

    客户端用的是VB6.0  

    展开全文
  • VB发送HTTP请求

    2018-09-08 15:00:58
    VB发送HTTP请求,返回网络请求的结果,内部还包含网络中各种制式转换的代码。
  • 包含了get和post各种参数形式及方法, public static U Post, T>(string url, T model, NameValueCollection headers = null) { return HttpClientHelper.Post, T>(url, model, headers); } ...
  • VB6.0中调用接口API

    2019-12-10 11:57:03
    注意XP环境与win7环境下的调用区分,XP下对接口https的调用会报错“接收格式异常”!!! '返回接口地址返回结果字符串 Public Function GetResponse(sURL As String, Optional Method As String, Optional sBody ...

    注意XP环境与win7环境下的调用区分,XP下对接口https的调用会报错“接收格式异常”!!!


    '返回接口地址返回结果字符串
    Public Function GetResponse(sURL As String, Optional Method As String, Optional sBody As String) As String
        Dim aHttpRequest As Object
        
        Dim sMethod             As String
        Dim sResponse           As String
        
        If Method = "" Then
            sMethod = "POST"        '或者(GET)
        Else
            sMethod = Method
        End If
        
        Dim isXPSystem As Boolean

        If isXPSystem = True Then
            Set aHttpRequest = CreateObject("MSXML2.XMLHTTP")
            If sMethod = "GET" Then
                sBody = Replace(sBody, "?", "")
                sURL = sURL & "?" & sBody
            End If        
            
            '' 同步接收数据
            aHttpRequest.Open sMethod, sURL, False
            aHttpRequest.SetRequestHeader "Content-Length", Len(sBody)
            If InStr(1, sBody, "{") = 0 Then
                sBody = Replace(sBody, "?", "")
                aHttpRequest.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            Else
                aHttpRequest.SetRequestHeader "Content-Type", "application/json;charset=UTF-8"
            End If
            aHttpRequest.Send (sBody)
            
            Dim waitTimeOut, secondNumber
            waitTimeOut = 0
            secondNumber = 100 '超时多少秒
            Do
            DoEvents
            wait 10
            waitTimeOut = waitTimeOut + 1
            Loop Until (aHttpRequest.ReadyState = 4 Or waitTimeOut >= 100 * secondNumber)
            If aHttpRequest.ReadyState = 4 Then
                sResponse = aHttpRequest.ResponseText            
            Else
                sResponse = ""
            End If
        Else
            If sMethod = "GET" Then
                sBody = Replace(sBody, "?", "")
                sURL = sURL & "?" & sBody
            End If
            '创建WinHttp.WinHttpRequest
            Set aHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
            '' 同步接收数据
            aHttpRequest.Open sMethod, sURL, False
            '' 非常重要(忽略错误)
            aHttpRequest.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
            '' 其它请求头设置]
            If InStr(1, sBody, "?") > 0 Then
                sBody = Replace(sBody, "?", "") '有些接口不支持带?
                aHttpRequest.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        '        aHttpRequest.SetRequestHeader "Cookie", "a:x,"
                aHttpRequest.SetRequestHeader "Content-Length", Len(sBody)
                aHttpRequest.SetTimeouts 100000, 100000, 100000, 100000        '设置超时时间 100秒
            Else
                aHttpRequest.SetRequestHeader "Authorization", "Basic a2luZ2RlZTpraW5nZGVlJDIwMTQjZQ=="
                aHttpRequest.SetRequestHeader "Content-Type", "application/json;charset=UTF-8"            
                aHttpRequest.SetTimeouts 100000, 100000, 100000, 100000        '设置超时时间 100秒
            End If
            aHttpRequest.Send sBody
            '' 得到返回文本(或者是其它)
            sResponse = aHttpRequest.ResponseText
        End If
       GetResponse = sResponse    
        Set aHttpRequest = Nothing
    End Function
     

    展开全文
  • vb调用java组件SatJni1.2

    2013-08-26 14:07:45
    SatJni是C++编写的动态链接库,实现了C#,PB,Delphi,VB,VC等对Java的调用,能让你很容易地调用成熟的java类库和第三方java组件。不用再为移值java代码而烦恼。 示例中演示了通过java调用webservice服务(无需代理...
  • VB6.0调用WebService

    2020-10-30 15:45:32
    VB6.0调用webservice简要方法 查了很多VB6连接webservice的资料,基本类似,就是有些地方介绍的不够细,可能是我太菜,始终没调成功。主要是带参数这一块,总是报错。反复试了多次才解决。发出来与大家分享一下。 ...
  • vb6调用webservice

    2020-08-21 14:16:50
    http???? Set h = New MSXML2.ServerXMLHTTP60 '???????URL????Post??????????webservice?????????????? h.open "POST", Trim$(Text2.Text), False h.setRequestHeader "Content-Type", "text/xml;...
  • 128 ' Maintenance string for PSS usage End Type Private Sub Form_Load() Me.Show Dim xx As OSVERSIONINFO '在正式调用函数之前,必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小(148) xx....
  •  URL targetUrl = new URL("http://localhost:8080/demo/urule/rest/test_demo/test111");  //打开连接  HttpURLConnection httpConnection = (HttpURLConnection) targetUrl.openConnection();  ...
  • VB调用API post数据

    千次阅读 2008-04-03 02:36:00
     hInternetOpen = InternetOpen("http generic", _  INTERNET_OPEN_TYPE_PRECONFIG, _  vbNullString, _  vbNullString, _  0)    If hInternetOpen <> 0 Then  'Type of service to access.  Const ...
  • 请问一下,有那位大神知道用VB调用WEBService接口时直接跳过远程证书验证的问题,谢谢!(以下是接口说明) POST /BasWebService.asmx HTTP/1.1 Host: 59.211..... Content-Type: text/xml; charset=utf-8 Content-...
  • Vb程序实现网站HTTP方式下载文件 利用VB实现软件下载,类似于通过Http方式下载文件,你可指定输入下载网站的网址,注意网址URL不能为空,请确保网址可以打开,否则程序可能会假死。程序依赖于shdocvw.dll组件。
  • 编写VB调用C/C++ DLL

    千次阅读 2017-08-23 11:25:46
    ...仅供编写C/C++生成DLL给VB使用者参考,本人不会VB,所以不列出VB如何调用了。如果想要如何调用, 请参考 http://fenying.blog.163.com/blog/static/102055993200979241103/
  • VB实现Http协议

    2011-01-14 21:09:43
    使用VB语言,实现Http的协议 不要分,分享给大家.终于可以自己设置资源积分了. 有需求可以多多交流.
  • 如题,我的VB网站怎么调用http://api.36wu.com/他们提供的免费获取物流信息的API接口? 我看了他们的开发文档,有个url,只需要提供快递运单号和authkey就行。 我应该在我的网站中写些什么?怎么调用他们的这个接口...
  • Vb程序实现HTTP方式下载文件 利用VB实现软件下载,类似于IE浏览器的“另存为”方式下载文件,通过API直接调用系统的下载功能和界面,程序依赖于操作系统自带的shdocvw.dll组件。
  • VS2010 VB如何生成DLL文件,调用DLL 详细过程参看http://blog.csdn.net/zzuzpb/article/details/9838541
  • VBNet c# Google翻译接口

    2018-11-05 15:40:02
    VBNet c# Google翻译接口调用,该接口为https://translate.google.cn/官方非公布接口,关键是完全免费!!!!!!!!!!!!!!!
  • Function TodoTaskBySOAP(postURL As String,host As String, n As Integer,FilterItem() As String,OwnerSSICID() As String ,AppID() As String ,ToDoID() As String,Title() As String,Url() As String ,ExpireDa
  • VB.NET GET接口传送数据,获取返回值

    千次阅读 2016-07-29 14:08:30
    VB.NET GET接口传送数据,获取返回值
  • VB调用Webservice(一)

    万次阅读 2010-07-05 21:52:00
    VB调用Webservice先要安装Soap Toolkit,可以到微软的网站上下载,下载地址为:http://www.microsoft.com/downloads/details.aspx?familyid=BA611554-5943-444C-B53C-C0A450B7013C&displaylang=en<br />
  • Java 以跨平台深受大家喜欢,而由于它跨平台的目的,需要运行在java虚拟机上工作,使得它和本地机器...本例采用VB代码生成调用AutoCAD接口的DLL文件,使用Jacob技术用Java调用DLL文件来实现Java对AutoCAD接口调用...
  • vb 调用java的webServices

    千次阅读 2011-08-18 14:55:06
    VB调用Java的webServices:  第一步: 首先需要下载soapsdk.exe程序后进行安装,安装完VB工程里面会有Microsoft Soap Type Library v3.0  第二步: 打开VB6.0 建立标称exe 并引用Mic
  • VB传递有困难, 建议对OpenCV的函数用自己编写的DLL进行封装一下, 把VB传递 过来的图像数据(byte)传递给自己的dll, 在自己的dll函数头部把数据 格式转化成IplImage, 然后调用Opencv的函数. ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 20,990
精华内容 8,396
关键字:

vb调用http接口