2015-05-10
408
Если вы никогда не работали с SOAP Toolkit, очень рекомендую замечательную статью Ивана Андреева 
«Использование протокола SOAP в распределенных приложениях».
SOAP Toolkit возвращает ответ в виде объекта типа IXMLDOMNodeList. Это коллекция элементов IXMLDOMNode, у которых есть свойство xml. Его-то мы и будем использовать для вывода результатов на консоль. В коде присутствует большое количество комментариев, поэтому больше ничего говорить не буду, смотрите сами:
Вызов функции test_output с помощью SOAP Toolkit:
| 'Создание высокоуровнего объекта SoapClient30, реализующего динамический IDispatch'на основе информации из WSDL-файлаDim SoapClientSet SoapClient = CreateObject("MSSOAP.SoapClient30") 'Здесь происходит чтение WSDL, анализ и генерация IDispatch,'который будет содержать все, указаные в WSDL операции'В нашем случае это test_output, test_ret_func и CustOrderHistSoapClient.MSSoapInit "http://dcit06/srv/webserv?wsdl" Dim ReturnNodeListDim ret_val'Вызываем Web-метод test_output. Возвращаемое значение сохраняется'в переменной ret_val'Часть необработанного SOAP-ответа возвращается в виде IXMLDOMNodeListSet ReturnNodeList = SoapClient.test_output(ret_val) 'Вывод результатов на консольWScript.Echo "****************************************"WScript.Echo vbTab & "Response for test_output"WScript.Echo "----------------------------------------" 'Перебираем элементы и выводим их на консольFor Each Node In ReturnNodeList WScript.Echo Node.xmlNext 'Вывод на консоль возвращаемого значенияWScript.Echo "Return value is " & ret_val |
