Тест веб-сервиса

• Добавить свою публикацию
для этого требуется регистрация

Апухтин Александр Петрович

28.12.2014

Программисту > Приемы работы

+4

Функция ПолучитьСообщение()

// Адрес, по которому можно увидеть саму wsdl
// OPT - имя опубликованного веб-сервиса
Адрес = "http://***.***.***.***:**/CARDS/ws/ws1.1cws?wsdl";

ТекстОшибки = "";

Пользователь = "1сАдмин";
Пароль = "********";

Попытка
// попытаемся получить WSОпределения с таймаутом в 5 сек.
Определения = Новый WSОпределения(Адрес,Пользователь,Пароль,,5);
Исключение
// Сообщим пользователю о том, что не получилось получить определение сервиса
ТекстОшибки = НСтр("ru = 'Не удалось установить соединение с сервером. Повторите попытку позже.'", "ru");
Сообщить("" + ИнформацияОбОшибке().Описание + " " + Пользователь + " " + Пароль);
Возврат Ложь;
КонецПопытки;
ИмяВебСервиса = "Прямоугольник5строка1"; // на скрине 5 прямоугольник строка 1
ИмяВебСервисаSoap = "Прямоугольник5строка2"; // на скрине 5 прямоугольник строка 2
URI = "www.url.com";
Прокси = Новый WSПрокси(Определения, URI, ИмяВебСервиса, ИмяВебСервисаSoap);

Прокси.Пользователь = Пользователь;
Прокси.Пароль = Пароль;

Если Прокси = Неопределено Тогда
Сообщение = "Не нашел он такой веб сервис чет";
Возврат Ложь;
КонецЕсли;
Параметр = Неопределено; // какой-то параметр, передаваемый веб-сервису
// тип параметра можно так же найти в wsdl
//<input>
// <soap12bind:body use="literal"/>
//</input>
попытка
// далее необходимо вызвать необходимую функцию
// на скрине 1,2,3,4 прямоугольники.
возврат Прокси.ПроцедураОпубликованногоВебСервиса(Параметр);
исключение
Возврат Ложь;
КонецПопытки;

КонецФункции