TIBCStatisticalService bringt keine Ergebnisse

[mkinzler]

Aus Demo

Delphi-Quellcode:

// getting database statistics
IBCStatisticalService.Server := 'server';
IBCStatisticalService.Database := 'database';
IBCStatisticalService.Username := 'sysdba';
IBCStatisticalService.Password := 'masterkey';
IBCStatisticalService.ClientLibrary := 'fbclient.dll';
IBCStatisticalService.LoginPrompt := False;
IBCStatisticalService.Attach;
try
  IBCStatisticalService.ServiceStart;
  while not IBCStatisticalService.Eof do
    Memo.Lines.Add(IBCStatisticalService.GetNextLine); // Memo is a TMemo component
finally
  IBCStatisticalService.Detach;
end;