TLFastCGIPool

type TLFastCGIPool = class(TObject)

protected

  FClients: PLFastCGIClient;

  FClientsCount: Integer;

  FClientsAvail: Integer;

  FClientsMax: Integer;

  FMaxRequestsConn: Integer;

  FFreeClient: TLFastCGIClient;

  FTimer: TLTimer;

  FEventer: TLEventer;

  FAppName: String;

  FAppEnv: String;

  FHost: String;

  FPort: Integer;

  FSpawnState: TSpawnState;

  procedure AddToFreeClients();

  function CreateClient;

  procedure ConnectClients();

  procedure StartServer;

public

  constructor Create;

  destructor Destroy; override;

  function BeginRequest();

  procedure EndRequest();

  property AppEnv: String; [rw]

  property AppName: String; [rw]

  property ClientsMax: Integer; [rw]

  property Eventer: TLEventer; [rw]

  property MaxRequestsConn: Integer; [rw]

  property Host: String; [rw]

  property Port: Integer; [rw]

  property Timer: TLTimer; [r]

end;

TLFastCGIPool

TObject