如何自动下载HTTP文件
编号：QA001161
建立日期: 1999年6月12日 最后修改日期：1999年6月12日
所属类别：
gwok:
中文 Windows 95
开发工具(版 本): 中文 VB5.0
问题描述:
我想用VB编制一个程序,自动下载并保存一个远程文件,这个文件可能是htm文件,txt文件,或者其他可以访问的文件,比如:.dbf文件。请问具体如何实现?
下载例子:
http://www.nb.zj.cninfo.net/stock/stock.dbf
http://203.207.171.4/xjy/stock/szt.txt
回答:
在VB中有一个Internet Transfer Control控件可以用来下载HTTP和FTP文件。下面是一个例子：
Private Sub Command2_Click()
MsgBox Inet1.OpenURL("http://www.nb.zj.cninfo.net/stock/stock.dbf")
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant ' Data variable.
Select Case State
' ... Other cases not shown.
Case icResponseCompleted ' 12
' Open a file to write to.
Open "c:\temp\stock.dbf" For Binary Access _
Write As #1
' Get the first chunk. NOTE: specify a Byte
' array (icByteArray) to retrieve a binary file.
vtData = Inet1.GetChunk(1024, icString)
Do While LenB(vtData) > 0
Put #1, , vtData
' Get next chunk.
vtData = Inet1.GetChunk(1024, icString)
Loop
Put #1, , vtData
Close #1
End Select
End Sub
另外可以使用ResponseCode 属性获得服务器返回的代码。
此问题由李海回答。
| |
|
|
| |
|
|
