以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何接收文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121934)
--  作者：lihe60
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  发布时间：2018/7/16 23:01:00
--  
这里需要跳转到另外一个网页。如果要求不能跳转网页，点一下标签，标题为“2018年中秋放假通知”，就可以下载这个word文件
--  作者：有点蓝
--  发布时间：2018/7/16 23:20:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116747&skin=0