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

PinConnection/UCommSerialPort.pas

@@ -6 +6 @@
 
 uses
-  Classes, USerialPort, UCommPin, SysUtils, UMicroThreading, DateUtils,
+  Classes, USerialPort, UCommPin, SysUtils, DateUtils,
   SyncObjs;
 
@@ -15 +15 @@
     procedure ReceiveData(Stream: TMemoryStream);
   public
-    Lock: TMicroThreadCriticalSection;
+    Lock: TCriticalSection;
     Pin: TCommPin;
     destructor Destroy; override;
@@ -35 +35 @@
 begin
   inherited;
-  Lock := TMicroThreadCriticalSection.Create;
+  Lock := TCriticalSection.Create;
   Pin := TCommPin.Create;
   Pin.OnReceive := Receive;
@@ -60 +60 @@
     end;
     if Stream.Position <> Stream.Size then
-      MTSleep(1 * OneMillisecond);
+      Sleep(1);
   until Stream.Position = Stream.Size;
 end;