Hallo,
ich versuche, den DB-Header einer Datenbank zu ermitteln.

Ziel ist es, die DB-Version der Datenbank zu ermitteln.

Ergebnis: Params ist leer.

Was kann die Ursache sein?

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit25;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBCAdmin, StdCtrls;

type
  TForm25 = class(TForm)
    IBCStatisticalService1: TIBCStatisticalService;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form25: TForm25;

implementation

{$R *.dfm}

procedure TForm25.FormCreate(Sender: TObject);
begin
  //IBCStatisticalService1.Active:= True;
  IBCStatisticalService1.Attach;
  Memo1.Lines.Assign(IBCStatisticalService1.Params);
  IBCStatisticalService1.Detach;
end;

end.

Aus Demo

zusammenfalten · markieren

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;

Hallo,
da hast Du Recht.
Dein Beispiel funktioniert.

Trotz eines nachträglich eingebauten IBCStatisticalService.ServiceStart; klappt das Assign trotzdem nicht.
Man muss explizit GetNextLine benutzen.

Danke.