// ************************************************************************ // // 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.