以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  接口上报,帮忙指导一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176892)

--  作者:zoyong
--  发布时间:2022/4/30 14:47:00
--  接口上报,帮忙指导一下
大神帮忙接口对接,谢谢了

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



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

--  作者:有点蓝
--  发布时间: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
--  发布时间: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



--  作者:有点蓝
--  发布时间:2022/5/4 20:31:00
--  
单元格里是json数据,要转换为xml数据的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:定川接口.zip



--  作者:zoyong
--  发布时间: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
错误所在事件:
详细错误信息:
尚未提供文件名,因此无法启动进程。




--  作者:有点蓝
--  发布时间: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
--  发布时间:2022/5/23 16:54:00
--  
E:\\软件\\Attachments\\工程管理\\2022\\P22001\\投标文件.txt
--  作者:zoyong
--  发布时间: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\' 中。






--  作者:有点蓝
--  发布时间: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
--  发布时间: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
错误所在事件:
详细错误信息:
操作超时