Delphi - сбориник статей


Клиент


  1. Создаем новый проект.
  2. На форме распологаем компонент TwssSoapConnection. Устанавливаем значения свойств как приведено на скриншоте.
  3. При помощи утилиты WSDL Importer импортируем в наш проект модуль с описанием интерфейса IWSSTest(получаем модуль IWSSTest1.pas).
  4. Устанавливаем: wssSoapConnection1.URL=http://localhost:8888/soap, wssSoapConnection1.AppID="TEST" и заполняем поля wssSoapConnection1.SessionUserName и wssSoapConnection1.SessionPassword.
  5. Пишем обработчики для кнопок:
    1: unit Unit1; 2: 3: interface 4: 5: uses 6: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7: Dialogs, StdCtrls, DB, DBClient, wssSoapConn; 8: 9: type 10: TForm1 = class(TForm) 11: wssSoapConnection1: TwssSoapConnection; 12: Button1: TButton; 13: Label1: TLabel; 14: Button3: TButton; 15: procedure Button1Click(Sender: TObject); 16: procedure Button2Click(Sender: TObject); 17: procedure Button3Click(Sender: TObject); 18: private 19: { Private declarations } 20: public 21: { Public declarations } 22: end; 23: 24: var 25: Form1: TForm1; 26: 27: implementation 28: 29: uses IWSSTest1; 30: 31: {$R *.dfm} 32: 33: procedure TForm1.Button1Click(Sender: TObject); 34: begin 35: wssSoapConnection1.Open; 36: Label1.Caption := wssSoapConnection1.SessionID; 37: end; 38: 39: procedure TForm1.Button2Click(Sender: TObject); 40: begin 41: wssSoapConnection1.Close; 42: end; 43: 44: procedure TForm1.Button3Click(Sender: TObject); 45: begin 46: ShowMessage( (wssSoapConnection1.RIO as IWSSTest).TestMethod('Client.')); 47: end; 48: 49: end.
  6. Готово. Запускаем.
    Клиент:

    Сервер:

Исходный код примера .(11,7Kb)




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