1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, league1;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var lg: league;
    s: string;
    lr : LeagueResponse;
    tr : TableResponse;

begin
    lg := getLeague(false);
    lr := lg.testSimple(1240,'AjxsUNpBeKKfjaKSTcIwRzC2fiM=');
    memo1.Text := lr.ServiceImplementation + lr.Copyright;
    s := lg.echo('test');
    memo1.Text := memo1.Text + s;
    tr := lg.TableLeague(1240,'AjxsUNpBeKKfjaKSTcIwRzC2fiM=',0,0,111,1);   //<- Fehler...
end;

end.					

1:
2:
3:
4:

            Game game = new WpfTestApplication.ServiceReference1.Game();
            LeagueClient lc = new WpfTestApplication.ServiceReference1.LeagueClient();
            LeagueResponse lr = lc.testSimple(1240,"AjxsUNpBeKKfjaKSTcIwRzC2fiM=");
            TableResponse tr = lc.tableLeague(1240, "AjxsUNpBeKKfjaKSTcIwRzC2fiM=", 0, 0, 111, 1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  // ************************************************************************ //
  // Namespace : urn:league
  // ************************************************************************ //
  TableEntry = class(TRemotable)
  private
    FRank: Integer;
    ....
  published
    property Rank: Integer read FRank write FRank;
    ....
  end;

  ArrayOfTableEntry = array of TableEntry;      { "urn:league" }


  TableResponse = class(LeagueResponse)
  private
    FTable: ArrayOfTableEntry;
  public
    destructor Destroy; override;
  published
    property Table: ArrayOfTableEntry read FTable write FTable;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Variant;
  tt:string;
  v: variant;
  i:integer;
begin
  c := CreateOleObject('MSSOAP.SoapClient30');
  c.mssoapinit('http://www.swissunihockey.ch/weblounge/webservices/league?wsdl');
  tt:=c.echo('hallo');
  memo1.Text:=tt;
  v := c.testSimple(1240,'AjxsUNpBeKKfjaKSTcIwRzC2fiM=');
  i:=vartype(v);  //vartype = Dispatch
  v := c.TableLeague(1240,'AjxsUNpBeKKfjaKSTcIwRzC2fiM=',0,0,111,1);
  i:=vartype(v);  //vartype = Dispatch
end;					

1:

memo1.Text := v.ServiceImplementation + v.Copyright;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string;
  var SOAPRequest: WideString);
Var sl:TStrings;
begin
  sl:=TStringList.Create;
  try
    sl.Text:=SOAPRequest;
    sl.SaveToFile('e:\guldi-Request.xml');
  finally
    sl.free;
  end;
end;

procedure TForm1.HTTPRIO1AfterExecute(const MethodName: string;
  SOAPResponse: TStream);
Var sl:TStrings;
begin
  sl:=TStringList.Create;
  try
    SOAPResponse.Position:=0;
    sl.LoadFromStream(SOAPResponse);
    sl.SaveToFile('e:\guldi-Response.xml');
  finally
    sl.free;
  end;
end;					

1:

    lg := getLeague(false,'',HTTPRIO1);