Changeset 129 for PinConnection/UPacketBurst.pas

Timestamp:

Jan 17, 2011, 6:55:36 AM (13 years ago)

Author:

george

Message:

• Modified: Thread exception handling through global handler.
• Modified: CoolStreaming BitStream demo use AsString property.

File:

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

PinConnection/UPacketBurst.pas

@@ -6 +6 @@
 
 uses
-  Classes, UCommPin, SyncObjs, UStreamHelper;
+  Classes, UCommPin, SyncObjs, UStreamHelper, UCommon, SysUtils;
 
 type
@@ -103 +103 @@
   inherited;
   try
+  try
     Stream := TStreamHelper.Create;
     with PacketBurst do
@@ -126 +127 @@
     Stream.Free;
   end;
+  except
+    on E: Exception do
+      if Assigned(ExceptionHandler) then ExceptionHandler(Self, E);
+  end;
 end;