VBNet - Форум - HELP! Microsoft Internet Transfer Control 6.0

Вопрос: HELP! Microsoft Internet Transfer Control 6.0 Добавлено: 18.10.08 20:56

Автор вопроса: werber | Web-сайт: www.werbersoft.ru

С помощью Microsoft Internet Transfer Control 6.0 закачиваю файл. Функция выглядит следующим образом:

Public Function Downloads()
Dim b() As Byte
Form1.Inet1.Protocol = icHTTP
Form1.Inet1.URL = "www.sample.ru\sample.txt" 'это пример, в действительности закачивается реальный текстовый файл
b() = Form1.Inet1.OpenURL(Form1.Inet1.URL, icByteArray)
Open App.Path + "\sample.txt" For Binary Access Write As #1
Put #1, , b()
Close #1
End Function

Это всё конечно замечательно, НО: при эта функция вызывается при нажатии на кнопку. При этом, если старая закачка не завершилась, а я нажимаю опять на кнопку появляется сообщение "Run-time error '35764'; Still executing last request". Тоесть попросту проге не нравится, что я повторил скачивание, не дождавшись конца предыдущего. У меня появилась такая мысль, что можно просто пока идёт закачка, ставить Enable кнопки равный False, дабы не провоцировать ошибку. Но я не знаю как отследить, что идёт скачивание. Как это сделать? Помогите, пожалуйста!
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #1	Добавлено: 18.10.08 21:47
	Dim bWorking As Boolean Private Sub Command1_Click() Dim bData() As Byte 'установка протокола для Inet1 Form1.Inet1.Protocol = icHTTP 'установка URL для Inet1 Form1.Inet1.URL = "www.domkratt.com/blog" 'проверяем значение флага bWorking 'если bWorking ложно, то начинаем скачивание If bWorking = False Then 'устанавливаем флаг bWorking - скачивание началось bWorking = True 'выключаем кнопку, стартующую закачку Command1.Enabled = False 'скачиваем файл в массив bData bData() = Form1.Inet1.OpenURL(Form1.Inet1.URL, icByteArray) 'снимаем флаг bWorking - скачивание закончилось bWorking = False 'ыключаем кнопку, стартующую закачку Command1.Enabled = True End If 'записываем данные из массива bData в файл Open "d:\sample.txt" For Binary Access Write As #1 Put #1, , bData() Close #1 End Sub Ответить

Номер ответа: 2 Автор ответа: werber Вопросов: 71 Ответов: 112	Web-сайт: www.werbersoft.ru Профиль \| \| #2	Добавлено: 19.10.08 00:05
	Executioner, ОГРОМНЕЙШИЙ ТЕБЕ РЕСПЕКТ! Спасибо тебе большое. Я не забываю людей, которые мне помогли. Если чё, обращайся. Чем смогу, помогу. Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #3	Добавлено: 19.10.08 01:16
	Всегда рады... Ответить

Страница: 1 |