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

PinConnection/USerialPort.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SynaSer, StdCtrls, Dialogs;
+  Classes, SysUtils, SynaSer, StdCtrls, Dialogs, UCommon;
 
 type
@@ -23 +23 @@
 
   TSerialPortReceiveThread = class(TThread)
+  public
     Parent: TSerialPort;
     procedure Execute; override;
@@ -306 +307 @@
     except
       on E: Exception do
-        //MainForm.ExceptionLogger1.ThreadExceptionHandler(Self, E);
+        if Assigned(ExceptionHandler) then ExceptionHandler(Self, E);
     end;
   until Terminated;