Веб-сервисы - простой в Delphi 6...

<р>Как получить доступ к веб-службе из Делфи?
как мы используем мыло компоненты в Делфи?

Вы можете научиться основам программирования и создания собственного программного обеспечения, проверяя отличное <ем><Стронг>Требования к программному обеспечению развязали. Чтобы узнать, как получить доступ к Web-сервисов с помощью SOAP, читайте дальше! <р>доступ к веб-службам с помощью мыла...<р> в Delphi 6, доступ к Web-службам, используя мыло сделано очень легко с полным набором компонентов Web-сервисов палитра. В этой статье я собираюсь представить Вам простой пример на Delphi 6 Как пользоваться веб-сервисов.<р> веб-сервис-это услуга, предназначенная для выполнения определенных задач. Это может быть, например, преобразование температуры из Цельсия в Фаренгейт и т. д. Эти услуги основаны на язык, который называется языком описания веб-служб(wsdl). Это язык, основанный на XML. Вы можете найти такие файлы wsdl в http://www.xmethods.net. Есть много такие веб-сервисы, доступные на этом сайте.

<Стронг>как это работает?как

например, если вы хотите преобразовать температуру из Цельсия в Фаренгейт, то вы, вероятно, введите температуру по Цельсию на эту услугу. Сейчас этот вход готовится как запрос XML и отправляются в веб-службу. Затем веб-служба выполняет преобразование и отправить результат обратно клиенту в виде XML-ответа. Все эти задачи выполняются для клиента в wsdl. Это просто широкий взгляд на свои возможности.

В этой статье, я собираюсь использовать веб-службу, чтобы найти прайс-лист на Барнс-Нобл с ISBN. Вы можете найти веб-службу в http://www.xmethods.net/detail.html?id=7.

<Стронг>как мы можем получить доступ к этой веб-службе из Dephi 6?<р> 1. Загрузить wsdl-файл на ваш локальный диск.
2. Импорт веб-сервиса в Delphi
это одна из новых функций в Delphi 6. Нажмите кнопку Создать и в диалоговом окне выберите вкладку веб-сервисов и выберите импортера веб-служб. Другое диалоговое окно придет. В том, что там будет две вкладки. На вкладке Импорт, нажмите на обзор и выберите файл wsdl-файл, сохраненный на локальном диске. Затем нажмите на кнопку Создать блок будет создан файл с реквизитами службы.

на содержание вновь созданного/создаваемого файла будет такой:<р> блок в BNQuoteService
интерфейс
и на использовать в видах, XSBuiltIns
Тип
В BNQuotePortType = на интерфейс(IInvokable)
и ['{A37458FD-F89D-4BDF-BED9-1592153A51CB}']
и функция getPrice(константный номер ISBN: WideString): Один в нарушением соглашения о стандартном
конец
реализация
использует в InvokeRegistry
инициализации
В InvRegistry.RegisterInterface(объект typeinfo(BNQuotePortType), ", ")
конец.как

теперь мы можем использовать <ем><Стронг>функции getprice в этом блоке файла, чтобы найти цену книги.<р> есть новый компонент THTTPRIO под палитру WebSevices в Delphi 6. Этот компонент поможет нам вызов метода веб-сервиса. Создайте новое приложение и поместите этот компонент.<р> а. Установить WSDLLocation, обслуживание, порт свойств в Инспекторе объектов.

вот пример приложения, которое использует веб-службу и найдет книгу. В примере приложения добавить этот блок файл.

<Стронг>BNQuotePrj.днр
программы в BNQuotePrj
использует
формы,
В BNQuote в в '..\UnitFiles\BNQuote.в pas' {form1 и},
В BNQuoteService в в '..\WebServicesUnitFiles\BNQuoteService.па'
и {$Р *.рес}
<Стронг>начать
и приложения.Инициализировать <Приложение бр />.CreateForm(TForm1, form1 с)
и приложения.Запустить
и конец.
блок в BNQuote
интерфейс
и использует
в Windows, Сообщения, модуля приведет, варианты, классы, графика, регулирование, формы,диалоговые окна, StdCtrls, Рио, SoapHTTPClient
Тип
В TForm1 = класс(TForm)
В HTTPRIO1: THTTPRIO
для кнопки button1: TButton
Edit1: поле tedit
В Метка1: названия и
Edit2: поле tedit
В Метка2: названия
и элемент button2: TButton
процедура Button1Click(Отправитель: TObject)
порядок в Button2Click(Отправитель: TObject)
Частная
и { частные объявления }
общественные
и { публичных деклараций }
конец
вар
в форму form1: TForm1
реализация
использует в BNQuoteService
и {$Р *.дфм}
и порядок в TForm1.Button1Click(Отправитель: TObject)
вар
В QuotePrice : настоящий
начать
если функция TRIM(Edit1.Текст) <> " после
начать
В QuotePrice := 0
В QuotePrice :=(HTTPRIO1 как BNQuotePortType).getPrice(Edit1.Текст)
если QuotePrice <> -1 тогда и
Edit2.Текст := FloatToStr(QuotePrice)
и еще
и начать
В MessageDlg('неправильный ISBN код' #13 'введите действительный ISBN код',mtInformation,[сайт mbok],0)
и элемент button2.Нажмите кнопку
В Edit1.Setfocus для того,
в конце
конец
и еще
и начать
В MessageDlg('введите действительный ISBN код',mtInformation,[сайт mbok],0)
В Edit1.Setfocus для того,
в конце
конец в<р> порядок в TForm1.Button2Click(Отправитель: TObject)
<Стронг>начать
В Edit1.Понятно, что
Edit2.Понятно, что
Edit1.Setfocus для того,
в конце
<Стронг>конец.как

в примере приложения я использовал два поля, две метки и компонент THTTPRIO.<р> наслаждайтесь!

Спасибо.
не Магешь.