Главная » Delphi » Использование компонента THTTPRIO

0

Для  компонента THTTPRIO должны  быть  заданы  три  свойства. Сначала  еще  раз укажите  в свойстве WSDLLocation путь к документу WSDL. Как только  этот  параметр будет установлен, можно  будет раскрыть список  свойства Service и выбрать единст венный доступный параметр. Затем  проделайте то же самое  со свойством Port. На данном этапе клиентское приложение можно запустить.

Запуск Web службы

Теперь, когда  все элементы приложения готовы, создайте обработчики события

OnClick для кнопок. Они должны  выглядеть так, как в листинге 20.6.

Листинг 20.6. Обработчики события OnClick

procedure TMainForm.btnFah2CelClick(Sender: TObject);

var

TempConverter: ITempConverter;

FloatVal: Double;

begin

TempConverter := HTTPRIO1 as ITempConverter;

FloatVal := TempConverter.FahrenheitToCelsius(StrToFloat(

?edtArguement.Text));

lblResultValue.Caption := FloatToStr(FloatVal);

end;

procedure TMainForm.btnCel2FahClick(Sender: TObject);

var

TempConverter: ITempConverter;

FloatVal: Double;

begin

TempConverter := HTTPRIO1 as ITempConverter;

FloatVal := TempConverter.CelsiusToFahrenheit(StrToFloat(

?edtArguement.Text));

lblResultValue.Caption := FloatToStr(FloatVal);

end;При  вводе  этого  кода обратите внимание, что  интерактивная подсказка Delphi (CodeInsight) доступна  и для Web службы. Это связано с тем,  что  Delphi адаптировал Web службу в состав  приложения как базовый объект. В Delphi  импликация широко распространена: любая  Web служба, привнесенная в приложение Delphi, независимо от того,  устанавливается ли она на Solaris, Windows, Linux  или мейнфрейме, и незави симо от языка, на каком она написана, будет взаимодействовать с ним. Благодаря на столько плотной интеграции,  кроме  интерактивной подсказки, приложение, напи санное для работы с Web службой,  получает  также  механизм проверки типов  и все возможности для отладки.

Резюме

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

В настоящей главе  было  рассказано, как создать  простую  Web службу и клиент для нее.  Были  рассмотрены действия, которые  необходимо предпринять  для  установки этой  службы  на  сервер и  правильного подключения компонента THTTPRIO клиента. Указанного вполне достаточно, чтобы  приступить к разработке Web служб повышенной сложности. Более  подробная информация по этой  теме,  а также  примеры Web служб находятся на сайте  сообщества Borland, который мы настоятельно рекомендуем посе тить.  Кроме  всего  прочего, там находится статья  Дэниела Полищука “Managing Sessions with Delphi 6 Web Services” (идентификатор: 27575),  посвященная этой  теме. Она доступна по адресу http://community.borland.com/article/0,1410,27575,00.html.

Источник: Тейксейра, Стив, Пачеко, Ксавье.   Borland Delphi 6. Руководство разработчика. : Пер.  с англ. — М. : Издательский дом “Вильямс”, 2002. —  1120 с. : ил. — Парал. тит. англ.

По теме:

  • Комментарии