Code: LIOKO. Chapter 3

[Абдулай Мухамедов]

  Этот код демонстрирует базовые методы для осуществления работы с Web-Сервисами в 1С: Преприятии

Код Выделить Развернуть

// Serializers

Функция Сериализовать(Объект) Экспорт
ДеревоВОбъекте = СериализаторXDTO.ЗаписатьXDTO(Объект);
МойXML = Новый ЗаписьXML;
МойXML.УстановитьСтроку();
ФабрикаXDTO.ЗаписатьXML(МойXML, ДеревоВОбъекте);
Возврат МойXML.Закрыть();
КонецФункции

Функция Десериализовать(XMLСтруктура) Экспорт
ЧтениеXMLДанных = Новый ЧтениеXML;
ЧтениеXMLДанных.УстановитьСтроку(XMLСтруктура);
ТЗ = СериализаторXDTO.ПрочитатьXML(ЧтениеXMLДанных);
Возврат ТЗ;
КонецФункции

// Utils

Функция ПолучитьСоединение() Экспорт //(Логин, Пароль) Экспорт
Логин = "login";//ЛогинПолучить();
Пароль = "password"; //ПарольПолучить();

Соединение = WSСсылки.General.СоздатьWSПрокси("<NAME_OF_WEBSERVIE>", "<NAME_OF_WEBSERVIE2>", "<NAME_OF_WEBSERVIE>Soap");
Соединение.Пользователь = Логин;
Соединение.Пароль = Пароль;

Возврат Соединение;
КонецФункции