Changeset 163 for PinConnection/USerialPort.pas

Timestamp:

Feb 8, 2011, 11:02:02 AM (13 years ago)

Author:

george

Message:

• Modified: Units are dependent on MicroThreading system now.

Location:

PinConnection

Files:

• . (modified) (1 prop)
• USerialPort.pas (modified) (5 diffs)

PinConnection

@@ -1 +1 @@
 lib
+backup

@@ -1 +1 @@
 lib
+backup

PinConnection/USerialPort.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon;
+  Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon, UMicroThreading,
+  DateUtils;
 
 type
@@ -22 +23 @@
   { TSerialPortReceiveThread }
 
-  TSerialPortReceiveThread = class(TThread)
+  TSerialPortReceiveThread = class(TMicroThread)
   public
     Parent: TSerialPort;
@@ -154 +155 @@
   FReceiveThread.FreeOnTerminate := False;
   FReceiveThread.Parent := Self;
+  FReceiveThread.Name := 'SerialPort';
   FReceiveThread.Start;
 end;
@@ -290 +292 @@
   InBufferUsed := 0;
   with Parent do repeat
-    try
-      if InBufferUsed = 0 then Sleep(1);
+      if InBufferUsed = 0 then MTSleep(1 * OneMillisecond)
+        else Yield;
       if Active then begin
         InBufferUsed := WaitingData;
@@ -305 +307 @@
         end else InBufferUsed := 0;
       end else InBufferUsed := 0;
-    except
-      on E: Exception do
-        if Assigned(ExceptionHandler) then ExceptionHandler(Self, E);
-    end;
   until Terminated;
 end;

@@ -1 +1 @@
 lib
+backup