Ох и намучался я с web-сервисом! Тут тебе и заклинания с WS-определением, фабрика XDTO, экзотические структуры, вложенные друг в друга типы, обязательные поля, необязательные...
А когда на одном сайте есть несколько точек подключения, да на каждой свои сервисы, да на каждой свое пространство имён! Голова кругом идёт.
И казалось бы: у web-сервиса есть страничка WSDL, которая описывает все особенности. Но вручную разбирать все эти описания - врагу не пожелаешь.
Чтобы поучиться, хорошо было бы найти какой-нибудь работающий пример. Но что-то всё разом отказывалось работать. А код на языке 1С и вовсе не хотел находиться.
Разобрался с одним сервисом, написал работающий код. Но функционал сервиса не подошёл. Нужно писать код для другого. "Всего-то?" - скажете Вы. Увы! Вот здесь-то самая большая путаница: какие из функций к какому сервису относятся? Какие пространства имён в каждом случае должны применяться? Какие параметры?
В описании сервиса много информации, но всё однотипное, всё похожее. И никакой гарантии, что "человеческий фактор" не напутал чего.
Хочется перепробовать все сервисы, найти наиболее подходящий. Но для каждого требуется писать свой код.
Вот бы на каждый случай предоставлялась своя "рыба", заготовка кода, где достаточно вставить требуемые значения и удалить неиспользумые сроки!
Где ты, рыба моей мечты?
А вот она! Вашему вниманию предлагается обработка, генерирующая заготовки для кода. Как кода для вызова, так и для кода разбора ответа сервиса.
Всё просто и очевидно: в поле "Адрес веб сервиса" вносите ссылку ...?wsdl, а далее выбираете из списков подходящие параметры. Там, где выбор есть.
И нажимаете на кнопку "Сформировать WSТекст". Получаете "рыбу", где требуется вставить нужные параметры на входе, проанализировать полученные данные на выходе.
В качестве примера предлагаю:
https://www.dataaccess.com/webservicesserver/numberconversion.wso?WSDL
http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL
Например, обращение к https://www.dataaccess.com/webservicesserver/numberconversion.wso?WSDL , операция NumberToWords даёт код:
Попытка
Определения = Новый WSОпределения("https://www.dataaccess.com/webservicesserver/numberconversion.wso?WSDL"); //,Логин,Пароль);
Исключение
Определения = Неопределено;
КонецПопытки;
Если НЕ Определения = Неопределено Тогда
Попытка
Прокси = Новый WSПрокси(Определения,"http://www.dataaccess.com/webservicesserver/", "NumberConversion", "NumberConversionSoap");
Исключение
Прокси = Неопределено;
КонецПопытки;
КонецЕсли;
ubiNum = ... Значения типа unsignedLong;
ОтветСервиса = Прокси.NumberToWords(ubiNum);
Сообщить(ОтветСервиса);
// ... Значения типа string
Чтобы сделать его рабочим, нужно заменить всего одну строку: "ubiNum = ... Значения типа unsignedLong;" поменяем на "ubiNum = 123456;". Его исполнение выведет на экран ответ сервиса: "one hundred and twenty three thousand four hundred and fifty six"
А для "http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL", операция "ListOfCountryNamesGroupedByContinent" будет сгенерирован код:
Попытка
Определения = Новый WSОпределения("http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL"); //,Логин,Пароль);
Исключение
Определения = Неопределено;
КонецПопытки;
Если НЕ Определения = Неопределено Тогда
Попытка
Прокси = Новый WSПрокси(Определения,"http://www.oorsprong.org/websamples.countryinfo", "CountryInfoService", "CountryInfoServiceSoap");
Исключение
Прокси = Неопределено;
КонецПопытки;
КонецЕсли;
ОтветСервиса = Прокси.ListOfCountryNamesGroupedByContinent();
Сообщить(ОтветСервиса);
// ... Значения типа ArrayOftCountryCodeAndNameGroupedByContinent
ВГраница1 = ОтветСервиса.tCountryCodeAndNameGroupedByContinent.Количество() - 1;
Для Н1 = 0 По ВГраница1 Цикл //Начало цикла по tCountryCodeAndNameGroupedByContinent
sCode = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].Continent.sCode; // Тип = string
sName = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].Continent.sName; // Тип = string
ВГраница3 = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName.Количество() - 1;
Для Н3 = 0 По ВГраница3 Цикл //Начало цикла по tCountryCodeAndName
sISOCode = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName[Н3].sISOCode; // Тип = string
snamf = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName[Н3].sName; // Тип = string
КонецЦикла;//Конец цикла по tCountryCodeAndName
КонецЦикла;//Конец цикла по tCountryCodeAndNameGroupedByContinent
Код уже рабочий. Но чтобы извлечь из него хоть какую-то пользу, добавим пару строк "Сообщить...":
Попытка
Определения = Новый WSОпределения("http://webservices.oorsprong.org/websamples.countryinfo/CountryInfoService.wso?WSDL"); //,Логин,Пароль);
Исключение
Определения = Неопределено;
КонецПопытки;
Если НЕ Определения = Неопределено Тогда
Попытка
Прокси = Новый WSПрокси(Определения,"http://www.oorsprong.org/websamples.countryinfo", "CountryInfoService", "CountryInfoServiceSoap");
Исключение
Прокси = Неопределено;
КонецПопытки;
КонецЕсли;
ОтветСервиса = Прокси.ListOfCountryNamesGroupedByContinent();
Сообщить(ОтветСервиса);
// ... Значения типа ArrayOftCountryCodeAndNameGroupedByContinent
ВГраница1 = ОтветСервиса.tCountryCodeAndNameGroupedByContinent.Количество() - 1;
Для Н1 = 0 По ВГраница1 Цикл //Начало цикла по tCountryCodeAndNameGroupedByContinent
sCode = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].Continent.sCode; // Тип = string
sName = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].Continent.sName; // Тип = string
ВГраница3 = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName.Количество() - 1;
Сообщить(""+Н1+" : "+sCode+"," + sName);
Для Н3 = 0 По ВГраница3 Цикл //Начало цикла по tCountryCodeAndName
sISOCode = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName[Н3].sISOCode; // Тип = string
snamf = ОтветСервиса.tCountryCodeAndNameGroupedByContinent[Н1].CountryCodeAndNames.tCountryCodeAndName[Н3].sName; // Тип = string
Сообщить(" "+Н3+" : "+sISOCode+"," + snamf);
КонецЦикла;//Конец цикла по tCountryCodeAndName
КонецЦикла;//Конец цикла по tCountryCodeAndNameGroupedByContinent
А вот, скажем, обращение к http://ws.dpd.ru:80/services/order2?wsdl, операция "createOrder" создаст "рыбу" из 195-и строк кода.
Обращение с помощью протокола SOAP наглядно, когда можно посмотреть файл XML. И ответ сервера.
Для этого можно воспользоваться второй кнопкой "Сформировать HTTPТекст". Для случая и операции NumberToWords получаем текст:
аписьXML = Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку();
ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Envelope");
ЗаписьXML.ЗаписатьАтрибут("xmlns:soap", "http://schemas.xmlsoap.org/soap/envelope/");
ЗаписьXML.ЗаписатьАтрибут("xmlns:ns0", "http://www.dataaccess.com/webservicesserver/");
ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Header");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Body");
ЗаписьXML.ЗаписатьНачалоЭлемента("ns0:NumberToWords");
ЗаписьXML.ЗаписатьАтрибут("xmlns:xs", "http://www.w3.org/2001/XMLSchema");
ЗаписьXML.ЗаписатьАтрибут("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance");
ЗаписьXML.ЗаписатьНачалоЭлемента("ubiNum");
ЗаписьXML.ЗаписатьТекст("...");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
ТекстXML = ЗаписьXML.Закрыть();
Сообщить(ТекстXML);
Таймаут=10000;
URL ="https://www.dataaccess.com/webservicesserver/numberconversion.wso?WSDL";
WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
WinHttp.SetTimeouts(Таймаут, Таймаут, Таймаут, Таймаут);
WinHttp.Option(2,"utf-8");
WinHttp.Open("POST",URL);
WinHttp.setRequestHeader("Content-Type","text/xml; charset=utf-8");
Сообщить("Начало - " + ТекущаяДата());
Сообщить("URL: " + URL);
Попытка
WinHttp.Send(ТекстXML);
Сообщить("Завершение - " + ТекущаяДата());
Если WinHttp.Status = 200 Тогда
Сообщить("Ответ: " + WinHttp.ResponseText);
Иначе
Сообщить("Ошибка сервера: " + WinHttp.Status + " " + WinHttp.ResponseText + " " + WinHttp.StatusText, СтатусСообщения.Важное);
КонецЕсли;
Исключение
Сообщить("Ошибка запроса по HTTP");
Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
КонецПопытки;
Пример файла-запроса и файла ответа приведён ниже:
Обработки тестировались на релизе 8.3.14.1779.
