| Вопрос: inet1 & процесс закачки | Добавлено: 18.03.04 16:46 |
Автор вопроса:  vb60
|
|
Есть код: Option Explicit Dim SSS As String Private Sub Command1_Click() Inet1.Execute "http://www.rbc.ru", "GET" End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Dim vtData As String Select Case State Case icResponseCompleted '12 vtData = Inet1.GetChunk(100) Do While vtData <> "" vtData = Inet1.GetChunk(100, icString) SSS = SSS & vtData Debug.Print Len(SSS) DoEvents Loop End Select End Sub '************************************** В Debug.Print выводит: 100 200 .... 1900 2000 - и потом сразу вся страница целиком 55852 - конец загрузки. А почему не выводятся данные между 2000 и 55852 ??? HELP !!! P.S. Перепробывал в Inet1.GetChunk(100 , 200, 1024 ,10, 5 и т.д. Помогло только Inet1.GetChunk(1, icString), но жутко медленно грузит.
|
| Ответы | Всего ответов: 0 |
Страница: