Changeset 407 for Generics/TemplateGenerics/Additional/UBinarySerializer.pas

Timestamp:

Aug 14, 2012, 10:31:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: PinConnection package now use for data parameters TListByte instead of TStream class contained in TemplateGenerics package. TStream have Position property which has no meaning for forwarding plain byte memory block. There is TBinarySerializer class used for serializing data instead of TStreamHelper class.

File:

• Generics/TemplateGenerics/Additional/UBinarySerializer.pas (modified) (2 diffs)

Generics/TemplateGenerics/Additional/UBinarySerializer.pas

@@ -187 +187 @@
   Buffer: array of Byte;
 begin
-  if Count > (List.Count - StartIndex) then Count := (List.Count - StartIndex); // Limit max. stream size
-  if Count > 0 then begin
-    SetLength(Buffer, Count);
-    List.GetBuffer(StartIndex, PByte(Buffer), Count);
+//  if Count > (List.Count - StartIndex) then Count := (List.Count - StartIndex); // Limit max. stream size
+  if Count > 0 then begin
+    SetLength(Buffer, Count);
+    List.GetBuffer(StartIndex, PByte(Buffer)^, Count);
     Write(Pointer(Buffer)^, Count);
   end;
@@ -206 +206 @@
 begin
   FList.Count := 0;
+  Position := 0;
 end;