889 lines
60 KiB
ObjectPascal
889 lines
60 KiB
ObjectPascal
unit libPPL_Invk;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project . }
|
|
{ }
|
|
{ Do not modify this unit manually, or your changes will be lost when this }
|
|
{ unit is regenerated the next time you compile the project. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I RemObjects.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes,
|
|
{RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
|
|
{Generated:} libPPL_Intf;
|
|
|
|
type
|
|
TSeekOrigin = Classes.TSeekOrigin; // fake declaration
|
|
TIEGate_Invoker = class(TROInvoker)
|
|
private
|
|
protected
|
|
public
|
|
constructor Create; override;
|
|
published
|
|
procedure Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
procedure Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{RemObjects:} uRORes, uROClient;
|
|
|
|
{ TIEGate_Invoker }
|
|
|
|
constructor TIEGate_Invoker.Create;
|
|
begin
|
|
inherited Create;
|
|
FAbstract := False;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportPPLSprint;
|
|
lResult: libPPL_Intf.ImportPPLSprintResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportPPLSprint', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPPLSprint), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportPPLSprint(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPPLSprintResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPPLSprintResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; }
|
|
var
|
|
parameters: libPPL_Intf.GetZipCodes;
|
|
lResult: libPPL_Intf.GetZipCodesResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/GetZipCodes', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetZipCodes), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).GetZipCodes(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetZipCodesResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetZipCodesResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetCities(const parameters: GetCities): GetCitiesResponse; }
|
|
var
|
|
parameters: libPPL_Intf.GetCities;
|
|
lResult: libPPL_Intf.GetCitiesResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/GetCities', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetCities), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).GetCities(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetCitiesResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetCitiesResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; }
|
|
var
|
|
parameters: libPPL_Intf.GetPackagesInfo;
|
|
lResult: libPPL_Intf.GetPackagesInfoResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/GetPackagesInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackagesInfo), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).GetPackagesInfo(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackagesInfoResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackagesInfoResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; }
|
|
var
|
|
parameters: libPPL_Intf.GetPackageToDelivery;
|
|
lResult: libPPL_Intf.GetPackageToDeliveryResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/GetPackageToDelivery', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageToDelivery), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).GetPackageToDelivery(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageToDeliveryResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageToDeliveryResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; }
|
|
var
|
|
parameters: libPPL_Intf.GetPackageInfo;
|
|
lResult: libPPL_Intf.GetPackageInfoResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/GetPackageInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageInfo), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).GetPackageInfo(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageInfoResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageInfoResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportOrderExt;
|
|
lResult: libPPL_Intf.ImportOrderExtResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportOrderExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderExt), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportOrderExt(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderExtResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderExtResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportOrdersExt;
|
|
lResult: libPPL_Intf.ImportOrdersExtResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportOrdersExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersExt), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportOrdersExt(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersExtResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersExtResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportPackageExt;
|
|
lResult: libPPL_Intf.ImportPackageExtResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportPackageExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackageExt), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportPackageExt(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackageExtResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackageExtResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportPackagesExt;
|
|
lResult: libPPL_Intf.ImportPackagesExtResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportPackagesExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesExt), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportPackagesExt(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesExtResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesExtResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportPackages;
|
|
lResult: libPPL_Intf.ImportPackagesResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackages), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportPackages(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportOrders;
|
|
lResult: libPPL_Intf.ImportOrdersResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportOrders', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrders), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportOrders(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportWeighedPack;
|
|
lResult: libPPL_Intf.ImportWeighedPackResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportWeighedPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPack), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportWeighedPack(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportWeighedPackages;
|
|
lResult: libPPL_Intf.ImportWeighedPackagesResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportWeighedPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackages), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportWeighedPackages(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackagesResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackagesResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportPackagesHoffmann;
|
|
lResult: libPPL_Intf.ImportPackagesHoffmannResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportPackagesHoffmann', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmann), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportPackagesHoffmann(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesHoffmannResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmannResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportESYCOPack;
|
|
lResult: libPPL_Intf.ImportESYCOPackResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportESYCOPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPack), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportESYCOPack(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportESYCOPackages;
|
|
lResult: libPPL_Intf.ImportESYCOPackagesResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportESYCOPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackages), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportESYCOPackages(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackagesResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackagesResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportStatusDHL;
|
|
lResult: libPPL_Intf.ImportStatusDHLResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportStatusDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusDHL), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportStatusDHL(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusDHLResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusDHLResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportStatusesDHL;
|
|
lResult: libPPL_Intf.ImportStatusesDHLResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportStatusesDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHL), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportStatusesDHL(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusesDHLResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHLResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportOrderCart;
|
|
lResult: libPPL_Intf.ImportOrderCartResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportOrderCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderCart), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportOrderCart(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderCartResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderCartResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TIEGate_Invoker.Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; }
|
|
var
|
|
parameters: libPPL_Intf.ImportOrdersCart;
|
|
lResult: libPPL_Intf.ImportOrdersCartResponse;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
|
|
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
|
|
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
|
|
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
|
|
['PPLIEGate/ImportOrdersCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
|
|
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
|
|
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
|
|
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
|
|
parameters := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersCart), parameters, []);
|
|
|
|
lResult := (__Instance as IIEGate).ImportOrdersCart(parameters);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersCartResponse');
|
|
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersCartResponse), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(parameters);
|
|
__lObjectDisposer.Add(lResult);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterServiceAttribute('','Wsdl','http://www.ppl.cz/IEGate/IEGate.asmx?WSDL');
|
|
RegisterServiceAttribute('','TargetNamespace','PPLIEGate');
|
|
RegisterServiceAttribute('IEGate','Type','SOAP');
|
|
RegisterServiceAttribute('IEGate','Location','http://www.ppl.cz/IEGate/IEGate.asmx');
|
|
RegisterServiceAttribute('IEGate','remap_ImportPPLSprint','PPLIEGate/ImportPPLSprint');
|
|
RegisterServiceAttribute('IEGate','remap_GetZipCodes','PPLIEGate/GetZipCodes');
|
|
RegisterServiceAttribute('IEGate','remap_GetCities','PPLIEGate/GetCities');
|
|
RegisterServiceAttribute('IEGate','remap_GetPackagesInfo','PPLIEGate/GetPackagesInfo');
|
|
RegisterServiceAttribute('IEGate','remap_GetPackageToDelivery','PPLIEGate/GetPackageToDelivery');
|
|
RegisterServiceAttribute('IEGate','remap_GetPackageInfo','PPLIEGate/GetPackageInfo');
|
|
RegisterServiceAttribute('IEGate','remap_ImportOrderExt','PPLIEGate/ImportOrderExt');
|
|
RegisterServiceAttribute('IEGate','remap_ImportOrdersExt','PPLIEGate/ImportOrdersExt');
|
|
RegisterServiceAttribute('IEGate','remap_ImportPackageExt','PPLIEGate/ImportPackageExt');
|
|
RegisterServiceAttribute('IEGate','remap_ImportPackagesExt','PPLIEGate/ImportPackagesExt');
|
|
RegisterServiceAttribute('IEGate','remap_ImportPackages','PPLIEGate/ImportPackages');
|
|
RegisterServiceAttribute('IEGate','remap_ImportOrders','PPLIEGate/ImportOrders');
|
|
RegisterServiceAttribute('IEGate','remap_ImportWeighedPack','PPLIEGate/ImportWeighedPack');
|
|
RegisterServiceAttribute('IEGate','remap_ImportWeighedPackages','PPLIEGate/ImportWeighedPackages');
|
|
RegisterServiceAttribute('IEGate','remap_ImportPackagesHoffmann','PPLIEGate/ImportPackagesHoffmann');
|
|
RegisterServiceAttribute('IEGate','remap_ImportESYCOPack','PPLIEGate/ImportESYCOPack');
|
|
RegisterServiceAttribute('IEGate','remap_ImportESYCOPackages','PPLIEGate/ImportESYCOPackages');
|
|
RegisterServiceAttribute('IEGate','remap_ImportStatusDHL','PPLIEGate/ImportStatusDHL');
|
|
RegisterServiceAttribute('IEGate','remap_ImportStatusesDHL','PPLIEGate/ImportStatusesDHL');
|
|
RegisterServiceAttribute('IEGate','remap_ImportOrderCart','PPLIEGate/ImportOrderCart');
|
|
RegisterServiceAttribute('IEGate','remap_ImportOrdersCart','PPLIEGate/ImportOrdersCart');
|
|
end.
|