Не передается файл по FTP

Игорь С

По такому коду (это переделанный в VBA фрагмент примера SimpleFTP от Микрософта передается текстовый файл на сервер: Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Public Const INTERNET_INVALID_PORT_NUMBER = 0 Public Const INTERNET_SERVICE_FTP = 1 Public Const FTP_TRANSFER_TYPE_BINARY = &H2 Public Const FTP_TRANSFER_TYPE_ASCII = &H1dwSeman = 0 hOpen = InternetOpen("my program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)hConnection = InternetConnect(hOpen, server, INTERNET_INVALID_PORT_NUMBER, _ user, password, INTERNET_SERVICE_FTP, dwSeman, 0)'dwType = FTP_TRANSFER_TYPE_ASCII dwType = FTP_TRANSFER_TYPE_BINARYIf (FtpPutFile(hConnection, dirName & fileName, fileName, _ dwType, 0) = False) Then ErrorOut Err.LastDllError, "DJFtpPutFile" Call DJFtpClose Exit Sub end ifИ все работает нормально в большинстве случаев. Однако, например, когда я подключился через модем мобильного интернета (формат EDGE) сервер "вернул расширенные сведения" - Code message : 12003.200 TYPE is now 8-bit binary500 I won't open a connection to 10.15.133.54 (only to 81.23.24.96)500 Unknown commandОтмечу, что через модем мобильного интернета МТС - эта штука работала.Может кто подскажет, где зарыта собака или где найти коды ошибок?
2 ответа

Игорь С

Какие конкретно коды ошибок тебя интересуют?Сервер тебе уже четко сказал: "I won't open a connection to 10.15.133.54 (only to 81.23.24.96)"Разговаривай с администратором этого сервера, почему он принимает коннекты только с определенного адреса.


Игорь С

Скорее всего 81.23.24.96 это адрес шлюза, а сервер принимает соединения только от публичных адресов.