• Введение
• Описание задачи
• Создаем сервис на .NET
• Пишем клиентов
  • Клиент на C#
  • Клиент на Perl
  • Клиент на PHP
  • Клиент на VB 6.0
  • Клиент на ASP
• Заключение
• Информация по теме

Введение

В этой статье хотелось бы поделиться опытом, полученном специалистами компании Metric, при разработке Web-сервисов для компании Аэрофлот.

Описание задачи

Поскольку круг клиентов, кто будет пользоваться информацией заранее неизвестен, и уж тем более нет информации об их платформах, то Web-сервисы являются идеальным решением для предоставления информации в удобном виде максимально широкому кругу клиентов.

Чтобы реализовать такой сервис необходимо уметь получать аргументы, возвращать и разбирать сложные структуры данных. В результате проведенных экспериментов получен некоторый опыт, которым мы и делимся в этой статье.

Создаем Web-сервис на .NET

• Используйте атрибут SoapRpcService
• Возвращайте массивы объектов, а не массивы структур.
• Избегайте использования типа dateTime в аргументах.

Используйте SoapRpcService

[VB.NET]
Imports System.Web.Services
Imports System.Web.Services.Protocols
<SoapRpcService(), WebService(Namespace:="http://www.aeroflot.ru/")> _
Public Class FlightStatus
	Inherits System.Web.Services.WebService
	...
End Class

[C#]
using System.Web.Services;
using System.Web.Services.Protocols;
namespace Aeroflot
{
	[WebService(Namespace="http://www.aeroflot.ru/")]
	[SoapRpcService]
	public class FlightStatus : System.Web.Services.WebService
	{
	....
	}
}

Возвращайте массив объектов, а не массив структур.

Public Structure t
	Public a As String
	Public b As String
End Structure


 Public Function Test() As t()
	Dim t1() As t

	Test = t1
End Function

Поэтому, Вам необходимо объявить публичный класс и возвращать массив элементов этого класса.

Избегайте использование типа dateTime в аргументах.

Если объединить все эти правила, то код сервиса на VB.NET будет выглядеть примерно так:

Imports System.Web.Services
Imports System.Web.Services.Protocols

<SoapRpcService(), WebService(Namespace:="http://www.aeroflot.ru/")> _
Public Class FlightStatus
	Inherits System.Web.Services.WebService

	Public Class Airport
		Public city As String
		Public name As String
		Public code As String
	End Class


	<WebMethod(), SoapRpcMethod()> _
	Public Function AirportList () As Airport()
		Dim OutArray() As Airport

		…………........  Заполняем массив данными ……………..
		AirportList = OutArray
	End Function

End Class

Пишем клиентов

В качестве примера будет демонстрироваться вызов функции получения табло прилета по аэропорту Шереметьево 1 (код SVO1) за текущий день. После получения результата будем печатать следующие поля:

• Компания
• Рейс
• Аэропорт
• Дата по расписанию
• Ожидаемая дата

Клиент на C#

• Создаем новый проект.
• Через Add Web Reference добавляем ссылку на автоматически создаваемый .disco-файл ( http://webservices.aeroflot.ru/flightstatus.asmx?disco).
• Получим ссылку вида ru.aeroflot.webservices. Для удобства переименуем ее в aeroflot.

<%
aeroflot.FlightStatus myFlightStatus = new aeroflot.FlightStatus() ;
aeroflot.Flight[] result = myFlightStatus.Arrival( "SVO1", DateTime.Today.ToString());
foreach ( aeroflot.Flight f in result ){
	Response.Write( f.company ) ;
	Response.Write( f.flight_no ) ;
	Response.Write( "\t" );
	Response.Write( f.airport ) ;
	Response.Write( "\t" );
	Response.Write( f.sched ) ;
	Response.Write( "\t" );
	Response.Write( f.plan ) ;
	Response.Write( "\n<BR>" );
}
%>

Клиент на Perl

Во время написания клиента столкнулись только с одним некорректным поведением модуля, а именно, игнорированием типа, описанного в WSDL файле и попыткой автоматического выставления типа. Если происходит вызов метода, которому в качестве значения строкового параметра передается строка, содержащая только число, то в теле SOAP-запроса SOAP::Lite указывает его, как тип int. Что приводит к ошибке вызова из-за несовпадения типов параметров. Возможно, в следующих версиях SOAP::Lite эта ошибка будет исправлена, а пока достаточно принудительно указывать тип аргументов при их вызове.

Программа-клиент выглядит следующим образом:

use SOAP::Lite service =>
'http://webservices.aeroflot.ru/FlightStatus.wsdl';

($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
$now = sprintf("%02d.%02d.%04d", $DAY, ($MONTH + 1 ), ($YEAR + 1900));

$code = SOAP::Data
-> type ("string")
-> name ("code")
-> value ("SVO1")
;
$date = SOAP::Data
-> type ("string")
-> name ("date")
-> value ($now)
;

$flights = Arrival($code, $date);


foreach $flight ( @$flights ) {
	print $$flight{"company"} . $$flight{"flight_no"} . "\t" . $$flight{"airport"} . "\t"
		. $$flight{"sched"} . "\t" . $$flight{"plan"} . "\n";
}

Клиент на PHP

<?php

require_once('nusoap.php');
$soapclient = new soapclient('http://webservices.aeroflot.ru/FlightStatus.wsdl','wsdl');

$code = "SVO1";
$date = date("d.m.Y");

$parameters = array($code, $date);
$flights = $soapclient->call('Arrival',$parameters);

foreach ( $flights as $flight ) {
	print $flight['company'] . $flight['flight_no'] . "\t" . $flight['airport'] . "\t" . $flight['sched'] . "\t" . $flight['plan'] . "\n";
}
?>

Клиент на VB 6.0

Обработка сложных типов в Soap Toolkit
Для передачи сложных типов в Soap Toolkit существуют две возможности:

• Каждый раз при получении/передаче значений данного типа самостоятельно разбирать XML, работая с объектом типа IXMLDOMNodeList
• Написать специализированный обработчик типа.

Для создания и использования специализированного обработчика типа необходимо:

• Создать класс, который соответствует передаваемому или получаемому сложному типу.
• Создать класс-обработчик для этого типа, который будет преобразовывать объекты данного класса в XML и обратно.
• Создать WSML-файл, в котором настроить соответствие типа и его обработчика.

1. Не используейте один обработчик(mapper) для всех полей, а создавайте свой для каждого поля структуры/объекта и определяйте тип динамически. Тогда, при смене типа данных одного из полей, даже с простого на сложный, ничего изменять не придется, система все отработает автоматически.
2. Сложные типы в WSDL файле могут включать элементы в строгом(sequence) или в произвольном(all) порядке . Это надо учитывать при инициализации (Set Node = pSchema.selectSingleNode("XSD:sequence/XSD:element[@name='city']"))
3. Не все поля структуры могут быть обязательными. Поэтому, прежде чем вызвать обработчик поля, проверьте, есть ли значение (pNode.selectSingleNode("city") is nothing). Иначе произойдет ошибка.

	<?xml version='1.0' encoding='UTF-8' ?>
	<servicemapping name='FlightStatus'>
	  <service name='FlightStatus'>
		<using PROGID='FlightStatusMapper.AirportMapper' cachable='0' ID='AirportMapper' />
		<types>
		  <type name='Airport' targetNamespace='http://www.aeroflot.ru/' uses='AirportMapper'/>
		</types>
	  </service>
	</servicemapping>
	

Подготовительная работа завершена и можно осуществлять вызов.

Вызов сервиса
 

		Set SoapClient = CreateObject("MSSOAP.SoapClient")
		SoapClient.ClientProperty("ServerHTTPRequest") = True
		Call SoapClient.mssoapinit("http://webservices.aeroflot.ru/flightstatus.wsdl", _
			"", "", "http://webservices.aeroflot.ru/flightstatus.wsml")

		flights = SoapClient.Arrival("SVO1", CStr(Now))
		For i = 0 To UBound(flights)
			Set odata = flights(i)
			Debug.Print odata.Company & odata.FlightNo & vbTab & _
				odata.Airport & vbTab & odata.Sched & vbTab & odata.Plan


		Next
	

Клиент на ASP

Проблема решается очень просто. Добавим в специализированный обработчик класса, который мы уже создавали функцию MakeVariantArray, преобразующую переданный ей массив элементов в массив элементов типа Variant.

Public Function MakeVariantArray(v) As Variant
	MakeVariantArray = Empty
	On Error GoTo Errors
	Dim i&
	If Not IsEmpty(v) Then
		If UBound(v) >= 0 Then
			ReDim vres(UBound(v)) As Variant
			For i = 0 To UBound(v)
				If IsObject(v(i)) Then
					Set vres(i) = v(i)
				Else
					vres(i) = v(i)
				End If
			Next
			MakeVariantArray = vres
		End If
	End If

	Exit Function
Errors:
	MakeVariantArray = Empty
End Function

• Надо не забывать приводить тип аргументов (СStr и т.д.).
• Преобразовывать полученный массив в массив типа Variant.

<%
	Set SoapClient = Server.CreateObject("MSSOAP.SoapClient")
	Set SoapUtils = Server.CreateObject("FlightStatusMapper.Utils")
	SoapClient.ClientProperty("ServerHTTPRequest") = True
	Call SoapClient.mssoapinit("http://webservices.aeroflot.ru/flightstatus.wsdl", _
		"", "", "http://webservices.aeroflot.ru/flightstatus.wsml")

	flights = SoapClient.Arrival(cstr("SVO1"), CStr(Now))
	flights = SoapUtils.MakeVariantArray(flights)
	For i = 0 To UBound(flights)
		Set odata = flights(i)
		Response.Write odata.Company & odata.FlightNo & vbTab & _
			odata.Airport & vbTab & odata.Sched & vbTab & odata.Plan & "<BR>"
	Next
%>

Заключение

Информацию о своих Web-сервисах Вы можете разместить в каталог российских Web-сервисов на GotDotNet.RU.

Информация по теме

• Программные продукты
  • Visual Studio.NET
  • Microsoft SOAP Toolkit 2.0
  • Soap::Lite для Perl
  • NuSOAP для PHP
• Информационные ресурсы
  • Форум и раздел XML Web Services на GotDotNet.RU
  • Форум по обсуждению Soap::Lite - в форуме постоянно отвечает автор модуля, Paul Kulchenko.
• Web-сервисы Аэрофлота
  • Справка о рейсе
    • WSDL
    • Обертка для Soap Toolkit
  • Расписание рейсов
    • WSDL
    • Обертка для Soap Toolkit