Prvni verze na Git

IEGate_Impl.pas

@@ -0,0 +1,203 @@
+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.