Changeset 160 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Feb 1, 2011, 10:06:01 AM (14 years ago)

Author:

george

Message:

• Added: Unit UThreadEx which introduce class TThreadEx with support for method CurrentThread. Unit automatic mantain runtime thread list.
• Added: Testing of exceptions raised inside microthread in demo application.

Location:

MicroThreading

Files:

• . (modified) (1 prop)
• Demo (modified) (1 prop)
• Demo/UMainForm.pas (modified) (8 diffs)

MicroThreading

@@ -1 +1 @@
 lib
+backup

@@ -1 +1 @@
 lib
+backup

MicroThreading/Demo

@@ -2 +2 @@
 lib
 Demo.exe
+backup

@@ -2 +2 @@
 lib
 Demo.exe
+backup

MicroThreading/Demo/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ExtCtrls, Spin, UMicroThreading, DateUtils, UPlatform,
-  UMicroThreadList;
+  UMicroThreadList, UThreadEx;
 
 type
@@ -29 +29 @@
     Button3: TButton;
     Button4: TButton;
+    Button5: TButton;
     ButtonAddWorkers: TButton;
     ButtonClearMicroThreads: TButton;
@@ -72 +73 @@
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
     procedure ButtonSchedulerStartStopClick(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -92 +94 @@
   private
     MicroThreadList: TMicroThreadList;
+    LastException: Exception;
+    LastExceptionSender: TObject;
     procedure WorkerSubRoutine;
+    procedure ShowException(Sender: TObject; E: Exception);
+    procedure DoShowException;
   public
     DoWriteToMemo: Boolean;
     DoSleep: Boolean;
+    RaiseException: Boolean;
     SleepDuration: Integer;
     DoWaitForEvent: Boolean;
@@ -121 +128 @@
   Event := TMicroThreadEvent.Create;
   MicroThreadList := TMicroThreadList.Create(Self);
+  UMicroThreading.ExceptionHandler := ShowException;
 end;
 
@@ -150 +158 @@
 begin
   MicroThreadList.Form.Show;
+end;
+
+procedure TMainForm.Button5Click(Sender: TObject);
+begin
+  RaiseException := True;
 end;
 
@@ -335 +348 @@
 end;
 
+procedure TMainForm.ShowException(Sender: TObject; E: Exception);
+begin
+  LastException := E;
+  LastExceptionSender := Sender;
+  if MainThreadID <> ThreadID then
+    TThread.Synchronize(TThreadEx.CurrentThread, DoShowException)
+    else DoShowException;
+end;
+
+procedure TMainForm.DoShowException;
+begin
+  ShowMessage('Exception "' + LastException.Message + '" in class "' +
+    LastExceptionSender.ClassName + '"')
+end;
+
 procedure TWorker.Execute;
 var
@@ -346 +374 @@
     if MainForm.DoWaitForEvent then MainForm.Event.WaitFor(MainForm.WaitForEventDuration * OneMillisecond);
     if MainForm.DoSleep then MTSleep(MainForm.SleepDuration * OneMillisecond);
+    if MainForm.RaiseException then begin
+      MainForm.RaiseException := False;
+      raise Exception.Create('Exception from microthread');
+    end;
     //WorkerSubRoutine;
     Completion := I / MainForm.Iterations;

@@ -1 +1 @@
 lib
+backup

@@ -2 +2 @@
 lib
 Demo.exe
+backup