Получение траффика в момент загрузки через InternetTransferControl

@warlord@au.ru · Регистрация: 16.08.2007

Author24 — интернет-сервис помощи студентам

Как получить трафик в момент загрузки БИНАРНОГО файла через InternetTransferControl?

С загрузкой текстовых ХТМЛ и прочегоп роблемм нет - всё можно решить через 'Private Sub Inet1_StateChanged(Index As Integer, ByVal State As Integer)', но в случае с загрузкой бинарника следующим способом:

Visual Basic

nFile = FreeFile()
bData() = Inet1(1).OpenURL(url, icByteArray)
Open MyImagePath For Binary As #nFile
Put #nFile, , bData()
Close #nFile

строка 'bData() = Inet1(1).OpenURL(url, icByteArray)' 'зависает' до момента пока файл не будет загружен. При попытке читать содержимое и объём bDate() с помощью таймера с интеревалом 1 мс ничего не происходит, тоесть сначала таймер видит переменную пустой а после завершения загрузки пишет объём загруженного файла - НО никогда не пишет в момент загрузки.

Как быть? ТрансферКонтрол использую дабы не заморачиваться с проксями так как та программа котоая уже написана идёт под настройками ИЕ и ей не нужны никакие донастройки если в ИЕ всё настроено.

Если же есть прсотой способ 'передирать' настройки ИЕ и применять их для WinSock (тоесть что бы он не напрягал пользователя запросами настроек прокси и прочего) то с удовольствием ознакомлюсь и с методами загрузки через ВинСок.

Но всё же так как всё уже отлажено и работает (не считая подсчёта трафика) хотелось бы пример с ИнтернетТрансферКонтрол.

Спасибо заранее.

@Alexey Spirin · 14.08.2011, 12:59

Если не ошибаюсь - делается это при помощи метода Execute и события State_Changed. Но проблема в том, что у меня этот контрол жутко глючит. После второго запуска программы и выполнения метода Execute ничего не происходит. Поищи по форуму - не так давно разговор шел о закачке файлов напрямую через API. Если не найдешь - стучись в аську или мыло давай - пример скину.

14.08.2011, 13:11

Через API - это URLDownloadToFile / URLDownloadToCacheFile

@Alexey Spirin · 14.08.2011, 13:15

а с URLDownloadToFile можно будет кол-во переданных байт уследить?)

14.08.2011, 13:19

Можно. И не только байты, а еще и всякие status-message'ы...

14.08.2011, 13:23

Более того - можно использовать InternetOpenUrl и InternetReadFile (ну и прочую лабуду). Да и callback-а на все функции WinINet'a никто не отменял (InternetSetStatusCallback)...

@warlord@au.ru · 14.08.2011, 14:30 **[ТС]**

А як этот калбек юзать?

@warlord@au.ru · 15.08.2011, 11:54 **[ТС]**

Есть ли примеры с использованием Калбека приминительно к ТрансферКонтролу?

@warlord@au.ru · 15.08.2011, 16:24 **[ТС]**

Как получить (перехватить) объём трафика в InternetTransferControl?

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	14.08.2011, 12:59	2
	Если не ошибаюсь - делается это при помощи метода Execute и события State_Changed. Но проблема в том, что у меня этот контрол жутко глючит. После второго запуска программы и выполнения метода Execute ничего не происходит. Поищи по форуму - не так давно разговор шел о закачке файлов напрямую через API. Если не найдешь - стучись в аську или мыло давай - пример скину. 0

Messir
	14.08.2011, 13:11	3
	Через API - это URLDownloadToFile / URLDownloadToCacheFile

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	14.08.2011, 13:15	4
	а с URLDownloadToFile можно будет кол-во переданных байт уследить?) 0

Messir
	14.08.2011, 13:19	5
	Можно. И не только байты, а еще и всякие status-message'ы...

Messir
	14.08.2011, 13:23	6
	Более того - можно использовать InternetOpenUrl и InternetReadFile (ну и прочую лабуду). Да и callback-а на все функции WinINet'a никто не отменял (InternetSetStatusCallback)...

@warlord@au.ru 0 / 0 / 1 Регистрация: 16.08.2007 Сообщений: 271
	14.08.2011, 14:30 [ТС]	7
	А як этот калбек юзать? 0

@warlord@au.ru 0 / 0 / 1 Регистрация: 16.08.2007 Сообщений: 271
	15.08.2011, 11:54 [ТС]	8
	Есть ли примеры с использованием Калбека приминительно к ТрансферКонтролу? 0

@warlord@au.ru 0 / 0 / 1 Регистрация: 16.08.2007 Сообщений: 271
	15.08.2011, 16:24 [ТС]	9
	Как получить (перехватить) объём трафика в InternetTransferControl? 0