Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с IdFTP, Проблемы при работе через сокс 5 
:(
    Опции темы
Viy_2007
Дата 28.10.2009, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
Доброго врмени суток.

Необходимо сделать подобие FTP-мэнэджера работающего через прокси-сервера (Socks 5). Для этого реализовал связку на компонентах Indy 10: 

IdFTP -> IdIOHandlerStack -> IdSocksInfo

Так вот, для большинства фтп-серверов - всё ок, подключаемся, работаем, отключаемся. Но на некоторых при подключении программа просто напросто уходит в спячку и на том конец, никаких ошибок, ничего. На прямую пробовал подлкючаться - всё ок, а через связку указанную выше - ни в какую.

Может у кого была подобная ситуация, подскажете в чем может быть проблема и как лечить?
Буду благодарен любой помощи и за ранее спасибо.
PM MAIL   Вверх
Viy_2007
Дата 28.10.2009, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
Подцепил к IdIOHandlerStack IdLogEvent. В итоге в лог записывается сначала несколько строк не отображаемых данных, а затем:

Код

220 ProFTPD 1.3.0 Server (ProFTPD) [ххх.хх.ххх.хх]


и на этом конец...

Это сообщение отредактировал(а) Viy_2007 - 28.10.2009, 16:30
PM MAIL   Вверх
Viy_2007
Дата 3.11.2009, 01:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
Совсем никаких идей?
PM MAIL   Вверх
MetalFan
Дата 3.11.2009, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
Индей обновляли? если нет - то обновляйте...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Viy_2007
Дата 3.11.2009, 23:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
А для Delphi 7 есть что-то лучше чем 10 версия?
PM MAIL   Вверх
MetalFan
Дата 4.11.2009, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
Viy_2007, 10я версия - понятие растяжимое...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Viy_2007
Дата 4.11.2009, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
10.1.5
PM MAIL   Вверх
MetalFan
Дата 4.11.2009, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
обновляй. если не поможет, будем разбираться.

Это сообщение отредактировал(а) MetalFan - 4.11.2009, 14:13


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Viy_2007
Дата 4.11.2009, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
Благодарю, обновился до версии 10.2.3 и полегчало, теперь программа не уходит в спячку, а выдаёт ошибку: "Read timed out.", хотя таймаут поставил в минуту. Т.е. после получения типа сервера она просто останавливается и ждет, но дождаться не может. Может я забыл выставить какие-либо свойства?

Код

object IdFTP1: TIdFTP
    Intercept = IdLogEvent1
    IOHandler = IdIOHandlerStack1
    IPVersion = Id_IPv4
    AutoLogin = True
    Host = 'host.com'
    Passive = True
    Password = 'password'
    Username = 'login'
    ProxySettings.ProxyType = fpcmNone
    ProxySettings.Port = 0
    Left = 96
    Top = 16
  end
  object IdIOHandlerStack1: TIdIOHandlerStack
    Destination = 'host.com:21'
    Host = 'host.com'
    Intercept = IdLogEvent1
    MaxLineAction = maException
    Port = 21
    DefaultPort = 0
    TransparentProxy = IdSocksInfo1
    ReadTimeout = 60000
    Left = 128
    Top = 16
  end
  object IdSocksInfo1: TIdSocksInfo
    Host = '127.0.0.1'
    Version = svSocks5
    Left = 160
    Top = 16
  end


Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.ConnectTimeout := 60000;
  IdFTP1.ReadTimeout := 60000;
  IdFTP1.Connect;
  if IdFTP1.Connected then
  begin
    IdFTP1.List(ListBox1.Items);
    IdFTP1.Disconnect;
    ShowMessage('ok');
  end
  else
    ShowMessage('error');
end;
PM MAIL   Вверх
Viy_2007
Дата 5.11.2009, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
Нет идей?
PM MAIL   Вверх
Viy_2007
Дата 9.11.2009, 01:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
MetalFan, подскажите пожалуйста в какую сторону хоть копать?
PM MAIL   Вверх
MetalFan
Дата 9.11.2009, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
Viy_2007, не скажу - надо смотреть. если есть возможность, сляпай тестовое приложение, на котором можно воспроизвести проблему. и прилепи аттачем исходники.

Добавлено через 1 минуту и 28 секунд
и еще, а другие программы через сокс5 с этими "странными" серверами работают?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.