// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : [url]http://www.swissunihockey.ch/weblounge/webservices/league?wsdl[/url]
// Encoding : UTF-8
// Codegen : [wfDebug,wfVerbose,wfSkipHttpBindings,wfAmbiguousComplexTypesAsArray,wfOutputLiteralTypes,wfIgnoreSchemaErrors,wfSkipUnusedTypes]
// Version : 1.0
// (19.07.2007 13:32:49 - $Revision: 1.9.1.0.1.0.1.9 $)
// ************************************************************************ //
unit league1;
interface
uses InvokeRegistry, Types, XSBuiltIns;
type
LeagueRequest =
class;
TableRequest =
class;
LeagueResponse =
class;
TableEntry =
class;
TableResponse =
class;
ResultsRequest =
class;
Result =
class;
ResultsResponse =
class;
GamesRequest =
class;
Game =
class;
GamesResponse =
class;
ScorerResponse =
class;
ScorerRequest =
class;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
LeagueRequest =
class(TRemotable)
private
FDevId: Integer;
FDevCode:
String;
published
property DevId: Integer
read FDevId
write FDevId;
property DevCode:
String read FDevCode
write FDevCode;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
TableRequest =
class(LeagueRequest)
private
FMode: Smallint;
FLanguage: Smallint;
FSeason: Smallint;
FClub:
String;
FLeagueCode: Smallint;
FGroup: Smallint;
FLatestGroupOnly: Boolean;
published
property Mode: Smallint
read FMode
write FMode;
property Language: Smallint
read FLanguage
write FLanguage;
property Season: Smallint
read FSeason
write FSeason;
property Club:
String read FClub
write FClub;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property Group: Smallint
read FGroup
write FGroup;
property LatestGroupOnly: Boolean
read FLatestGroupOnly
write FLatestGroupOnly;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
LeagueResponse =
class(TRemotable)
private
FCopyright:
String;
FDisclaimer:
String;
FDate:
String;
FServiceVersion:
String;
FServiceImplementation:
String;
published
property Copyright:
String read FCopyright
write FCopyright;
property Disclaimer:
String read FDisclaimer
write FDisclaimer;
property Date:
String read FDate
write FDate;
property ServiceVersion:
String read FServiceVersion
write FServiceVersion;
property ServiceImplementation:
String read FServiceImplementation
write FServiceImplementation;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
TableEntry =
class(TRemotable)
private
FRank: Integer;
FTeam:
String;
FLeagueCode: Smallint;
FLeague:
String;
FGroup: Smallint;
FGamesPlayed: Integer;
FWins: Integer;
FWinsAfterOvertime: Integer;
FDraws: Integer;
FDefeats: Integer;
FDefeatsAfterOvertime: Integer;
FGoalsScored: Integer;
FGoalsReceived: Integer;
FPoints: Integer;
published
property Rank: Integer
read FRank
write FRank;
property Team:
String read FTeam
write FTeam;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property League:
String read FLeague
write FLeague;
property Group: Smallint
read FGroup
write FGroup;
property GamesPlayed: Integer
read FGamesPlayed
write FGamesPlayed;
property Wins: Integer
read FWins
write FWins;
property WinsAfterOvertime: Integer
read FWinsAfterOvertime
write FWinsAfterOvertime;
property Draws: Integer
read FDraws
write FDraws;
property Defeats: Integer
read FDefeats
write FDefeats;
property DefeatsAfterOvertime: Integer
read FDefeatsAfterOvertime
write FDefeatsAfterOvertime;
property GoalsScored: Integer
read FGoalsScored
write FGoalsScored;
property GoalsReceived: Integer
read FGoalsReceived
write FGoalsReceived;
property Points: Integer
read FPoints
write FPoints;
end;
ArrayOfTableEntry =
array of TableEntry;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
TableResponse =
class(LeagueResponse)
private
FTable: ArrayOfTableEntry;
public
destructor Destroy;
override;
published
property Table: ArrayOfTableEntry
read FTable
write FTable;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
ResultsRequest =
class(LeagueRequest)
private
FMode: Smallint;
FSeason: Smallint;
FLanguage: Smallint;
FLeagueCode: Smallint;
FGroup: Smallint;
FClub:
String;
FRounds: Smallint;
FLatestGroupOnly: Boolean;
published
property Mode: Smallint
read FMode
write FMode;
property Season: Smallint
read FSeason
write FSeason;
property Language: Smallint
read FLanguage
write FLanguage;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property Group: Smallint
read FGroup
write FGroup;
property Club:
String read FClub
write FClub;
property Rounds: Smallint
read FRounds
write FRounds;
property LatestGroupOnly: Boolean
read FLatestGroupOnly
write FLatestGroupOnly;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
Result =
class(TRemotable)
private
FRound: Smallint;
FLeagueCode: Smallint;
FLeague:
String;
FGroup: Smallint;
FHomeTeam:
String;
FAwayTeam:
String;
FGoalsHomeTeam: Smallint;
FGoalsAwayTeam: Smallint;
FGoalsHomeTeamPeriod1: Smallint;
FGoalsHomeTeamPeriod2: Smallint;
FGoalsHomeTeamPeriod3: Smallint;
FGoalsHomeTeamOvertime: Smallint;
FGoalsHomeTeamPenalty: Smallint;
FGoalsAwayTeamPeriod1: Smallint;
FGoalsAwayTeamPeriod2: Smallint;
FGoalsAwayTeamPeriod3: Smallint;
FGoalsAwayTeamOvertime: Smallint;
FGoalsAwayTeamPenalty: Smallint;
FPlayed: Boolean;
FOvertime: Boolean;
FForfait: Boolean;
FDate:
String;
published
property Round: Smallint
read FRound
write FRound;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property League:
String read FLeague
write FLeague;
property Group: Smallint
read FGroup
write FGroup;
property HomeTeam:
String read FHomeTeam
write FHomeTeam;
property AwayTeam:
String read FAwayTeam
write FAwayTeam;
property GoalsHomeTeam: Smallint
read FGoalsHomeTeam
write FGoalsHomeTeam;
property GoalsAwayTeam: Smallint
read FGoalsAwayTeam
write FGoalsAwayTeam;
property GoalsHomeTeamPeriod1: Smallint
read FGoalsHomeTeamPeriod1
write FGoalsHomeTeamPeriod1;
property GoalsHomeTeamPeriod2: Smallint
read FGoalsHomeTeamPeriod2
write FGoalsHomeTeamPeriod2;
property GoalsHomeTeamPeriod3: Smallint
read FGoalsHomeTeamPeriod3
write FGoalsHomeTeamPeriod3;
property GoalsHomeTeamOvertime: Smallint
read FGoalsHomeTeamOvertime
write FGoalsHomeTeamOvertime;
property GoalsHomeTeamPenalty: Smallint
read FGoalsHomeTeamPenalty
write FGoalsHomeTeamPenalty;
property GoalsAwayTeamPeriod1: Smallint
read FGoalsAwayTeamPeriod1
write FGoalsAwayTeamPeriod1;
property GoalsAwayTeamPeriod2: Smallint
read FGoalsAwayTeamPeriod2
write FGoalsAwayTeamPeriod2;
property GoalsAwayTeamPeriod3: Smallint
read FGoalsAwayTeamPeriod3
write FGoalsAwayTeamPeriod3;
property GoalsAwayTeamOvertime: Smallint
read FGoalsAwayTeamOvertime
write FGoalsAwayTeamOvertime;
property GoalsAwayTeamPenalty: Smallint
read FGoalsAwayTeamPenalty
write FGoalsAwayTeamPenalty;
property Played: Boolean
read FPlayed
write FPlayed;
property Overtime: Boolean
read FOvertime
write FOvertime;
property Forfait: Boolean
read FForfait
write FForfait;
property Date:
String read FDate
write FDate;
end;
ArrayOfResult =
array of Result;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
ResultsResponse =
class(LeagueResponse)
private
FResults: ArrayOfResult;
public
destructor Destroy;
override;
published
property Results: ArrayOfResult
read FResults
write FResults;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
GamesRequest =
class(LeagueRequest)
private
FMode: Smallint;
FSeason: Smallint;
FLanguage: Smallint;
FLeagueCode: Smallint;
FGroup: Smallint;
FClub:
String;
FRounds: Smallint;
FLatestGroupOnly: Boolean;
published
property Mode: Smallint
read FMode
write FMode;
property Season: Smallint
read FSeason
write FSeason;
property Language: Smallint
read FLanguage
write FLanguage;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property Group: Smallint
read FGroup
write FGroup;
property Club:
String read FClub
write FClub;
property Rounds: Smallint
read FRounds
write FRounds;
property LatestGroupOnly: Boolean
read FLatestGroupOnly
write FLatestGroupOnly;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
Game =
class(TRemotable)
private
FRound: Smallint;
FLeagueCode: Smallint;
FLeague:
String;
FGroup: Smallint;
FHomeTeam:
String;
FAwayTeam:
String;
FGymName:
String;
FPlace:
String;
FDate:
String;
FTime:
String;
published
property Round: Smallint
read FRound
write FRound;
property LeagueCode: Smallint
read FLeagueCode
write FLeagueCode;
property League:
String read FLeague
write FLeague;
property Group: Smallint
read FGroup
write FGroup;
property HomeTeam:
String read FHomeTeam
write FHomeTeam;
property AwayTeam:
String read FAwayTeam
write FAwayTeam;
property GymName:
String read FGymName
write FGymName;
property Place:
String read FPlace
write FPlace;
property Date:
String read FDate
write FDate;
property Time:
String read FTime
write FTime;
end;
ArrayOfGame =
array of Game;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
GamesResponse =
class(LeagueResponse)
private
FGames: ArrayOfGame;
public
destructor Destroy;
override;
published
property Games: ArrayOfGame
read FGames
write FGames;
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
ScorerResponse =
class(LeagueResponse)
private
published
end;
// ************************************************************************ //
// Namespace : urn:league
// ************************************************************************ //
ScorerRequest =
class(LeagueRequest)
private
published
end;
// ************************************************************************ //
// Namespace : urn:league
// transport : [url]http://schemas.xmlsoap.org/soap/http[/url]
// style : rpc
// binding : leagueSoapBinding
// service : LeagueService
// port : league
// URL : [url]http://www.swissunihockey.ch/weblounge/webservices/league[/url]
// ************************************************************************ //
League =
interface(IInvokable)
['
{0ADA2515-89E1-3475-02E6-59153ECCB522}']
function table(
const request: TableRequest): TableResponse;
stdcall;
function tableLeague(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const LeagueCode: Smallint;
const Group: Smallint): TableResponse;
stdcall;
function tableTeam(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const LatestGroupOnly: Boolean): TableResponse;
stdcall;
function tableTeamGroup(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const Group: Smallint): TableResponse;
stdcall;
function tableClub(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LatestGroupOnly: Boolean): TableResponse;
stdcall;
function results(
const request: ResultsRequest): ResultsResponse;
stdcall;
function resultsLeague(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const LeagueCode: Smallint;
const Group: Smallint;
const Rounds: Smallint): ResultsResponse;
stdcall;
function resultsTeam(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const Rounds: Smallint;
const LatestGroupOnly: Boolean): ResultsResponse;
stdcall;
function resultsTeamGroup(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const Group: Smallint;
const Rounds: Smallint): ResultsResponse;
stdcall;
function resultsClub(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const Rounds: Smallint;
const LatestGroupOnly: Boolean): ResultsResponse;
stdcall;
function games(
const request: GamesRequest): GamesResponse;
stdcall;
function gamesLeague(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const LeagueCode: Smallint;
const Group: Smallint;
const Rounds: Smallint): GamesResponse;
stdcall;
function gamesTeam(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const Rounds: Smallint;
const LatestGroupOnly: Boolean): GamesResponse;
stdcall;
function gamesTeamGroup(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const LeagueCode: Smallint;
const Group: Smallint;
const Rounds: Smallint): GamesResponse;
stdcall;
function gamesClub(
const DevId: Integer;
const DevCode:
String;
const Language: Smallint;
const Season: Smallint;
const Club:
String;
const Rounds: Smallint;
const LatestGroupOnly: Boolean): GamesResponse;
stdcall;
function test(
const request: LeagueRequest): LeagueResponse;
stdcall;
function testSimple(
const DevId: Integer;
const DevCode:
String): LeagueResponse;
stdcall;
function echo(
const request:
String):
String;
stdcall;
end;
function GetLeague(UseWSDL: Boolean=System.False; Addr: string='
'): League;
implementation
uses SOAPHTTPClient;
function GetLeague(UseWSDL: Boolean; Addr:
string): League;
const
defWSDL = '
http://www.swissunihockey.ch/weblounge/webservices/league?wsdl';
defURL = '
http://www.swissunihockey.ch/weblounge/webservices/league';
defSvc = '
LeagueService';
defPrt = '
league';
var
RIO: THTTPRIO;
begin
Result :=
nil;
if (Addr = '
')
then
begin
if UseWSDL
then
Addr := defWSDL
else
Addr := defURL;
end;
RIO := THTTPRIO.Create(
nil);
try
if UseWSDL
then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
Result := (RIO
as League);
finally
if Result =
nil then
RIO.Free;
end;
end;
destructor TableResponse.Destroy;
var
I: Integer;
begin
for I := 0
to Length(FTable)-1
do
if Assigned(FTable[I])
then
FTable[I].Free;
SetLength(FTable, 0);
inherited Destroy;
end;
destructor ResultsResponse.Destroy;
var
I: Integer;
begin
for I := 0
to Length(FResults)-1
do
if Assigned(FResults[I])
then
FResults[I].Free;
SetLength(FResults, 0);
inherited Destroy;
end;
destructor GamesResponse.Destroy;
var
I: Integer;
begin
for I := 0
to Length(FGames)-1
do
if Assigned(FGames[I])
then
FGames[I].Free;
SetLength(FGames, 0);
inherited Destroy;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(League), '
urn:league', '
UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(League), '
');
RemClassRegistry.RegisterXSClass(LeagueRequest, '
urn:league', '
LeagueRequest');
RemClassRegistry.RegisterXSClass(TableRequest, '
urn:league', '
TableRequest');
RemClassRegistry.RegisterXSClass(LeagueResponse, '
urn:league', '
LeagueResponse');
RemClassRegistry.RegisterXSClass(TableEntry, '
urn:league', '
TableEntry');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTableEntry), '
urn:league', '
ArrayOfTableEntry');
RemClassRegistry.RegisterXSClass(TableResponse, '
urn:league', '
TableResponse');
RemClassRegistry.RegisterXSClass(ResultsRequest, '
urn:league', '
ResultsRequest');
RemClassRegistry.RegisterXSClass(Result, '
urn:league', '
Result');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfResult), '
urn:league', '
ArrayOfResult');
RemClassRegistry.RegisterXSClass(ResultsResponse, '
urn:league', '
ResultsResponse');
RemClassRegistry.RegisterXSClass(GamesRequest, '
urn:league', '
GamesRequest');
RemClassRegistry.RegisterXSClass(Game, '
urn:league', '
Game');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfGame), '
urn:league', '
ArrayOfGame');
RemClassRegistry.RegisterXSClass(GamesResponse, '
urn:league', '
GamesResponse');
end.