How To Download a Binary File with the Internet Transfer Control via the GetChunk Method (229666)

MORE INFORMATION

A Variant containing an array requires 12 bytes more than the array alone. This extra data is used to describe the contents of the variant. If the variant is written directly to disk, the 12 extra bytes are written to disk as well as the array. To avoid this situation, assign the variant to an intermediate byte array and write that array to disk. The following code illustrates this method:

Private Sub Command1_Click()
    Inet1.AccessType = icUseDefault

    Inet1.URL = "http://example.microsoft.com/somefile.exe"
    Inet1.Execute , "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant
    
    Select Case State
    ' ... Other cases not shown.
  
    Case icResponseCompleted  ' 12
        Dim bDone As Boolean: bDone = False
        Dim tempArray() As Byte
        
        filesize = Inet1.GetHeader("Content-length")
        contenttype = Inet1.GetHeader("Content-type")

        Open "C:\somefile.exe" For Binary Access Write As #1
    
        ' Get first chunk.
        vtData = Inet1.GetChunk(1024, icByteArray)
        DoEvents
        
        If Len(vtData) = 0 Then
                bDone = True
        End If
        
        Do While Not bDone
            tempArray = vtData
            Put #1, , tempArray
                        
            ' Get next chunk.
            vtData = Inet1.GetChunk(1024, icByteArray)
            DoEvents
        
            If Len(vtData) = 0 Then
                bDone = True
            End If
        Loop
        
        Close #1
    End Select
End Sub