unit FirstSampleLibrary_Intf; {----------------------------------------------------------------------------} { 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. } {----------------------------------------------------------------------------} interface uses {vcl:} Classes, TypInfo, {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf, {Used RODLs:} DataAbstract4_Intf; const { Library ID } LibraryUID = '{668FD1CF-765E-4C72-86E1-5BB53EA5CE34}'; { Service Interface ID's } IFirstSampleService_IID : TGUID = '{58D29079-CADF-4D12-B78C-F1403B2BBF34}'; { Event ID's } type { Forward declarations } IFirstSampleService = interface; { IFirstSampleService } IFirstSampleService = interface(IDataAbstractService) ['{58D29079-CADF-4D12-B78C-F1403B2BBF34}'] end; { CoFirstSampleService } CoFirstSampleService = class class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService; end; { TFirstSampleService_Proxy } TFirstSampleService_Proxy = class(TDataAbstractService_Proxy, IFirstSampleService) protected function __GetInterfaceName:string; override; end; implementation uses {vcl:} SysUtils, {RemObjects:} uROEventRepository, uRORes; { CoFirstSampleService } class function CoFirstSampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService; begin result := TFirstSampleService_Proxy.Create(aMessage, aTransportChannel); end; function TFirstSampleService_Proxy.__GetInterfaceName:string; begin result := 'FirstSampleService'; end; initialization RegisterProxyClass(IFirstSampleService_IID, TFirstSampleService_Proxy); finalization UnregisterProxyClass(IFirstSampleService_IID); end.