LOVATO-plugin/IEGate_Impl.pas

unit IEGate_Impl;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}

{$I RemObjects.inc}

interface

uses
  {$IFDEF LCL}LResources,{$ENDIF}
  {vcl:} Classes, SysUtils, 
  {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
  {Required:} uRORemoteDataModule,
  {Generated:} libPPL_Intf;

type
  { TIEGate }
  TIEGate = class(TRORemoteDataModule, IIEGate)
  private
  protected
    { IIEGate methods }
    function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
    function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
    function GetCities(const parameters: GetCities): GetCitiesResponse;
    function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
    function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
    function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
    function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
    function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
    function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
    function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
    function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
    function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
    function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
    function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
    function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
    function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
    function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
    function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
    function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
    function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
    function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
  end;

implementation

{$IFNDEF FPC}
  {$R *.dfm}
{$ENDIF}
uses
  {Generated:} libPPL_Invk;

procedure Create_IEGate(out anInstance : IUnknown);
begin
  anInstance := TIEGate.Create(nil);
end;

{ IEGate }
function TIEGate.ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.GetCities(const parameters: GetCities): GetCitiesResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

function TIEGate.ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
begin
  {$Message Hint 'is not implemented yet!'}
  Result := nil;
end;

var
  fClassFactory: IROClassFactory;
initialization
{$IFDEF LCL}
  {$I IEGate_Impl.lrs}
{$ENDIF}
  fClassFactory := TROClassFactory.Create('IEGate', {$IFDEF FPC}@{$ENDIF}Create_IEGate, TIEGate_Invoker);
  // RegisterForZeroConf(fClassFactory,'_IEGate_rosdk._tcp.');

finalization
  UnRegisterClassFactory(fClassFactory);
  fClassFactory := nil;

end.