Foxtable(狐表)用户栏目专家坐堂 → 如何接收文件


  共有1478人关注过本帖树形打印复制链接

主题:如何接收文件

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
如何接收文件  发帖心情 Post By:2018/7/16 10:01:00 [只看该作者]

如在一个界面上写一个标签,标题为“2018年中秋放假通知”,点一个这个标签,就可以下载这个word文件,代码如何写

Dim hc As New HttpClient("http://127.0.0.1/download.htm")
If
hc.GetFile("c:\data\123.jpg") Then
   
MessageBox.show("文件下载成功","提示")
Else

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

End
If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 11:09:00 [只看该作者]

httprequest事件

 

Select Case e.Path
    Case "download.htm"
        e.WriteFile("d:\web\" & e.values("wjm"))
End Select

 

按钮click事件

 

Dim wjm = UrlEncode("2018年中秋放假通知.doc")

Dim hc As New HttpClient("http://127.0.0.1/download.htm?wjm=" & wjm)
If hc.GetFile("c:\" & wjm) Then
    MessageBox.show("文件下载成功","提示")
Else
    MessageBox.show("文件下载失败","提示")
End If

[此贴子已经被作者于2018/7/16 11:08:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2018/7/16 23:01:00 [只看该作者]

这里需要跳转到另外一个网页。如果要求不能跳转网页,点一下标签,标题为“2018年中秋放假通知”,就可以下载这个word文件

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/16 23:20:00 [只看该作者]

参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116747&skin=0

 回到顶部