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

branches/DirectWeb/UTCPServer.pas

@@ -101 +101 @@
 
 constructor TTCPServer.Create;
-var
-  I: Integer;
 begin
   ThreadPool := TClientThreadedPool.Create;
   ThreadPool.TotalCount := 10;
+  ThreadPool.Active := True;
 
   Socket := TTCPBlockSocket.Create;
@@ -146 +145 @@
   if Assigned(Parent.FOnClientConnect) then
     Parent.FOnClientConnect(Self);
+
+  Parent.ThreadPool.Release(Self);
 end;
 
@@ -166 +167 @@
   I: Integer;
 begin
-  if not FActive and Active then begin
-    Allocate;
+  if not FActive and AValue then begin
     for I := 0 to TotalCount - 1 do begin
       TThreadedPoolItem(Items[I]).Item := TTCPClientThread.Create;
     end;
   end else
-  if FActive and not Active then begin
+  if FActive and not AValue then begin
 
   end;
-  FActive := Active;
+  FActive := AValue;
 end;