|
Интернет прокси | ☑ | ||
---|---|---|---|---|
0
DeMi4
20.01.12
✎
10:36
|
Нужно ли указывать при сединении по ФТП прокси если его нету.
|
|||
1
Черт
20.01.12
✎
10:37
|
а что можно указать, если ничего нет
|
|||
2
Wobland
20.01.12
✎
10:37
|
<Прокси> (необязательный)
с вас 500 руб |
|||
3
DeMi4
20.01.12
✎
10:39
|
Почему то просто метод не работает найти файлы, ошибку аутентификации выдает. Не хочет по всем каталогам искать
|
|||
4
Wobland
20.01.12
✎
10:40
|
(3) FTPСоединение в Попытке же, правда?
|
|||
5
DeMi4
20.01.12
✎
10:41
|
Ну да в попытке
|
|||
6
DeMi4
20.01.12
✎
10:42
|
Попытка
ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()),,Истина); ФТП.ТекущийКаталог(); ФТП.УстановитьТекущийКаталог(СокрЛП(Константы.КаталогЗагрузки.Получить())); НайденныеФайлы = ФТП.НайтиФайлы(СокрЛП(Константы.КаталогЗагрузки.Получить()),"*.dbf",Истина); Файлы=НайденныеФайлы; |
|||
7
DeMi4
20.01.12
✎
10:43
|
Что именно в этом проблема
|
|||
8
Wobland
20.01.12
✎
10:43
|
(6) Попытка
Новый FTPСоединение(""); Исключение Предупреждение("я дурак!"); КонецПопытки |
|||
9
DeMi4
20.01.12
✎
10:46
|
Сообщение = Новый СообщениеПользователю;
СпрСтрок = Справочники.СтрокиФ130; ДБФ = Новый("XBase"); Попытка ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()),,Истина); ФТП.ТекущийКаталог(); ФТП.УстановитьТекущийКаталог(СокрЛП(Константы.КаталогЗагрузки.Получить())); НайденныеФайлы = ФТП.НайтиФайлы(СокрЛП(Константы.КаталогЗагрузки.Получить()),"*.dbf",Истина); Файлы=НайденныеФайлы; Если Файлы.Количество()>0 Тогда Для каждого ТекущийФайл из файлы Цикл Сообщение.Текст="Выполняется обработка файла: "+ТекущийФайл.ПолноеИмя; ФТП.Получить(ТекущийФайл.ПолноеИмя,КаталогВременныхФайлов()+ТекущийФайл.Имя);//Перетащим на компьютер с ФТП файл для более быстрого чтения //Определим в какой именно документ будет заносить данные //Если есть _К то в товары //Если нету то в строки Если Прав(ТекущийФайл.ИмяБезРасширения,2)="_K" Тогда РезультатПоиска=ПоискДокумента(ТекущийФайл.ИмяБезРасширения); Если РезультатПоиска="НеНайден" Тогда Док= Документы.ТоварыИзОС; НовыйДок=Док.СоздатьДокумент(); ЗаполнитьОсновныеДанные(НовыйДок,ТекущийФайл.ИмяБезРасширения); ЗаполнениеТоварногоДокумента(НовыйДок,ТекущийФайл.Имя); НовыйДок.Записать(); Иначе ДокОбъект=РезультатПоиска.ПолучитьОбъект(); Если ДокОбъект.Проведен=Истина Тогда ДокОбъект.Проведен=Ложь КонецЕсли; ЗаполнитьОсновныеДанные(ДокОбъект,ТекущийФайл.ИмяБезРасширения); ДокОбъект.ТоварыКасса.Очистить(); ЗаполнениеТоварногоДокумента(ДокОбъект,ТекущийФайл.Имя); ДокОбъект.Записать(); конецЕсли; Иначе РезультатПоиска=ПоискДокумента(ТекущийФайл.ИмяБезРасширения); Если РезультатПоиска="НеНайден" Тогда Док= Документы.ДанныеИзОС; НовыйДок=Док.СоздатьДокумент(); ЗаполнитьОсновныеДанные(НовыйДок,ТекущийФайл.ИмяБезРасширения); ЗаполнениеСтроковогоДокумента(НовыйДок,ТекущийФайл.Имя); НовыйДок.Записать(); Иначе ДокОбъект=РезультатПоиска.ПолучитьОбъект(); Если ДокОбъект.Проведен=Истина Тогда ДокОбъект.Проведен=Ложь КонецЕсли; ЗаполнитьОсновныеДанные(ДокОбъект,ТекущийФайл.ИмяБезРасширения); ДокОбъект.Строки.Очистить(); ЗаполнениеСтроковогоДокумента(ДокОбъект,ТекущийФайл.Имя); ДокОбъект.Записать(); КонецЕсли КонецЕсли; Сообщение.Сообщить(); КонецЦикла КонецЕсли; Сообщение.Текст="Загрузка данных с FTP выполнена успешно "+ТекущаяДата(); Сообщение.Сообщить(); Исключение Сообщение.Текст=ОписаниеОшибки(); Сообщение.Сообщить(); КонецПопытки; |
|||
10
DeMi4
20.01.12
✎
10:46
|
Дак нет какая связь попытки и соединения по ФТП
|
|||
11
Wobland
20.01.12
✎
10:46
|
(9) читать (8) до просветления
|
|||
12
DeMi4
20.01.12
✎
10:48
|
Все абсолютно так же написано
|
|||
13
Wobland
20.01.12
✎
10:49
|
(12) у тебя между Попыткой и Исключением чуть более одной строки
|
|||
14
DeMi4
20.01.12
✎
10:50
|
А это то как может повлиять
|
|||
15
Ковычки
20.01.12
✎
10:50
|
проверь експлорером, не ие
|
|||
16
Defender aka LINN
20.01.12
✎
10:51
|
(3) "ошибку аутентификации выдает" - ну да, это ж явно с прокси проблема.
|
|||
17
Wobland
20.01.12
✎
10:51
|
(14) на какой строке оно у тебя в исключение вываливается?
|
|||
18
Wobland
20.01.12
✎
10:52
|
(16) не ври, проблема с тем, кто прокси не указывает
|
|||
19
DeMi4
20.01.12
✎
10:52
|
17 на методе найти файлы
|
|||
20
Wobland
20.01.12
✎
10:53
|
(19) -> (15)
|
|||
21
Ковычки
20.01.12
✎
10:54
|
видать стенка не может обеспечить активный режим (в восьмерке не знаю есть ли возможноть с пассивным работать)
|
|||
22
Wobland
20.01.12
✎
10:55
|
(21) предпоследний (вроде) параметр у FTPСоединение("");
|
|||
23
DeMi4
20.01.12
✎
10:57
|
Все нормально работает если через експлорер, и в 8 захожу используя пассивный режим
|
|||
24
Ковычки
20.01.12
✎
11:03
|
(23) именно через експлорер, а не через интернет експлорер ?
|
|||
25
DeMi4
20.01.12
✎
11:04
|
Да именно через проводник
|
|||
26
Ковычки
20.01.12
✎
11:09
|
<ПассивноеСоединение> (необязательный)
Тип: Булево. Определяет тип ftp-соединения. Значение по умолчанию: Ложь |
|||
27
Ковычки
20.01.12
✎
11:10
|
<Прокси> (необязательный)
Тип: ИнтернетПрокси. Прокси, используемый для соединения с сервером. Значение по умолчанию: Системные установки прокси-сервера |
|||
28
DeMi4
20.01.12
✎
11:11
|
Ну и так и так пробовал
|
|||
29
DeMi4
20.01.12
✎
11:12
|
ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()));
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |