Changeset 222 for PinConnection/UCommThread.pas

Timestamp:

Apr 4, 2011, 12:24:18 PM (13 years ago)

Author:

george

Message:

• Přidáno: Jednotka UURI pro práci s textovým umístěním souborů a složek.

File:

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

PinConnection/UCommThread.pas

@@ -120 +120 @@
   try
     StreamHelper := TStreamHelper.Create(Stream);
-  with Parent do repeat
-      if FDataAvailable.WaitFor(1 * OneMillisecond) = wrSignaled then try
+    with Parent do
+    repeat
+      if FDataAvailable.WaitFor(1 * OneMillisecond) = wrSignaled then begin
+      try
         FInputBufferLock.Acquire;
         Stream.Size := 0;
@@ -130 +132 @@
         FInputBufferLock.Release;
       end;
-      Yield;
-  until Terminated;
-
+      end else Yield;
+    until Terminated;
   finally
     StreamHelper.Free;