Changeset 440 for PinConnection/UPacketBurst.pas

Timestamp:

Nov 19, 2012, 2:43:40 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Thread safe access to serial port pin interface using lock.

File:

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

PinConnection/UPacketBurst.pas

@@ -6 +6 @@
 
 uses
-  Classes, UCommPin, SyncObjs, UStreamHelper, UCommon, SysUtils, SpecializedList,
+  Classes, UCommPin, SyncObjs, UCommon, SysUtils, SpecializedList,
   DateUtils, UBinarySerializer;
 
@@ -138 +138 @@
         while (SendStream.List.Count - SendStream.Position) > SendBurstSize do begin
           Stream.Count := 0;
-          SendStream.ReadStream(TStream(Stream), SendBurstSize);
+          SendStream.ReadList(Stream, 0, SendBurstSize);
           PacketBurstPin.Send(Stream);
         end;