Changeset 231 for PinConnection/USerialPort.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/USerialPort.pas (modified) (3 diffs)

PinConnection/USerialPort.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon, UMicroThreading,
+  Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon, UThreading,
   DateUtils;
 
@@ -23 +23 @@
   { TSerialPortReceiveThread }
 
-  TSerialPortReceiveThread = class(TMicroThread)
+  TSerialPortReceiveThread = class(TListedThread)
   public
     Parent: TSerialPort;
@@ -292 +292 @@
   InBufferUsed := 0;
   with Parent do repeat
-      if InBufferUsed = 0 then MTSleep(1 * OneMillisecond)
-        else Yield;
+      if InBufferUsed = 0 then Sleep(1);
+        //else Yield;
       if Active then begin
         InBufferUsed := WaitingData;