DOC: Incorrect Internet Transfer Control GetChunk Example

MORE INFORMATION

Step-by-Step Example

1. Start Visual Basic 5.0. If you are already running Visual Basic, choose New Project on the File menu. Create a Standard EXE project. Form1 is created by default.
2. Add a CommandButton, Command1, to Form1.
3. Add an Internet Transfer Control, Inet1, to Form1.
4. Add the following code to the Code window:

         Private Sub Command1_Click()
             Inet1.Execute "http://www.microsoft.com", "GET"
             'download the start page of microsoft.com
         End Sub
   
         Private Sub Inet1_StateChanged(ByVal State As Integer)
            ' Retrieve server response using the GetChunk
            ' method when State = 12. This example assumes the
            ' data is text.
   
            Select Case State
            ' ... Other cases not shown.
   
            Case icResponseCompleted ' 12
               Dim vtData As Variant ' Data variable.
               Dim strData As String: strData = ""
               Dim bDone As Boolean: bDone = False
   
               ' Get first chunk.
               vtData = Inet1.GetChunk(1024, icString)
   
               Do While Not bDone
   
                  strData = strData & vtData
                  ' Get next chunk.
                  vtData = Inet1.GetChunk(1024, icString)
                  If Len(vtData) = 0 Then
                     bDone = True
                  End If
               Loop
   
               MsgBox strData
            End Select
   
         End Sub