45 lines
1.4 KiB
ObjectPascal
45 lines
1.4 KiB
ObjectPascal
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.
|