IBDatabaseInfo->Wie?

[Hansa]

hier ein Beispiel aus der FIBplus-Hilfe :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var I: Integer;

begin
  with pFIBServerProperties1 do begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Options := [Database];
      FetchDatabaseInfo;
      Label1.Caption := 'Number of Attachments = ' + IntToStr(DatabaseInfo.NoOfAttachments);
      Label2.Caption := 'Number of Databases = ' + IntToStr(DatabaseInfo.NoOfDatabases);
      for I:= 0 to High(DatabaseInfo.DbName) do
        Memo1.Lines.Add(DatabaseInfo.DbName[i]);
    finally
      Active := False;
    end;
  end;
end;

tja, mehr hab ich jetzt auch nicht.