接收文件
HttpClient的GetFile方法用于接收从服务器返回的文件,语法为:
GetFile的语法为:
GetFile(FielName)
FileName:将接收到的文件保存在本地的文件名,含路径。
如果成功接收并保存文件,GetFile会返回True,否则返回False。
一个例子
1、服务端项目的HttpRequest事件代码:
Select
Case e.Path
Case "download.htm"
e.WriteFile("d:\web\abc.jpg")
End
Select
2、客户端项目可以通过以下代码下载文件:
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
下载的文件会保存为c:\data\123.jpg