|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2010, 16:04 | #1 |
Регистрация: 11.08.2010
Сообщений: 6
|
proxy server
Уважаемые господа! Вопрос по соединению с proxy сервером.
Вот программа, работает отлично, соединяется с FTP сервером, но через Proxy, что-то тормозит. Посмотрите, пожалуйста, в чем проблема! 1 Dim hConnection As Long, hOpen As Long, sOrgPath As 2 hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) 3 hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PROXY, "192.168.2.36", "8080", 3) 4 hOpen = InternetOpen("API-Guide sample program", HTTP_CONNECT, "login", "password", 0) 5 hConnection = InternetConnect(hOpen, "195.46.105.233", INTERNET_DEFAULT_FTP_PORT, "xxxxx", "xxxxx", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0) 'connect to the FTP server sOrgPath = String(MAX_PATH, 0) 'create a buffer to store the original directory 6 FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath) 'get the directory 7 FtpSetCurrentDirectory hConnection, "/www/xxxxxx.ru/Reports" И так далее все прекрасно работает с компьютера, который напрямую подключен в интернет. Строка 3 - соединение с Proxy, строка 4 - login и пароль на Proxy. С подобными параметрами Total Commander входит на Proxy без проблем. (строка 3 и 4) Заранее спасибо! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Proxy Server Indy | GvR | Работа с сетью в Delphi | 4 | 14.08.2014 22:08 |
[c++] Client-Server: GET request refused by the server | Pumych | Помощь студентам | 2 | 22.08.2010 23:36 |
Доступ к БД (SQL server) в ОС Windows server 2003 | Mann | SQL, базы данных | 2 | 07.12.2008 19:15 |
Proxy | Paranoic | Свободное общение | 1 | 08.06.2007 08:48 |
Proxy | Veytarn | Свободное общение | 6 | 17.12.2006 01:24 |