Changeset 407 for PinConnection/UCommConcentrator.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/UCommConcentrator.pas (modified) (4 diffs)

PinConnection/UCommConcentrator.pas

@@ -9 +9 @@
 
 uses
-  Classes, SysUtils, Contnrs, UCommPin;
+  Classes, SysUtils, Contnrs, UCommPin, SpecializedList;
 
 type
@@ -31 +31 @@
     FPins: TPinList;
     FMain: TCommPin;
-    procedure MainReceive(Sender: TCommPin; Stream: TStream);
+    procedure MainReceive(Sender: TCommPin; Stream: TListByte);
     procedure MainSetStatus(Sender: TCommPin; Status: Integer);
-    procedure Receive(Sender: TCommPin; Stream: TStream);
+    procedure Receive(Sender: TCommPin; Stream: TListByte);
     procedure SetStatus(Sender: TCommPin; Status: Integer);
   public
@@ -75 +75 @@
 { TCommConcentrator }
 
-procedure TCommConcentrator.MainReceive(Sender: TCommPin; Stream: TStream);
+procedure TCommConcentrator.MainReceive(Sender: TCommPin; Stream: TListByte);
 var
   I: Integer;
@@ -99 +99 @@
 end;
 
-procedure TCommConcentrator.Receive(Sender: TCommPin; Stream: TStream);
+procedure TCommConcentrator.Receive(Sender: TCommPin; Stream: TListByte);
 begin
   if FActive then FMain.Send(Stream);