| Вопрос: Проблема с использованием FTP через прокси-сервер | Добавлено: 05.01.11 02:07 |
Автор вопроса:  Don_Saliery | Web-сайт: arnoldgames.areal.ru | ICQ: 380283217 |
|
Доброго времени суток! Пытаюсь соединиться с FTP через прокси-сервер, в hOpen ненулевой дескриптор, а hConnection равен нулю, подскажите, что я не так делаю? Пароль с логином я правильно указывал!
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Const INTERNET_OPEN_TYPE_PROXY = 3 Const INTERNET_FLAG_PASSIVE = &H8000000 Const INTERNET_SERVICE_FTP = 1 Const INTERNET_DEFAULT_FTP_PORT = 21 Private Sub Command1_Click() Dim hOpen As Long, hConnection As Long hOpen = InternetOpen("Ftp-Proxy", INTERNET_OPEN_TYPE_PROXY, "192.168.0.3:21", vbNullString, 0) hConnection = InternetConnect(hOpen, "ftp.arnoldgames.lightscene.ru", INTERNET_DEFAULT_FTP_PORT, "vorota01-arnoldg", "***", INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0) MsgBox hOpen & " " & hConnection Call InternetCloseHandle(hConnection) Call InternetCloseHandle(hOpen) End Sub |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HIWORD Вопросов: 0 Ответов: 14 |
Профиль | | #1 | Добавлено: 05.01.11 04:05 |
|
InternetGetLastResponseInfo
220 ProFTPD 1.3.2e Server (ProFTPD) [89.111.178.50] 331 Password required for vorota01-arnoldg 530 Login incorrect. |
||
|
Номер ответа: 2 Автор ответа: Don_Saliery ICQ: 380283217 Вопросов: 9 Ответов: 8 |
Web-сайт: Профиль | | #2 | Добавлено: 07.01.11 12:26 |
| HIWORD, логин здесь не при чём. У провайдера была приостановка сервера. Они уже включили и поменяли адрес, теперь ftp.arnoldgames.areal.ru , логин vorota01-arnoldg . Всё равно не работает! | ||
|
Номер ответа: 3 Автор ответа: HIWORDВопросов: 0 Ответов: 14 |
Профиль | | #3 | Добавлено: 07.01.11 13:10 |
|
Don_Saliery, InternetOpen - это документированная функция и согласно msdn:
Return Value
Returns a valid handle to the FTP, Gopher, or HTTP session if the connection is successful, or NULL otherwise. To get extended error information, call GetLastError. An application can also use InternetGetLastResponseInfo to determine why access to the service was denied. Что за детский сад - "все равно не работает"? Какой код и описание ошибки из GetLastError, InternetGetLastResponseInfo? |
||
|
Номер ответа: 4 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 08.01.11 02:35 |
| если бейсик6 то гетластэррор вечно будет выдавать 0 | ||
|
Номер ответа: 5 Автор ответа: HIWORDВопросов: 0 Ответов: 14 |
Профиль | | #5 | Добавлено: 08.01.11 03:07 |
| Мы ведь знаем о существовании Err.LastDllError ? | ||
Страница: 1 |