在钉钉的提交页面调用狐表做的接口，将文件保存到指定的服务器。这个接口怎么写啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在钉钉的提交页面调用狐表做的接口，将文件保存到指定的服务器。这个接口怎么写啊？

共有5617人关注过本帖树形打印复制链接主题：在钉钉的提交页面调用狐表做的接口，将文件保存到指定的服务器。这个接口怎么写啊？

guosheng

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

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

在钉钉的提交页面调用狐表做的接口，将文件保存到指定的服务器。这个接口怎么写啊？ 发帖心情

Post By：2022/7/22 13:00:00 [只看该作者]

1、钉钉的页面上传附件后，可以获取到文件的网络地址。例如：

"https://www.aliwork.com"+value[0].imgURL

2、表单提交后，调用接口，将这个（些）文件保存到指定服务器上。

狐表的这个接口大概怎么写啊（涉及跨域吗）？

[此贴子已经被作者于2022/7/22 13:03:41编辑过]

有点蓝

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

加好友

发短信

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

Post By：2022/7/22 13:38:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0160.htm

guosheng

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

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

Post By：2022/7/22 14:13:00 [只看该作者]

我的意思是：在钉钉的表单提交页面后，执行一个狐表做的接口，比如http://101.200.56.253/upload.htm?imgurl=文件在钉钉的网络地址

例如："https://www.aliwork.com/……123.img"

狐表做的服务端在接收到访问时，如何将文件保存下来啊？

[此贴子已经被作者于2022/7/22 14:13:57编辑过]

有点蓝

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

加好友

发短信

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

Post By：2022/7/22 14:20:00 [只看该作者]

就是在狐表做的服务端调用HttpClient呀

Dim hc As New HttpClient("https://www.aliwork.com/……123.img")
If hc.GetFile("c:\data\123.img") Then
dr("附件") = “123.img”

End If

SbFox

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

加好友

发短信

等级：幼狐帖子：74 积分：500 威望：0 精华：0 注册：2021/12/11 14:20:00

Post By：2022/7/22 14:22:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0030.htm

SbFox

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

加好友

发短信

等级：幼狐帖子：74 积分：500 威望：0 精华：0 注册：2021/12/11 14:20:00

Post By：2022/7/22 14:22:00 [只看该作者]

接收文件

HttpRequest的e参数有个Files属性，这是一个字典，键为文件上传组件的name属性，值是一个字符串集合，包括用户通过这个上传组件上传的所有文件名。

HttpRequest的e参数有个SaveFile方法，用于保存接收到的文件，其语法为：

SaveFile(Key,UploadFile,LocalFile)

Key	文件上传组件的name属性
UploadFile	用户上传的文件名称，不含路径。
LocalFile	要保存到本地的文件名称，含路径

guosheng

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

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

Post By：2022/7/22 15:05:00 [只看该作者]

运行以下代码，执行成功了，但是，打开c:\data\12.txt 后发现内容不是我放的东西，我本来就写了一行文字。

以下截图是用浏览器打开那个文件在钉钉的网络地址（显示的内容是对的），利用HttpClient代码将文件下载到本地后，内容对不上了。

Dim hc As New HttpClient("https://www.aliwork.com//inst/preview?appType=APP_CUTPK7WS1IRK5XC4DDKA&fileName=APP_CUTPK7WS1IRK5XC4DDKA_MDg2NTExNTU0MTM2Njk4OTk2X0w1NjY2UzgxNkJFMlFMM044MjFOREExUFlWMkoyS09TWDNXNUxBMQ%24%24.txt&fileSize=51&downloadUrl=APP_CUTPK7WS1IRK5XC4DDKA_MDg2NTExNTU0MTM2Njk4OTk2X0w1NjY2UzgxNkJFMlFMM044MjFOREExUFlWMkoyS09TWDNXNUxBMQ$$.txt")

If hc.GetFile("c:\data\12.txt") Then

MessageBox.show("文件下载成功","提示")

Else

MessageBox.show("文件下载失败","提示")

End If