Changeset 119 for Comm/UCommSerialPort.pas

Timestamp:

Jan 5, 2011, 1:16:30 PM (14 years ago)

Author:

george

Message:

• Created: New Lazarus package as container for few classes with bidirectional pin interconnection system .

Location:

Comm

Files:

• . (modified) (1 prop)
• UCommSerialPort.pas (modified) (4 diffs)

Comm/UCommSerialPort.pas

@@ -11 +11 @@
   TCommSerialPort = class(TSerialPort)
   private
-    FTxCount: Integer;
-    FRxCount: Integer;
-    procedure Receive(Stream: TStream);
+    procedure Receive(Sender: TCommPin; Stream: TStream);
     procedure ReceiveData(Stream: TMemoryStream);
   public
-    DataPin: TCommPin;
+    Pin: TCommPin;
     destructor Destroy; override;
     constructor Create;
-    property TxCount: Integer read FTxCount;
-    property RxCount: Integer read FRxCount;
   end;
 
@@ -31 +27 @@
 procedure TCommSerialPort.ReceiveData(Stream: TMemoryStream);
 begin
-  Inc(FRxCount, Stream.Size);
-  DataPin.Send(Stream);
+  Pin.Send(Stream);
 end;
 
@@ -38 +33 @@
 begin
   inherited;
-  DataPin := TCommPin.Create;
-  DataPin.OnReceive := Receive;
+  Pin := TCommPin.Create;
+  Pin.OnReceive := Receive;
   OnReceiveData := ReceiveData;
 end;
@@ -46 +41 @@
 begin
   OnReceiveData := nil;
-  DataPin.Destroy;
+  Pin.Free;
   inherited;
 end;
 
-procedure TCommSerialPort.Receive(Stream: TStream);
+procedure TCommSerialPort.Receive(Sender: TCommPin; Stream: TStream);
 begin
-  Inc(FTxCount, Stream.Size);
   Stream.Position := 0;
   repeat