Changeset 222 for PinConnection/UCommThread.pas
- Timestamp:
- Apr 4, 2011, 12:24:18 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
PinConnection/UCommThread.pas
r171 r222 120 120 try 121 121 StreamHelper := TStreamHelper.Create(Stream); 122 with Parent do repeat 123 if FDataAvailable.WaitFor(1 * OneMillisecond) = wrSignaled then try 122 with Parent do 123 repeat 124 if FDataAvailable.WaitFor(1 * OneMillisecond) = wrSignaled then begin 125 try 124 126 FInputBufferLock.Acquire; 125 127 Stream.Size := 0; … … 130 132 FInputBufferLock.Release; 131 133 end; 132 Yield; 133 until Terminated; 134 134 end else Yield; 135 until Terminated; 135 136 finally 136 137 StreamHelper.Free;
Note:
See TracChangeset
for help on using the changeset viewer.