Changeset 129 for PinConnection

Timestamp:

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

Author:

george

Message:

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

Location:

PinConnection

Files:

• UCommProtocol.pas (modified) (3 diffs)
• UCommSocket.pas (modified) (3 diffs)
• UCommThread.pas (modified) (3 diffs)
• UPacketBurst.pas (modified) (3 diffs)
• USerialPort.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;

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;

PinConnection/UCommThread.pas

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

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;
 

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;