使用VB在HTTP和FTP站点下载文件时不知道文件大小
编号：QA000691
建立日期: 1999年3月24日 最后修改日期：2002年4月21日
所属类别：
htm:
VB
Windows98
使用VB的internet transfer控件在HTTP和FTP站点下载文件时不知道文件大小及以完成多少，以做一个进度指示；如何加进拨号网络选择进程序？请指教VB新手！
回答:
对于FTP，你可以使用Execute方法执行FTP命令SIZE获得文件大小。然后在StateChanged事件中可以获得返回的文件大小。
Private Sub Command1_Click()
Inet1.Execute "ftp://127.0.0.1", "SIZE 1.gif"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时，用 GetChunk 方法检索服务器的响应。
Dim vtData As Variant ' Data variable.
Select Case State
'...没有列举其它情况。
Case icError '11
'出现错误时，返回 ResponseCode 和 ResponseInfo。
vtData = Inet1.ResponseCode & ":" & _
Inet1.ResponseInfo
Case icResponseCompleted ' 12
Dim strData As String
Dim bDone As Boolean: bDone = False
'取得第一个块。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
'取得下一个块。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
If Len(vtData) = 0 Then
bDone = True
End If
Loop
MsgBox strData
End Select
End Sub
对于HTTP下载，你可以用GetHeader(Content-length)来获得文件大小。但不是所有HTTP下载时都能获得文件长度，特别是通过代理服务器下载文件时。如：
Private Sub Form_Load()
Inet1.Execute "http://askpro.yeah.net/"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = icResponseReceived Then
MsgBox "File size is " & Inet1.GetHeader("Content-Length")
End If
End Sub
拨号网络可以参考：QA000035 "在VB中如何实现自动启动拨号网络"。
此问题由李海回答。
| |
|
|
| |
|
|
