以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据交换接口，该怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100470)
--  作者：浙江仔
--  发布时间：2017/5/11 21:44:00
--  [求助]数据交换接口，该怎么写？

1.客服端发送数据格式：

｛user:’anji’,companys:[{ company_name:’ 企业名称’, address:\'注册地址\', fd_delegate:\'法人代表\',…},{},{}…]｝

2.服务器端返回数据格式：

   {"info":{"ok":" false" ,"message":"异常编号：异常信息" }}


接口描述

新增、修改、删除企业基本情况（县区系统交换至市区系统）

访问地址

http://www.huzsafety.gov.cn:port/huzchange/

接口类

hzcompanyexservice

接口方法

datareceive (string  jsonstring)

输入参数

jsonstring:固定格式的json对象所转化的string

格式如：{ datasource:\'anji\',

           username:\'\',

           password:\'\',

entitys:[{ company_name: "", out_id: "",…},{},…]}

输出参数

成功：

{"info":{"ok":"true","message":""}}

失败：

{"info":{"ok":"false","message":"错误原因"}}

备注

在传参时各数据项值均为字符串格式，如有可为空的数据项，则统一传值为空字符串（""）














类似的这些数据交换接口，该怎么写代码？望指教



Dim url As String = "http://www.huzsafety.gov.cn:port/huzchange/hzcompanyexservice"

Dim hc As New HttpClient(url)

Dim jo As New JObject


jo("entityssource") = "deqin"

jo("username") = "deqin" 

jo("password") = "123456" 

jo("entitys") = New JObject()

jo("entitys")("company_name") = "测试企业"

jo("entitys")("out_id") = "00075A69FA444007AC1E747A3F1DFAAE"

jo("entitys")("address") = "地方撒伐大"

jo("entitys")("fd_delegate") = "放大"

jo("entitys")("phone") = "15967102763"

jo("entitys")("business_reg_number") = "2232223"

jo("entitys")("organ_code") = "33434343-3"

jo("entitys")("trade_type") = "放大放大"

jo("entitys")("corporate_types") = "放大"

jo("entitys")("economy_kind") = "放大"

jo("entitys")("safety_supervisor") = " 啊  大大"

jo("entitys")("safety_supervisor_phone") =  "444444444"

jo("entitys")("safety_supervisor_fax_phone") = "8876667"

jo("entitys")("data_sources") = "deqing"

jo("entitys")("is_deleted") = "0"

jo("entitys")("is_production") = "0"

jo("entitys")("logoff") = "0"

jo("entitys")("type") = "0"



hc.content = jo.Tostring()

jo = JObject.Parse(hc.getdata)
--  作者：有点色
--  发布时间：2017/5/11 22:07:00
--  

 在vs里面，用这种方法调用，先测试能否调用成功。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92876&authorid=0&page=0&star=1

 

 

 

 
--  作者：浙江仔
--  发布时间：2017/5/12 9:43:00
--  
需要先把账号密码提交过去，才能调用，不知道怎么写了
--  作者：有点色
--  发布时间：2017/5/12 9:59:00
--  
以下是引用浙江仔在2017/5/12 9:43:00的发言：
需要先把账号密码提交过去，才能调用，不知道怎么写了


 

1、用调试器，先测试能否正确调用提取

  

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

2、成功以后，看看需要传送的内容是什么，然后再在你的vs或foxtable测试

 

3、尽量用引用dll，然后引用dll变量，然后调用变量方法的方式获取数据，这样简单方便。

 

4、自己做不了的话，叫人家给你一个调用的实例囖。