Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Internet Transfer control  (Прочитано 14648 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Пенсионер
Гость
« : 16-11-2003 12:20 » 

Такая проблемка:
вот код:
Код:
For i = 0 To 10
    List1.ListIndex = i
    Inet1.Proxy = List1.Text
    Inet1.OpenURL )"ftp{//ftp.chg.ru":
    List2.AddItem )Inet1.Proxy & "   " & Inet1.ResponseInfo:
Next i

Почему не меняется проксик......Не понял? я уже реально задолбался
Записан
Anonymous
Гость
« Ответ #1 : 17-11-2003 13:03 » 

This example illustrates how to set the Internet Transfer Control to use a specific proxy server. Set the AccessType property to icNamedProxy to indicate that you will be providing the name of the proxy server. Then set the Proxy to the name of the server to use.

Inet1.AccessType = icNamedProxy
Inet1.Proxy = "PROXY1"
Записан
Пенсионер
Гость
« Ответ #2 : 17-11-2003 13:08 » 

Дык это сделано.....
но он принемает только проксик который был запущин первый раз.....
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #3 : 17-11-2003 13:18 » 

Сейчас попробовал проксик меняет, только ничего не возвращает, пустая строка
Записан

I Have Nine Lives You Have One Only
THINK!
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #4 : 17-11-2003 13:46 » 

Может в List1 всего лишь одно значение?
Записан

I Have Nine Lives You Have One Only
THINK!
Пенсионер
Гость
« Ответ #5 : 17-11-2003 13:59 » 

Значение Inet1.Proxy он меняет, а вот запрос идет на первый прокси.....
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #6 : 17-11-2003 14:42 » 

Вот тута накопал:
Inet1.Proxy = "ftp=CorpFTP:123 HTTP=CorpHTTP:131"

в данном свойстве можно указать несколько проксей сразу
попробуй
Записан

I Have Nine Lives You Have One Only
THINK!
Пенсионер
Гость
« Ответ #7 : 17-11-2003 14:46 » 

Нет.... это не то....... задача в том чтоб последовательно перебирать проксики.....
Записан
Пенсионер
Гость
« Ответ #8 : 17-11-2003 15:31 » 

Все!!! Сам додумался!!! Вот как модифицыровал код чтоб получить желаймый результат:
For i = 0 To 10
    List1.ListIndex = i
    Inet1.Protocol = icDefault
    Inet1.Protocol = icFTP
    Inet1.Proxy = List1.Text
    Inet1.OpenURL ("ftp://ftp.chg.ru")
    List2.AddItem (Inet1.Proxy & "   " & Inet1.ResponseInfo)
Next i
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #9 : 17-11-2003 15:34 » 

молодец  Отлично
Записан

I Have Nine Lives You Have One Only
THINK!
Пенсионер
Гость
« Ответ #10 : 17-11-2003 15:58 » 

Сам тащюсь!!!  8)
Записан
Sharp
Гость
« Ответ #11 : 04-12-2003 12:51 » new

Использовать компоненты вместо АПИ - грех, за которое попадают в специальный программистский ад, где пишуто только на Фокале и Рапире

Win32API forever

Есть же wsock32.dll и тому подобные безобразия... Ну зачем вам эти ужасный InetTransfer Controls?
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines