Changeset 222 for PinConnection

Timestamp:

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

Author:

george

Message:

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

Location:

PinConnection

Files:

• UCommProtocol.pas (modified) (2 diffs)
• UCommThread.pas (modified) (2 diffs)

PinConnection/UCommProtocol.pas

@@ -212 +212 @@
         SequenceNumber := ReadVarUInt(1);
       if TestIndex(2) then
-        ReadVarIntegerArray(2, CommandIndex);
+        ReadVarUIntArray(2, CommandIndex);
       if TestIndex(3) then
         ReadVarIndexedBlock(3, RequestData);
@@ -287 +287 @@
           WriteVarUInt(0, Integer(mtRequest));
           WriteVarUInt(1, SequenceNumber);
-          WriteVarIntegerArray(2, CommandIndex);
+          WriteVarUIntArray(2, CommandIndex);
           if Assigned(RequestParameters) then
             WriteVarIndexedBlock(3, RequestParameters);

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;