Доброго времени суток! Делаю обмен с веб сервисом:
URLобмена = "Testtest.ru:8012";
АдресСервиса = "http://Testtest.ru:8012/?wsdl";;
/// URLобмена и АдресСервиса вымышленные:)
Попытка
Соединение = Новый HTTPСоединение(URLобмена);
Исключение
Ответ=ИнформацияОбОшибке().Описание;
КонецПопытки;
ФайлРезультата = ПолучитьИмяВременногоФайла();
Заголовки=Новый Соответствие;
Заголовки.Вставить("Content-Charset", "UTF-8");
Заголовки.Вставить("Authorization", "Token testtoken");
HTTPЗапрос = Новый HTTPЗапрос(АдресСервиса, Заголовки);
HTTPОтвет = Соединение.Получить(HTTPЗапрос);
Ответ = HTTPОтвет.ПолучитьТелоКакСтроку();
Можно так:
&НаСервере
Функция СоздатьСущностиДляРаботыССайтом(ПараметрыВозврата)
НетОшибок = Истина;
Попытка
Определения = Новый WSОпределения(Сайт,Логин,Пароль);
Исключение
Сообщить(ОписаниеОшибки());
НетОшибок = Ложь;
Возврат НетОшибок;
КонецПопытки;
ИмяСервиса = Сервис;
Попытка
Прокси = Новый WSПрокси(Определения,ИмяСервиса,"Exchange_ukrmarketplaceservice","Exchange_ukrmarketplaceserviceSoap");
Прокси.Пользователь = Логин;
Прокси.Пароль = Пароль;
Исключение
Сообщить(ОписаниеОшибки());
НетОшибок = Ложь;
Возврат НетОшибок;
КонецПопытки;
ПараметрыВозврата.Вставить("Сервис",Сервис);
ПараметрыВозврата.Вставить("Прокси",Прокси);
Возврат НетОшибок;
КонецФункции
&НаСервере
Процедура ПолучитьНоменклатуруССайта()
ВебОбъекты = Новый Структура;
Если НЕ СоздатьСущностиДляРаботыССайтом(ВебОбъекты) Тогда
Возврат;
КонецЕсли;
Фабрика = ВебОбъекты.Прокси.ФабрикаXDTO;
Фильтр = Фабрика.Создать(Фабрика.Тип(ВебОбъекты.Сервис, "Filter"));
//Фильтр.productId = "";
Исключ = Фабрика.Создать(Фабрика.Тип(ВебОбъекты.Сервис, "exception"));
ОтветСервера = ВебОбъекты.Прокси.GetProduct(Фильтр,Исключ);
Попытка
Продукция =ОтветСервера.product;
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua