Determining the number of connections allowed on a server

Abstract: License Manager displays the number of installed licenses, or you can write a simple application to test connections

Q. How do I determine how many connections my InterBase server will  allow?

A. The simplest way is to simply run License Manager and look at your installed licenses. If you don't believe License Manager or License Manager will not for you for one reason or another, then you need to create a simple application that tests the number of connections. Below are a couple examples on how you might do this.

Example 1: Run many copies of isql from the command prompt. This example assumes isql.exe is in your path, interbase is installed into the default location, and you want to test 40 connections.

set isc_user=sysdba
set isc_password=masterkey
for /L %i in (1,1,40) do start "%i" /min isql "c:\program files\borland\interbase\examples\database\employee.gdb"

Example 2: Create an array of IBDatabases using Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
  dbs : array of TIBDatabase;
  counter : integer;
begin
   //edit1.text has the number of connections you want to test
    SetLength(dbs,strtoint(edit1.text));
    try
      for counter := 0 to length(dbs)-1 do
      begin
        Application.ProcessMessages;
        caption := inttostr(counter+1);
        dbs[counter] := TIBDatabase.create(nil);
        with dbs[counter] do
        begin
          DatabaseName := edit2.text;
          Params.add('USER_NAME=sysdba');
          Params.add('PASSWORD=masterkey');
          LoginPrompt := False;
          Open;
        end;
      end;
    finally
      ShowMessage('Now cleaning up');
      counter := 0;
      while (dbs[counter] <> nil) and (counter<=length(dbs)-1) do
      begin
        dbs[counter].Close;
        dbs[counter].Free;
        inc(counter);
      end;
    end; //finally
end;