Changeset 407 for PinConnection/UCommHub.pas

Timestamp:

Aug 14, 2012, 10:31:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: PinConnection package now use for data parameters TListByte instead of TStream class contained in TemplateGenerics package. TStream have Position property which has no meaning for forwarding plain byte memory block. There is TBinarySerializer class used for serializing data instead of TStreamHelper class.

File:

• PinConnection/UCommHub.pas (modified) (3 diffs)

PinConnection/UCommHub.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, UCommPin;
+  Classes, SysUtils, Contnrs, UCommPin, SpecializedList;
 
 type
@@ -27 +27 @@
     FActive: Boolean;
     FPins: TPinList;
-    procedure Receive(Sender: TCommPin; Stream: TStream);
+    procedure Receive(Sender: TCommPin; Stream: TListByte);
     procedure SetStatus(Sender: TCommPin; Status: Integer);
   public
@@ -68 +68 @@
 { TCommHub }
 
-procedure TCommHub.Receive(Sender: TCommPin; Stream: TStream);
+procedure TCommHub.Receive(Sender: TCommPin; Stream: TListByte);
 var
   I: Integer;