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

PinConnection/UCommPin.pas

@@ -6 +6 @@
 
 uses
-  Classes;
+  Classes, SpecializedList;
 
 type
@@ -12 +12 @@
 
   TDataDiretion = (ddReceive, ddSend);
-  TOnLogDataEvent = procedure (Stream: TStream; Direction: TDataDiretion) of object;
-  TOnStreamEvent = procedure (Sender: TCommPin; Stream: TStream) of object;
+  TOnLogDataEvent = procedure (Stream: TListByte; Direction: TDataDiretion) of object;
+  TOnStreamEvent = procedure (Sender: TCommPin; Stream: TListByte) of object;
   TOnSetStatus = procedure (Sender: TCommPin; Status: Integer) of object;
 
@@ -31 +31 @@
     procedure SetStatus(AValue: Integer);
   protected
-    procedure Receive(Stream: TStream);
+    procedure Receive(Stream: TListByte);
     procedure ReceiveStatus(AValue: Integer);
   public
@@ -39 +39 @@
     procedure Connect(Pin: TCommPin);
     procedure Disconnect;
-    procedure Send(Stream: TStream);
+    procedure Send(Stream: TListByte);
     procedure ResetCounters;
     property Connected: Boolean read GetConnected;
@@ -100 +100 @@
 end;
 
-procedure TCommPin.Receive(Stream: TStream);
+procedure TCommPin.Receive(Stream: TListByte);
 begin
-  Inc(FDataRxCount, Stream.Size);
+  Inc(FDataRxCount, Stream.Count);
   Inc(FFrameRxCount);
   if Assigned(FOnLogData) then FOnLogData(Stream, ddReceive);
-  Stream.Position := 0;
   if Assigned(FOnReceive) then FOnReceive(Self, Stream);
 end;
@@ -122 +121 @@
 end;
 
-procedure TCommPin.Send(Stream: TStream);
+procedure TCommPin.Send(Stream: TListByte);
 begin
-  Inc(FDataTxCount, Stream.Size);
+  Inc(FDataTxCount, Stream.Count);
   Inc(FFrameTxCount);
   if Assigned(FOnLogData) then FOnLogData(Stream, ddSend);