Changeset 231 for PinConnection/UPacketBurst.pas

Timestamp:

Apr 14, 2011, 12:47:57 PM (13 years ago)

Author:

george

Message:

• Modified: MicroThreading replaced by TListedThread classic thread implementation.

File:

• PinConnection/UPacketBurst.pas (modified) (5 diffs)

PinConnection/UPacketBurst.pas

@@ -7 +7 @@
 uses
   Classes, UCommPin, SyncObjs, UStreamHelper, UCommon, SysUtils,
-  UMicroThreading, DateUtils;
+  DateUtils;
 
 type
   TPacketBurst = class;
 
-  TPacketBurstSendThread = class(TMicroThread)
+  TPacketBurstSendThread = class(TThread)
     PacketBurst: TPacketBurst;
     procedure Execute; override;
@@ -22 +22 @@
   private
     FActive: Boolean;
-    SendThreadEvent: TMicroThreadEvent;
+    SendThreadEvent: TEvent;
     SendThread: TPacketBurstSendThread;
     SendStreamLock: TCriticalSection;
@@ -31 +31 @@
     procedure SetActive(const AValue: Boolean);
   public
-    SendPeriod: TDateTime;
+    SendPeriod: Integer;
     SendBurstSize: Integer;
     PacketSinglePin: TCommPin;
@@ -50 +50 @@
   PacketBurstPin := TCommPin.Create;
   PacketBurstPin.OnReceive := PacketBurstReceive;
-  SendThreadEvent := TMicroThreadEvent.Create;
-  SendPeriod := OneMillisecond;
+  SendThreadEvent := TSimpleEvent.Create;
+  SendPeriod := 1;
 end;
 
@@ -93 +93 @@
     SendThread.FreeOnTerminate := False;
     SendThread.PacketBurst := Self;
-    SendThread.Name := 'PacketBurst';
+    //SendThread.Name := 'PacketBurst';
     SendThread.Start;
   end else begin