Changeset 302 for PinConnection/UCommThread.pas

Timestamp:

Dec 5, 2011, 2:20:39 PM (13 years ago)

Author:

chronos

Message:

• Fixed: CommThread delay in loop only if necessery.
• Modified: CommDelay now use two separated thread for both direction.

File:

• PinConnection/UCommThread.pas (modified) (3 diffs)

PinConnection/UCommThread.pas

@@ -139 +139 @@
 var
   TempStatus: Integer;
+  DoSleep: Boolean;
 begin
   with Parent do
   repeat
+    DoSleep := True;
     // Check if new data arrived
-    if FDataAvailable.WaitFor(1) = wrSignaled then begin
+    if FDataAvailable.WaitFor(0) = wrSignaled then begin
+      DoSleep := False;
       try
         FInputBufferLock.Acquire;
@@ -158 +161 @@
     // Check if state changed
     if FStatusEvent.WaitFor(0) = wrSignaled then begin
+      DoSleep := False;
       try
         FInputBufferLock.Acquire;
@@ -166 +170 @@
       end;
       Pin.Status := TempStatus;
+    end;
+    if not Terminated and DoSleep then begin
+      Sleep(1);
     end;
   until Terminated;