Index: ProScan/WS/QRcodeNaarKenmerkenService.pas =================================================================== diff -u --- ProScan/WS/QRcodeNaarKenmerkenService.pas (revision 0) +++ ProScan/WS/QRcodeNaarKenmerkenService.pas (revision 670) @@ -0,0 +1,442 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://jlm-ws020:57772/csp/dev1/WS.Vhisie4.QRcodeNaarKenmerkenService.CLS?WSDL=1 +// >Import : http://jlm-ws020:57772/csp/dev1/WS.Vhisie4.QRcodeNaarKenmerkenService.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (13/12/2023 13:17:52 - - $Rev: 45757 $) +// ************************************************************************ // + +unit QRcodeNaarKenmerkenService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +const + IS_OPTN = $0001; + IS_UNBD = $0002; + IS_NLBL = $0004; + IS_ATTR = $0010; + IS_TEXT = $0020; + IS_REF = $0080; + + +type + + // ************************************************************************ // + // The following types, referred to in the WSDL document are not being represented + // in this file. They are either aliases[@] of other types represented or were referred + // to but never[!] declared in the document. The types from the latter category + // typically map to predefined/known XML or Embarcadero types; however, they could also + // indicate incorrect WSDL documents that failed to declare or import a schema type. + // ************************************************************************ // + // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] + + DataTransferObject = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + QRcodeNaarKenmerkenResponse = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + LadeRegistratieData = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + PairOfEconConfiguratieKeyString = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + QRcodeNaarKenmerkenRequest = class; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + + {$SCOPEDENUMS ON} + { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[Smpl] } + Taal = ( + N, + F, + E, + D, + S, + I, + NB, + FI, + ES, + DA, + PL + ); + + {$SCOPEDENUMS OFF} + + ArrayOfStringPairOfEconConfiguratieKeyString = array of PairOfEconConfiguratieKeyString; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblCplx] } + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // + // XML : QRcodeNaarKenmerkenResponse, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + QRcodeNaarKenmerkenResponse = class(DataTransferObject) + private + FEconConfiguratie: ArrayOfStringPairOfEconConfiguratieKeyString; + FEconConfiguratie_Specified: boolean; + FLadeRegistratieData: LadeRegistratieData; + FLadeRegistratieData_Specified: boolean; + procedure SetEconConfiguratie(Index: Integer; const AArrayOfStringPairOfEconConfiguratieKeyString: ArrayOfStringPairOfEconConfiguratieKeyString); + function EconConfiguratie_Specified(Index: Integer): boolean; + procedure SetLadeRegistratieData(Index: Integer; const ALadeRegistratieData: LadeRegistratieData); + function LadeRegistratieData_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + property EconConfiguratie: ArrayOfStringPairOfEconConfiguratieKeyString Index (IS_OPTN) read FEconConfiguratie write SetEconConfiguratie stored EconConfiguratie_Specified; + property LadeRegistratieData: LadeRegistratieData Index (IS_OPTN) read FLadeRegistratieData write SetLadeRegistratieData stored LadeRegistratieData_Specified; + end; + + String_ = type string; { "http://www.vanhoecke.be/EC/Vhisie4/Winkelkar"[GblSmpl] } + + + // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + RequestHeader = class(TRemotable) + private + FRequestID: String_; + FSessieID: String_; + FGebruikerID: String_; + FGebruikerIP: String_; + FKlantID: String_; + FPersonalityID: String_; + FPersonalityID_Specified: boolean; + FTaal: Taal; + FEmailAdres: String_; + FEmailAdres_Specified: boolean; + FEmailAdresBesteller: String_; + FEmailAdresBesteller_Specified: boolean; + FEmailAdresBevestiging: String_; + FEmailAdresBevestiging_Specified: boolean; + procedure SetPersonalityID(Index: Integer; const AString_: String_); + function PersonalityID_Specified(Index: Integer): boolean; + procedure SetEmailAdres(Index: Integer; const AString_: String_); + function EmailAdres_Specified(Index: Integer): boolean; + procedure SetEmailAdresBesteller(Index: Integer; const AString_: String_); + function EmailAdresBesteller_Specified(Index: Integer): boolean; + procedure SetEmailAdresBevestiging(Index: Integer; const AString_: String_); + function EmailAdresBevestiging_Specified(Index: Integer): boolean; + published + property RequestID: String_ read FRequestID write FRequestID; + property SessieID: String_ read FSessieID write FSessieID; + property GebruikerID: String_ read FGebruikerID write FGebruikerID; + property GebruikerIP: String_ read FGebruikerIP write FGebruikerIP; + property KlantID: String_ read FKlantID write FKlantID; + property PersonalityID: String_ Index (IS_OPTN) read FPersonalityID write SetPersonalityID stored PersonalityID_Specified; + property Taal: Taal read FTaal write FTaal; + property EmailAdres: String_ Index (IS_OPTN) read FEmailAdres write SetEmailAdres stored EmailAdres_Specified; + property EmailAdresBesteller: String_ Index (IS_OPTN) read FEmailAdresBesteller write SetEmailAdresBesteller stored EmailAdresBesteller_Specified; + property EmailAdresBevestiging: String_ Index (IS_OPTN) read FEmailAdresBevestiging write SetEmailAdresBevestiging stored EmailAdresBevestiging_Specified; + end; + + + + // ************************************************************************ // + // XML : LadeRegistratieData, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + LadeRegistratieData = class(DataTransferObject) + private + FVerkoopOrderId: String_; + FVerkoopOrderId_Specified: boolean; + FAxVerkoopOrderId: String_; + FAxVerkoopOrderId_Specified: boolean; + FEindklantID: String_; + FEindklantID_Specified: boolean; + FMultipersonalityID: String_; + FMultipersonalityID_Specified: boolean; + FKlantNummer: String_; + FKlantNummer_Specified: boolean; + procedure SetVerkoopOrderId(Index: Integer; const AString_: String_); + function VerkoopOrderId_Specified(Index: Integer): boolean; + procedure SetAxVerkoopOrderId(Index: Integer; const AString_: String_); + function AxVerkoopOrderId_Specified(Index: Integer): boolean; + procedure SetEindklantID(Index: Integer; const AString_: String_); + function EindklantID_Specified(Index: Integer): boolean; + procedure SetMultipersonalityID(Index: Integer; const AString_: String_); + function MultipersonalityID_Specified(Index: Integer): boolean; + procedure SetKlantNummer(Index: Integer; const AString_: String_); + function KlantNummer_Specified(Index: Integer): boolean; + published + property VerkoopOrderId: String_ Index (IS_OPTN) read FVerkoopOrderId write SetVerkoopOrderId stored VerkoopOrderId_Specified; + property AxVerkoopOrderId: String_ Index (IS_OPTN) read FAxVerkoopOrderId write SetAxVerkoopOrderId stored AxVerkoopOrderId_Specified; + property EindklantID: String_ Index (IS_OPTN) read FEindklantID write SetEindklantID stored EindklantID_Specified; + property MultipersonalityID: String_ Index (IS_OPTN) read FMultipersonalityID write SetMultipersonalityID stored MultipersonalityID_Specified; + property KlantNummer: String_ Index (IS_OPTN) read FKlantNummer write SetKlantNummer stored KlantNummer_Specified; + end; + + + + // ************************************************************************ // + // XML : PairOfEconConfiguratieKeyString, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + PairOfEconConfiguratieKeyString = class(TRemotable) + private + FText: String_; + FEconConfiguratieKey: string; + published + property Text: String_ Index (IS_TEXT) read FText write FText; + property EconConfiguratieKey: string Index (IS_ATTR) read FEconConfiguratieKey write FEconConfiguratieKey; + end; + + + + // ************************************************************************ // + // XML : QRcodeNaarKenmerkenRequest, global, + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // ************************************************************************ // + QRcodeNaarKenmerkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FQRcodeData: string; + FHerbestellingBijProbleem: Boolean; + FHerbestellingBijProbleem_Specified: boolean; + procedure SetHerbestellingBijProbleem(Index: Integer; const ABoolean: Boolean); + function HerbestellingBijProbleem_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property QRcodeData: string read FQRcodeData write FQRcodeData; + property HerbestellingBijProbleem: Boolean Index (IS_OPTN) read FHerbestellingBijProbleem write SetHerbestellingBijProbleem stored HerbestellingBijProbleem_Specified; + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/EC/Vhisie4/Winkelkar + // soapAction: http://www.vanhoecke.be/EC/Vhisie4/Winkelkar/WS.Vhisie4.QRcodeNaarKenmerkenService.GeefKenmerken + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : QRcodeNaarKenmerkenServiceSoap + // service : QRcodeNaarKenmerkenService + // port : QRcodeNaarKenmerkenServiceSoap + // URL : http://jlm-ws020:57772/csp/dev1/WS.Vhisie4.QRcodeNaarKenmerkenService.cls + // ************************************************************************ // + QRcodeNaarKenmerkenServiceSoap = interface(IInvokable) + ['{6EDA173D-08FB-A7BD-9E87-F9CE42485B04}'] + function GeefKenmerken(const QRcodeNaarKenmerkenRequest: QRcodeNaarKenmerkenRequest): QRcodeNaarKenmerkenResponse; stdcall; + end; + +function GetQRcodeNaarKenmerkenServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): QRcodeNaarKenmerkenServiceSoap; + + +implementation + uses SysUtils; + +function GetQRcodeNaarKenmerkenServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): QRcodeNaarKenmerkenServiceSoap; +const + defWSDL = 'http://jlm-ws020:57772/csp/dev1/WS.Vhisie4.QRcodeNaarKenmerkenService.CLS?WSDL=1'; + defURL = 'http://jlm-ws020:57772/csp/dev1/WS.Vhisie4.QRcodeNaarKenmerkenService.cls'; + defSvc = 'QRcodeNaarKenmerkenService'; + defPrt = 'QRcodeNaarKenmerkenServiceSoap'; +var + RIO: THTTPRIO; +begin + Result := nil; + if (Addr = '') then + begin + if UseWSDL then + Addr := defWSDL + else + Addr := defURL; + end; + if HTTPRIO = nil then + RIO := THTTPRIO.Create(nil) + else + RIO := HTTPRIO; + try + Result := (RIO as QRcodeNaarKenmerkenServiceSoap); + if UseWSDL then + begin + RIO.WSDLLocation := Addr; + RIO.Service := defSvc; + RIO.Port := defPrt; + end else + RIO.URL := Addr; + finally + if (Result = nil) and (HTTPRIO = nil) then + RIO.Free; + end; +end; + + +destructor QRcodeNaarKenmerkenResponse.Destroy; +var + I: Integer; +begin + for I := 0 to System.Length(FEconConfiguratie)-1 do + SysUtils.FreeAndNil(FEconConfiguratie[I]); + System.SetLength(FEconConfiguratie, 0); + SysUtils.FreeAndNil(FLadeRegistratieData); + inherited Destroy; +end; + +procedure QRcodeNaarKenmerkenResponse.SetEconConfiguratie(Index: Integer; const AArrayOfStringPairOfEconConfiguratieKeyString: ArrayOfStringPairOfEconConfiguratieKeyString); +begin + FEconConfiguratie := AArrayOfStringPairOfEconConfiguratieKeyString; + FEconConfiguratie_Specified := True; +end; + +function QRcodeNaarKenmerkenResponse.EconConfiguratie_Specified(Index: Integer): boolean; +begin + Result := FEconConfiguratie_Specified; +end; + +procedure QRcodeNaarKenmerkenResponse.SetLadeRegistratieData(Index: Integer; const ALadeRegistratieData: LadeRegistratieData); +begin + FLadeRegistratieData := ALadeRegistratieData; + FLadeRegistratieData_Specified := True; +end; + +function QRcodeNaarKenmerkenResponse.LadeRegistratieData_Specified(Index: Integer): boolean; +begin + Result := FLadeRegistratieData_Specified; +end; + +procedure RequestHeader.SetPersonalityID(Index: Integer; const AString_: String_); +begin + FPersonalityID := AString_; + FPersonalityID_Specified := True; +end; + +function RequestHeader.PersonalityID_Specified(Index: Integer): boolean; +begin + Result := FPersonalityID_Specified; +end; + +procedure RequestHeader.SetEmailAdres(Index: Integer; const AString_: String_); +begin + FEmailAdres := AString_; + FEmailAdres_Specified := True; +end; + +function RequestHeader.EmailAdres_Specified(Index: Integer): boolean; +begin + Result := FEmailAdres_Specified; +end; + +procedure RequestHeader.SetEmailAdresBesteller(Index: Integer; const AString_: String_); +begin + FEmailAdresBesteller := AString_; + FEmailAdresBesteller_Specified := True; +end; + +function RequestHeader.EmailAdresBesteller_Specified(Index: Integer): boolean; +begin + Result := FEmailAdresBesteller_Specified; +end; + +procedure RequestHeader.SetEmailAdresBevestiging(Index: Integer; const AString_: String_); +begin + FEmailAdresBevestiging := AString_; + FEmailAdresBevestiging_Specified := True; +end; + +function RequestHeader.EmailAdresBevestiging_Specified(Index: Integer): boolean; +begin + Result := FEmailAdresBevestiging_Specified; +end; + +procedure LadeRegistratieData.SetVerkoopOrderId(Index: Integer; const AString_: String_); +begin + FVerkoopOrderId := AString_; + FVerkoopOrderId_Specified := True; +end; + +function LadeRegistratieData.VerkoopOrderId_Specified(Index: Integer): boolean; +begin + Result := FVerkoopOrderId_Specified; +end; + +procedure LadeRegistratieData.SetAxVerkoopOrderId(Index: Integer; const AString_: String_); +begin + FAxVerkoopOrderId := AString_; + FAxVerkoopOrderId_Specified := True; +end; + +function LadeRegistratieData.AxVerkoopOrderId_Specified(Index: Integer): boolean; +begin + Result := FAxVerkoopOrderId_Specified; +end; + +procedure LadeRegistratieData.SetEindklantID(Index: Integer; const AString_: String_); +begin + FEindklantID := AString_; + FEindklantID_Specified := True; +end; + +function LadeRegistratieData.EindklantID_Specified(Index: Integer): boolean; +begin + Result := FEindklantID_Specified; +end; + +procedure LadeRegistratieData.SetMultipersonalityID(Index: Integer; const AString_: String_); +begin + FMultipersonalityID := AString_; + FMultipersonalityID_Specified := True; +end; + +function LadeRegistratieData.MultipersonalityID_Specified(Index: Integer): boolean; +begin + Result := FMultipersonalityID_Specified; +end; + +procedure LadeRegistratieData.SetKlantNummer(Index: Integer; const AString_: String_); +begin + FKlantNummer := AString_; + FKlantNummer_Specified := True; +end; + +function LadeRegistratieData.KlantNummer_Specified(Index: Integer): boolean; +begin + Result := FKlantNummer_Specified; +end; + +destructor QRcodeNaarKenmerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure QRcodeNaarKenmerkenRequest.SetHerbestellingBijProbleem(Index: Integer; const ABoolean: Boolean); +begin + FHerbestellingBijProbleem := ABoolean; + FHerbestellingBijProbleem_Specified := True; +end; + +function QRcodeNaarKenmerkenRequest.HerbestellingBijProbleem_Specified(Index: Integer): boolean; +begin + Result := FHerbestellingBijProbleem_Specified; +end; + +initialization + { QRcodeNaarKenmerkenServiceSoap } + InvRegistry.RegisterInterface(TypeInfo(QRcodeNaarKenmerkenServiceSoap), 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(QRcodeNaarKenmerkenServiceSoap), 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar/WS.Vhisie4.QRcodeNaarKenmerkenService.GeefKenmerken'); + InvRegistry.RegisterInvokeOptions(TypeInfo(QRcodeNaarKenmerkenServiceSoap), ioDocument); + { QRcodeNaarKenmerkenServiceSoap.GeefKenmerken } + InvRegistry.RegisterMethodInfo(TypeInfo(QRcodeNaarKenmerkenServiceSoap), 'GeefKenmerken', '', + '[ReturnName="GeefKenmerkenResult"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringPairOfEconConfiguratieKeyString), 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'ArrayOfStringPairOfEconConfiguratieKeyString'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(QRcodeNaarKenmerkenResponse, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'QRcodeNaarKenmerkenResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(QRcodeNaarKenmerkenResponse), 'EconConfiguratie', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(Taal), 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'Taal'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'String_', 'String'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(LadeRegistratieData, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'LadeRegistratieData'); + RemClassRegistry.RegisterXSClass(PairOfEconConfiguratieKeyString, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'PairOfEconConfiguratieKeyString'); + RemClassRegistry.RegisterXSClass(QRcodeNaarKenmerkenRequest, 'http://www.vanhoecke.be/EC/Vhisie4/Winkelkar', 'QRcodeNaarKenmerkenRequest'); + +end. \ No newline at end of file