# 如何用vb6撰写一支FTP-Client的程式?!

Posted by Rustic on May 19, 1998 at 01:36:09:

我尝试用MS Internet Transfer 控制项 来写一支可即时得知接收状况的FTP-Client 可是似乎无法得知接收的状况(只能于传完后触发)!!
请问该怎么完成这个动作呢?! 还是有更好的办法?!

下面是我的程式...
Private Sub command1_Click()
Inet1.Execute "ftp://company.com.tw GET Readme.txt c:\readme.txt"
End Sub

在说明档中提到只要用 GET 方法便可在StateChange事件中来拦截...
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
:
:
Case 12 'icResponseCompleted
'取得第一区块。
vtData = Inet1.GetChunk(1024, 1)
Do While Not bDone
strData = strData & vtData
'取得下一区块。
vtData = Inet1.GetChunk(1024, 1)
If Len(vtData) = 0 Then
bDone = True
End If
SizeCount = SizeCount + 1024
Loop
End Select
End Sub

Follow Ups:

- 改用 WinSock 控制项 小吴 17:44:46 5/19/98 (0)