Языки информационного обмена


Сервис - часть 2


If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub

#End Region

<WebMethod()> Public Function MyDate(ByVal ShowTime As Boolean ) As String Dim MD As DateTime If ShowTime Then MyDate = MD.Now Else MyDate = MD.Today End If End Function

End Class

Из всего этого кода лишь малая часть написана разработчиком. Это функция MyDate, расположенная в конце листинга.

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


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


На этой странице расположено поле ввода, в котором пользователь может указать значение параметра, передаваемого функции.

В результате работы функции сервиса получим:

<?xml version="1.0" encoding="utf-8" ?> <string xmlns="http://tempuri.org/">11.08.2006 23:03:54</string>




Начало  Назад  Вперед