Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum) - [70] :: Прикладное программирование

Czechoslovak

Цитата:

Как не у меет если у idFTP есть настройка типа прокси fpcmHttpProxyWithFtp

Уже не один год разработчики обещают доделать этот тип прокси, пока в исходниках там лишь заглушка (модуль IdFTP.pas):

Код:

fpcmHttpProxyWithFtp :
begin
{GET ftp://XXX:YYY@indy.nevrona.com/ HTTP/1.0
Host: indy.nevrona.com
User-Agent: Mozilla/4.0 (compatible; Wincmd; Windows NT)
Proxy-Authorization: Basic B64EncodedUserPass==
Connection: close}
raise EIdSocksServerCommandError.Create(RSSocksServerCommandError);
end;

Если только кто вручную сам правил и дописывал.

0D0A

Цитата:

Когда-то использовал для этого HTTPort SDK. Не знаю насколько это проект жив сейчас, но может натолкнет. Вот тут вроде что-то написано.

Спасибо за идею. Сразу возник вопрос. Позволит ли HTTPort подключиться через прокси к удаленному FTP-серверу и работать с ним по обычному FTP-протоколу? Или на сервере обязательно надо ставить приемник - HTTHost?

Добавлено:
Пробовал использовать TIdConnectThroughHttpProxy. На также безуспешно.

Поставил для отладки локальный прокси-сервере - HandyCache, через который Total Commander без проблем выходит и работает с FTP (при установке типа прокси "HTTP-прокси с поддержкой FTP" или "HTTP CONNECT", с другими типами не подключается).

Выполнение этого кода возвращает "Connection Closed Gracefully" , в мониторе HandyCache попытка подключения фиксируется, в качестве ответа сервера указывается "407 Proxy Authentication Required (HC)".

Т.е. авторизация не проходит. Может, что-то неправильно делаю, подскажите. Буду признателен.

Код:

wFTP := TIdFTP.Create(nil);
try
wFTP.CreateIOHandler(TIdIOHandlerStack);
with wFTP.IOHandler as TIdIOHandlerStack do
begin
UseNagle := False;
TransparentProxy := TIdConnectThroughHttpProxy.Create(wFTP);
TransparentProxy.Host := 192.168.111.111; //IP-адрес прокси
TransparentProxy.Port := 8080;
TransparentProxy.Username := 'ProxyUserName'; //Логин для подключения к прокси
TransparentProxy.Password := 'ProxyUserPassword'; //Пароль для подключения к прокси
TransparentProxy.Enabled := True;
Open;
If Opened
then ShowMessage('Opened'); //у меня open проходит
end;
try
wFTP.Passive := True;
wFTP.Host := 'ftp.name.ru'; //удаленный ftp-сервер
wFTP.Username := 'name'; //логин для ftp-сервера
wFTP.Password := 'name1'; //пароль для ftp-сервера
wFTP.Port := 21;
wFTP.ConnectTimeout := 10000;
wFTP.Connect; //после выполнения выдает ошибку
except
on E: EIdException do
begin
ShowMessage('Ошибка подключения');
end;
end;
If wFTP.Connected then
begin

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111