Changeset 129 for PinConnection/UCommProtocol.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/UCommProtocol.pas (modified) (3 diffs)

PinConnection/UCommProtocol.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UVarBlockSerializer, syncobjs, UCommPin,
-  UDebugLog, UStreamHelper, StopWatch, SpecializedList;
+  UDebugLog, UStreamHelper, StopWatch, SpecializedList, UCommon;
 
 type
@@ -63 +63 @@
 
   TRetransmitCheckThread = class(TThread)
-  private
   public
     Parent: TCommProtocol;
@@ -474 +473 @@
       except
         on E: Exception do begin
-          //MainForm.ExceptionLogger1.ThreadExceptionHandler(Self, E);
+          if Assigned(ExceptionHandler) then ExceptionHandler(Self, E);
         end;
       end;