Changeset 163 for PinConnection/UCommSocket.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)
• UCommSocket.pas (modified) (4 diffs)

PinConnection

@@ -1 +1 @@
 lib
+backup

@@ -1 +1 @@
 lib
+backup

PinConnection/UCommSocket.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, blcksock, UCommPin, UCommon;
+  Classes, SysUtils, blcksock, UCommPin, UCommon, UMicroThreading,
+  DateUtils;
 
 type
@@ -15 +16 @@
   { TCommSocketReceiveThread }
 
-  TCommSocketReceiveThread = class(TThread)
+  TCommSocketReceiveThread = class(TMicroThread)
   public
     Parent: TCommSocket;
@@ -93 +94 @@
   InBufferUsed := 0;
   with Parent do repeat
-    try
-      if InBufferUsed = 0 then Sleep(1);
+      if InBufferUsed = 0 then MTSleep(1 * OneMillisecond)
+        else Yield;
       if Assigned(Socket) then
       with Socket do
-      if CanRead(100) then begin
+      if CanRead(0) then begin
         InBufferUsed := WaitingData;
         if InBufferUsed > 0 then begin
@@ -109 +110 @@
         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