Changeset 89 for branches/DirectWeb/UPool.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/UPool.pas (modified) (3 diffs)

branches/DirectWeb/UPool.pas

@@ -33 +33 @@
     function Acquire: TObject;
     procedure Release(Item: TObject);
-    procedure Allocate;
     constructor Create;
     destructor Destroy; override;
@@ -117 +116 @@
 end;
 
-procedure TThreadedPool.Allocate;
-var
-  I: Integer;
-begin
-  Clear;
-  for I := 0 to TotalCount - 1 do
-    Add(TThreadedPoolItem.Create);
-end;
-
 constructor TThreadedPool.Create;
 begin
+  inherited;
   Lock := TCriticalSection.Create;
-  ReleaseEvent := TEvent.Create(nil, False, False, 'ThreadPool');
+  ReleaseEvent := TEvent.Create(nil, False, False, '');
 end;
 
@@ -143 +134 @@
 constructor TThreadedPoolItem.Create;
 begin
-  if Assigned(Item) then Item.Destroy;
+  Item := nil;
 end;