Changeset 296 for PinConnection/UCommFrame.pas

Timestamp:

Nov 16, 2011, 7:24:09 AM (13 years ago)

Author:

george

Message:

• Added: New TCommDelay interconnection block for creating time delay in route.
• Fixed: In TCommThread do not obtain lock during sending data in thread.
• Modified: TCommFrame have ability to change special control symbols.

File:

• PinConnection/UCommFrame.pas (modified) (6 diffs)

PinConnection/UCommFrame.pas

@@ -8 +8 @@
   Classes, UStreamHelper, Dialogs, SysUtils,
   UCommPin;
-
-const
-  SpecialChar = $fe;
-  ControlCodeFrameStart = $fd;
-  ControlCodeFrameEnd = $fc;
-  ControlCodeSpecialChar = $fb;
-  TimeoutRepeatCount = 3;
 
 type
@@ -33 +26 @@
     FrameDataPin: TCommPin;
     PacketLoss: Real;
+    SpecialChar: Byte;
+    ControlCodeFrameStart: Byte;
+    ControlCodeFrameEnd: Byte;
+    ControlCodeSpecialChar: Byte;
     procedure RawDataReceive(Sender: TCommPin; Stream: TStream);
     procedure RawSetStatus(Sender: TCommPin; Status: Integer);
     procedure FrameDataReceive(Sender: TCommPin; Stream: TStream);
     procedure FrameSetStatus(Sender: TCommPin; Status: Integer);
+    function ComputeRawSize(DataStream: TStream): Integer;
     constructor Create;
     destructor Destroy; override;
@@ -56 +54 @@
   FrameDataPin.OnReceive := FrameDataReceive;
   PacketLoss := 0.005;
+  SpecialChar := $fe;
+  ControlCodeFrameStart := $fd;
+  ControlCodeFrameEnd := $fc;
+  ControlCodeSpecialChar := $fb;
 end;
 
@@ -99 +101 @@
     RawData.WriteByte(SpecialChar);
     RawData.WriteByte(ControlCodeFrameEnd);
-    //if Random >= PacketLoss then
+    if Random >= PacketLoss then
       RawDataPin.Send(RawData);
 
@@ -110 +112 @@
 begin
   RawDataPin.Status := Status;
+end;
+
+function TCommFrame.ComputeRawSize(DataStream: TStream): Integer;
+begin
+  Result := 5; // FrameStart + CRC + FrameEnd
+  DataStream.Position := 0;
+  while DataStream.Position < DataStream.Size do
+    if DataStream.ReadByte = SpecialChar then Inc(Result, 2)
+      else Inc(Result, 1);
 end;
 
@@ -170 +181 @@
   Polynom: Byte = $18;
 begin
+  Pom := 0;
   Stream.Position := 0;
   Result := 0;