Changeset 89 for branches/DirectWeb/UResetableThread.pas

Timestamp:

Dec 18, 2009, 1:42:22 PM (15 years ago)

Author:

george

Message:

• Opraveno: Chybné vytváření pojmenovaných objektů TEvent.
• Opraveno: Chybné přidělování a uvolňování zásobníků vláken a databázových spojení.
• Opraveno: Chybná inicializace parametrů databázových spojení.

File:

• branches/DirectWeb/UResetableThread.pas (modified) (2 diffs)

branches/DirectWeb/UResetableThread.pas

@@ -69 +69 @@
 begin
   Stopped := True;
-  StartEvent := TEvent.Create(nil, False, False, 'TResetableThreadStart');
-  StopEvent := TEvent.Create(nil, False, False, 'TResetableThreadStop');
+  StartEvent := TEvent.Create(nil, False, False, '');
+  StopEvent := TEvent.Create(nil, False, False, '');
   Thread := TResetableThreadExecute.Create(True);
   Thread.Parent := Self;
@@ -94 +94 @@
     Parent.Stopped := False;
     Parent.Execute;
+    Parent.Stopped := True;
     Parent.StopEvent.SetEvent;
   end;