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


XML-документ в качестве источника данных - часть 3


Листинг 13.3.

Для создания клиентского приложения нужно для начала создать новый проект. Для этого как и в предыдущем примере следует выполнить команду меню File | New | Project. В появившемся диалоговом окне New Project в наборе Templates выбрать шаблон Windows Application и в поле Name указать наименование создаваемого приложения.

После этого Visual Studio .NET создаст форму с именем Form1, устанавливаемым по умолчанию. В окне этой формы нам потребуется разместить один элемент TextBox, одно текстовое поле Label, одну кнопку Button, один компонент DataGrid, и один компонент DataSet с вкладки Data. Пример формы приведен ниже.


После этого следует установить связь с искомым Web-сервисом. Для этого надо в окне Solution Explorer выбрать наименование создаваемого приложения и правым щелчком мыши вызвать для него контекстное меню. В этом контекстном меню необходимо выполнить команду Add Web Reference, после чего будет активизировано одноименное диалоговое окно, позволяющее установить ссылки на используемые сервисы.

Для того чтобы получить ссылки на функции Web-сервиса и перенести их в проект, нужно в текстовом поле Address указать URL необходимого сервиса и загрузить ресурс, располагающийся по этому адресу. После этого в левой части искомого окна Add Web Reference будет отображено содержимое стартовой Web-страницы.


После того как искомые ссылки на функции Web-сервиса будут найдены, при помощи кнопки Add Reference их необходимо добавить к разрабатываемому проекту. После чего можно обращаться к функциям Web-сервиса в приложении (функция Button_Click).

Public Class Form1 Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New() MyBase.New()

'This call is required by the Windows Form Designer. InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub




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



Книжный магазин