Initial check in

2026-01-03 18:53:14 +01:00
commit b9305ab8af
36 changed files with 6720 additions and 0 deletions
@@ -0,0 +1,44 @@
+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.