接口上报，帮忙指导一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口上报，帮忙指导一下

共有20591人关注过本帖树形打印复制链接主题：接口上报，帮忙指导一下

zoyong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

接口上报，帮忙指导一下 发帖心情

Post By：2022/4/30 14:47:00 [只看该作者]

大神帮忙接口对接，谢谢了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.rar

[此贴子已经被作者于2023/8/16 14:01:45编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/2 11:30:00 [只看该作者]

Dim hc As New HttpClient("http://jgptzw.dcyun.com:49000/ProjectSuperviseService.asmx/ReceiveJson")

hc.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"

hc.Headers.Add("UserName","xxxUserName")

hc.Headers.Add("Token","xxxToken")

hc.FormData.Add("strCommand","xxx类型")

hc.FormData.Add("strContent","xxx内容")

Dim ret As String = hc.getData()

output.show(ret)

zoyong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/5/2 19:55:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：窗口,上报,上报,Click

详细错误信息：

无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:定川接口.table

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/4 20:31:00 [只看该作者]

单元格里是json数据，要转换为xml数据的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:定川接口.zip

zoyong

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/5/23 16:40:00 [只看该作者]

Dim Proc As New Process

Proc.Arguments = Tables("tabl").Current("项目资料") '打开

Proc.Start()

执行上面代码，出现下面错误

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：

详细错误信息：

尚未提供文件名，因此无法启动进程。

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/23 16:43:00 [只看该作者]

if Tables("tabl").Current isnot nothing

msgbox(Tables("tabl").Current("项目资料"))

Dim Proc As New Process

Proc.File = Tables("tabl").Current("项目资料") '打开

Proc.Start()

endif

zoyong

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/5/23 16:54:00 [只看该作者]

E:\软件\Attachments\工程管理\2022\P22001\投标文件.txt

zoyong

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/5/28 15:34:00 [只看该作者]

access数据库

cmd.Com mandText = "se lect * from {xjbb} where [年份] = #" & Date.Today.Year & "# And [未到金额] > '0'"

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：

详细错误信息：

字符串的语法错误在查询表达式 '[年份] = #2022# and [未到金额] > '0' 中。

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/28 15:42:00 [只看该作者]

日期列才能使用#，多看几遍：http://www.foxtable.com/webhelp/topics/1284.htm

cmd.Com mandText = "se lect * from {xjbb} where [年份] = " & Date.Today.Year & " And [未到金额] > 0"

zoyong

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8019 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2022/6/28 20:50:00 [只看该作者]

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces '定义MAC

Dim mac As String = nics(0).GetPhysicalAddress.Tostring '获得MAC地址

HostName = System.Net.Dns.GetHostName '获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP

FileSys.WriteAllText(ProjectPath & "Account.txt", s1, False, Encoding.Default) '写入当天日期

Dim hc As New HttpClient("http://139.17.186.23:3939/xtrzdjb.htm")

hc.FormData.Add("时间",Date.Now)

hc.FormData.Add("IP地址",IPAdress.ToString)

hc.FormData.Add("计算机名称",HostName)

hc.FormData.Add("MAC地址",mac)

hc.FormData.Add("机器码",ComputerId)

hc.FormData.Add("版本号",Tables("S_基础数据").Rows(2)("值"))

Dim ret As String = hc.getData()

以上代码有效，但是执行后会卡死1分钟，最后提示操作超时

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：

详细错误信息：

操作超时

下一主题 >> << 上一主题

总数 92 1 2 3 4 5 6 7 8 9 10 下一页

主题：接口上报，帮忙指导一下