1С:Предприятие 8 + FTP + прокси сервер #309375


#0 by ezzhik
Чего-то у меня не получается настроить FTP обмен в 1С:Предприятие 8 через прокси сервер, не могу найти где вбивается адрес прокси сервера.
#1 by AversDik2
FTPСоединение (FTPConnection) Прокси (Proxy) Использование: Только чтение. Описание: Тип: ИнтернетПрокси. Прокси, через который установлено соединение. ИнтернетПрокси (InternetProxy) Установить (Set) Синтаксис: Установить(<Протокол>, <Сервер>, <Порт>)
#2 by ezzhik
AversDik2, объясни для чайника на пальцах свой ответ
#3 by ezzhik
Ну или почти для чайника: я не программист, я администратор. Да я пойму :)
#4 by Timuss
в синтаксис помощник загляни...
#5 by Immortal
эмм Procedure UploadToInternetShop  Export //получим структуру параметров     Хранилище = Константы.InternetShop.Получить; Структура =    Хранилище.Получить; Если Структура <> Неопределено тогда                    //сделаем прайс Прайс = Обработки.ПечатьПрайсЛиста.Создать; Прайс.ДатаПрайса = ТекущаяДата; Прайс.БезОтсутствующихВКомпании = Истина; Прайс.БезПустыхЦен = Истина; Прайс.ВалютаОтчета = Константы.ВалютаУправленческогоУчета.Получить; Прайс.ВВалютеОтчета = Истина; Прайс.ВыводитьДополнительныеПоляВОтдельнойКолонке = Истина; Прайс.КратностьВалютыОтчета = 1; Прайс.КурсВалютыОтчета = 1; Прайс.Организация = Структура.ОрганизацияFTP; Прайс.ОтображатьИерархиюВЦвете = Истина; Прайс.ОтображатьСтрокуОтбора = Ложь; Параметры = Новый Структура; Параметры.Вставить("ОтборТипЦен",                 Истина); Параметры.Вставить("СравнениеТипЦен", ВидСравнения.Равно); Параметры.Вставить("ЗначенияТипЦен",    Структура.ТипЦен); //Прайс.ПостроительОтчета.ЗаполнитьНастройки; Отбор = Прайс.ПостроительОтчета.Отбор.Найти("Склад"); Прайс.ЗаполнитьПостроительОтчетаПоЦенамНоменклатуры(Параметры,Ложь); Настройки = Прайс.ПостроительОтчета.ПолучитьНастройки; Если Отбор = Неопределено тогда ДоступныеПоля = Прайс.ПостроительОтчета.Отбор.ПолучитьДоступныеПоля; Поле = ДоступныеПоля.Добавить("Склад","Склад",Новый ОписаниеТипов("СправочникСсылка.Склады")); Поле.Отбор = Истина; Прайс.ПостроительОтчета.Отбор.УстановитьДоступныеПоля(ДоступныеПоля); Отбор = Прайс.ПостроительОтчета.Отбор.Найти("Склад"); КонецЕсли;     Отбор.Использование = Истина; Отбор.ВидСравнения = ВидСравнения.ВСписке; Отбор.Значение = Структура.СписокСкладов; //Прайс.ПостроительОтчета.УстановитьНастройки(Настройки); ТабДок = Новый ТабличныйДокумент; Прайс.ПечатьПрайсЛиста(ТабДок); ТабДок.Записать(Структура.КаталогЛокальный + Структура.ИмяФайла + ".xls",ТипФайлаТабличногоДокумента.XLS); //в zip //Tow = СтрЗаменить(ИмяЛокальногоФайла,".xls",".zip");     Архив = Новый ЗаписьZipФайла(Структура.КаталогЛокальный + Структура.ИмяФайла + ".zip",,"pricelist",МетодСжатияZip.Сжатие,УровеньСжатияZIP.Максимальный); Архив.Добавить(Структура.КаталогЛокальный + Структура.ИмяФайла + ".xls"); Архив.Записать; //загрузим по ftp Попытка Если Структура.ИспользоватьПрокси тогда     Прокси = Новый ИнтернетПрокси; Прокси.НеИспользоватьПроксиДляЛокальныхАдресов  = Истина; Прокси.Сервер(Структура.СерверПрокси); Прокси.Порт(Структура.ПортПрокси); Прокси.Пользователь = Структура.ПользовательПрокси; Прокси.Пароль = Структура.ПарольПрокси; Прокси.Установить(Структура.ПротоколПрокси,Структура.СерверПрокси,Структура.ПортПрокси); //Соединение = Новый FTPСоединение("82.116.32.13",21,"ts", "tspwd",Прокси); Соединение = Новый FTPСоединение(Структура.СерверFTP,21,Структура.ПользовательFTP, Структура.ПарольFTP,Прокси); Иначе Соединение = Новый FTPСоединение(Структура.СерверFTP,21,Структура.ПользовательFTP, Структура.ПарольFTP); КонецЕсли; //Соединение.Удалить("/htdocs/price/","*.zip"); Соединение.Удалить(Структура.КаталогFTP,"*.zip"); //Соединение.Записать(Tow,"/htdocs/price/" + "price.zip"); Соединение.Записать(Структура.КаталогЛокальный + Структура.ИмяФайла + ".zip",Структура.КаталогFTP + Структура.ИмяФайла +".zip"); Соединение = Неопределено; Исключение Сообщить(ОписаниеОшибки);     КонецПопытки; Иначе Предупреждение("Не заданы параметры выгрузки!"); КонецЕсли; EndProcedure
#6 by SASH_EG
а зачем такой навороченный пример ?        Попытка     FTPСоединение=Новый FTPСоединение(Сервер,Порт,Пользователь,Пароль);        исключение    Сообщить("Не удалось установить ftp-соединение.Проверте параметры соединения.");        КонецПопытки;
#7 by SASH_EG
+ FTPСоединение=Новый FTPСоединение(Сервер,Порт,Пользователь,Пароль,Прокси); в этом случае
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С