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

PinConnection/UCommSocket.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, blcksock, UCommPin;
+  Classes, SysUtils, blcksock, UCommPin, UCommon;
 
 type
@@ -16 +16 @@
 
   TCommSocketReceiveThread = class(TThread)
+  public
     Parent: TCommSocket;
     Stream: TMemoryStream;
@@ -110 +111 @@
     except
       on E: Exception do
-        //MainForm.ExceptionLogger1.ThreadExceptionHandler(Self, E);
+        if Assigned(ExceptionHandler) then ExceptionHandler(Self, E);
     end;
   until Terminated;