Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

нет коннекта через проксик


ther ©   (2009-06-15 21:41:00) 

день добрый...вопроспо ftp...нарыл кучу доков как тут так и на друших сайтах...но мою проблему это не решило

 InetHandle := InternetOpen(PChar('FTP'), 3, '192.168.0.1', '21', 0);
 memo1.Lines.Add('Error - '+IntToStr(GetLastError)); <= всегда 0..хорошо... но даже если я ставлю 192.168.0.2(такого нет в сети) то все равно 0
   FtpHandle := InternetConnect(InetHandle, PChar('ftp....'), 21, PChar('...'),
   PChar('...'), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
   memo1.Lines.Add('Error - '+IntToStr(GetLastError));<=5..тоесть доступ запрещен

с точно такими же настройками total коннектится...на серваке по прямому тоже все норм.. InetHandle не равен 0
ПС
делфи 2009, ХР sp 3


Сергей М.   (2009-06-17 10:02:00) [1]


> ther   (17.06.09 09:52) [10]


А в браузер у тебя "лажит по фтп" ?) Успешно ?
Тогда покажи настройки браузера в части указанных там параметров прокси-сервера для FTP-соединений ..


ther   (2009-06-17 09:52:00) [2]

<codememo1.Lines.Add('Error - '+IntToStr(GetLastError));<=5..тоесть доступ запрещен
да слушает 21...я через тотал коммандер с такими настройками без проблем лажу по фтп..блин фиг его знает...буду колупать еще
а InternetConnect в watch листе показазывает именно nil


Сергей М.   (2009-06-16 22:28:00) [3]

ftp-прокси у тебя разве на 21-м порту слушает ? Что-то сомнительно ..


> возврат как и раньше больше 0


И что тут удивительного ? Это означает, что WinInet API успешно инициализирован, в полном соответствии с описанием ф-ции в MSDN


> по прежнему nil


Что значит nil ? Результат ф-ции не указательного же типа .. В смысле 0 что ли ? Ну раз 0, то следом должно идти получение кода ошибки и его анализ ..


Dennis I. Komarov   (2009-06-16 17:27:00) [4]

А через IE работает?


ther   (2009-06-16 17:05:00) [5]

InetHandle := InternetOpen('FTP', 3, '192.168.0.1:21', nil, 0);возврат как и раньше больше 0...
а вот

   FtpHandle := InternetConnect(InetHandle, 'ftp.....com.ua', 21, '...',
       '...', INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

по прежнему nil


Сергей М.   (2009-06-16 16:38:00) [6]

hInet := InternetOpen('Мой FTP-клиент'), INTERNET_OPEN_TYPE_PROXY, 192.168.0.1:3128, nil, 0);
Win32Check(hInet <> 0);


ther   (2009-06-16 16:28:00) [7]

согласен...я чет думал что там порт пишется...видимо брал пример тоже ошибочный..но после изменений все равно эффекта нет..но судя по логике я думал она будет инициализировать с учетом есть там все таки что то или нет...а то оно вернуло успех инициализации при несуществующем адресе..хз...оставлял постой...подставлял пустую переменнуюставил Pointer...таже фигня...не подскажите что там должно быть?


Сергей М.   (2009-06-16 15:45:00) [8]


> даже если я ставлю 192.168.0.2(такого нет в сети) то все
> равно 0


Эта функция вовсе не предназначена для проверки есть у тебя чего-то там в сети или нет.

Она
Initializes an application's use of the WinINet functions.

А что это за '21', указанная предпоследним параметром ?

Должно быть

lpszProxyBypass [in]

   Pointer to a null-terminated string that specifies an optional list of host names or IP addresses


brother   (2009-06-16 10:11:00) [9]

> передача рисунка приводит к его искажению

нюню, хозяин - барин


ther   (2009-06-16 09:54:00) [10]

indy глюкавое на всю голову...передача рисунка приводит к его искажению..пробовал всего пару компонентов инди что бы навсегда от него отказаться


brother   (2009-06-16 04:20:00) [11]

если с русскими буквами на прокси не работаешь, то инди тебе в помощь...


Наверх

Титульная страница Поиск, карта сайта Написать письмо