unit mr.dev.usb.pipebase; interface uses mr.drv.usb, mr.drv.usb.types; type TPipeBase = class protected fDriver : TUsbDriver; fPipeInfo: TUsbPipeInformation; public constructor Create( Driver : TUsbDriver; PipeInfo : TUsbPipeInformation); public property ID : byte read fPipeInfo.PipeID; end; implementation { TPipe } // @@@: Construction / destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // // Construction / destruction // // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ // ================================================================================================ // Constructor // ================================================================================================ constructor TPipeBase.Create(Driver: TUsbDriver; PipeInfo: TUsbPipeInformation); begin fDriver := Driver; fPipeInfo := PipeInfo; end; end.