Changeset 172 for CoolStreaming/UStreamHelper.pas

Timestamp:

Feb 22, 2011, 1:53:47 PM (13 years ago)

Author:

george

Message:

• Fixed: Writing and reading Unicode characters in string.
• Added: Demo for VarBlockSerializer.
• Added: Write and read array of string.

File:

• CoolStreaming/UStreamHelper.pas (modified) (3 diffs)

CoolStreaming/UStreamHelper.pas

@@ -6 +6 @@
 
 uses
-  Classes, DateUtils, syncobjs;
+  Classes, DateUtils, syncobjs, UMicroThreading;
 
 type
@@ -63 +63 @@
 
   TThreadStreamHelper = class(TStreamHelper)
-    Lock: TCriticalSection;
+    Lock: TMicroThreadCriticalSection;
     procedure Clear;
     constructor Create;
@@ -363 +363 @@
 begin
   inherited Create;
-  Lock := TCriticalSection.Create;
+  Lock := TMicroThreadCriticalSection.Create;
 end;