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

PinConnection/UCommSocket.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, blcksock, UCommPin, UCommon, UMicroThreading,
+  Classes, SysUtils, blcksock, UCommPin, UCommon, UThreading,
   DateUtils;
 
@@ -16 +16 @@
   { TCommSocketReceiveThread }
 
-  TCommSocketReceiveThread = class(TMicroThread)
+  TCommSocketReceiveThread = class(TListedThread)
   public
     Parent: TCommSocket;
@@ -94 +94 @@
   InBufferUsed := 0;
   with Parent do repeat
-      if InBufferUsed = 0 then MTSleep(1 * OneMillisecond)
-        else Yield;
+      if InBufferUsed = 0 then Sleep(1);
+        //else Yield;
       if Assigned(Socket) then
       with Socket do