Internet Transfer control

[Пенсионер]

Такая проблемка:
вот код:

Код:

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]

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"

[Пенсионер]

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

[HandKot]

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

[HandKot]

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

[Пенсионер]

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

[HandKot]

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

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

[Пенсионер]

Нет.... это не то....... задача в том чтоб последовательно перебирать проксики.....

[Пенсионер]

Все!!! Сам додумался!!! Вот как модифицыровал код чтоб получить желаймый результат:
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]

молодец  

[Пенсионер]

Сам тащюсь!!!  8)

[Sharp]

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

Win32API forever

Есть же wsock32.dll и тому подобные безобразия... Ну зачем вам эти ужасный InetTransfer Controls?