Главная » Delphi » Создание клиентского приложения SOAP

0

Чтобы создать клиентское приложение SOAP, выполните следующие действия:

1.  Закройте активный проект, выберите в меню File пункты New и Application.

2.  Разместите на форме одну метку и одно поле ввода текста. Добавьте в раздел uses

модуля формы файлы интерфейсов SoapHTTPClient и HelloWorldSoapIntf.

3.  Объявите переменную mySoap типа IHelloWorldSoap.

4.  В обработчик события OnClick кнопки введите код согласно листингу 19.15.

5.  Сохраните и откомпилируйте программу.

6.  Запустите приложение и щелкните на кнопке Say Hello. После  небольшой за держки, связанной с загрузкой серверного приложения, текст метки  изменится на “Hello, world”.

Это — предварительный тест,  демонстрирующий взаимодействие клиента и серве ра SOAP. Теперь для завершения работы над приложением можно  добавить в сервер ный проект клиентскую часть CORBA.

Листинг 19.15. Класс главной формы клиента SOAP

unit ClientMain;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, SoapHTTPClient,

HelloWorldSoapIntf;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Закрытые объявления }

mySoap: IHelloWorldSoap;

public

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

x: THTTPRio;

begin

x := THTTPRio.Create(nil);

x.URL := ‘http://localhost:1024/Server.exe/SOAP/';

mySoap := x as IHelloWorldSoap;

Label1.Caption := mySoap.sayHello;

end;

end.

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

По теме:

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