版主好,
我在用Httpclient下载文件,怎么都不成功。
我测试帮助文件的例子如下:
Foxtable 高开版2020.5.1日版本。都在本机. 都是管理员身份运行:
'服务器代码:
Select Case e.Path
Case "WebDownLoadTagPics.htm"
e.WriteFile("C:\MyTest\a.txt")
End Select
客户端代码:
Dim hc As New HttpClient("http://127.0.0.1/WebDownLoadTagPics.htm")
If hc.GetFile("C:\MyTest\B.txt") Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
无论怎么测试,都是失败。而且没有任何延时,立刻显示失败。我也检查了源文件,没发现任何问题。服务器那边经测试也确实收到了请求。
我实在想不到这么简单的代码到底哪里有问题? 版主能提供思路吗?