Version von Firebird ermitteln

[hoika]

Hallo,
früher mal gab es das Interbase Services API.
Mit IBX konnte man damit zum Bsp. den Versionsstring von Interbase auslesen.

Unter IBDac gibt es IBCAdmin.
Laut Doku geht das nur mit Interbase, ist das richtig?

Folgender Code liefert mir nur einen leeren String zurück.

Delphi-Quellcode:

var
  IBCServerProperties: TIBCServerProperties;
  IBCVersionInfo: TIBCVersionInfo;
  LServerVersion: string;
begin
  IBCServerProperties:= TIBCServerProperties.Create(nil);
  IBCServerProperties.Server:= 'localhost';
  IBCServerProperties.Username:= '##';
  IBCServerProperties.Password:= '##';
  IBCServerProperties.Attach;
  LServerVersion:= IBCServerProperties.VersionInfo.ServerVersion;

Fehlt da noch was, oder geht es wirklich nicht mit Firebird?

System Tables fallen wegen der alten Version leider aus.

[hoika]

Hallo,
eigene Antwort.

Delphi-Quellcode:

uses
  IBCAdmin;

procedure TForm2.FormCreate(Sender: TObject);
var
  IBCServerProperties: TIBCServerProperties;
  LServerVersion: string;
begin
  IBCServerProperties:= TIBCServerProperties.Create(nil);
  IBCServerProperties.Server:= 'localhost';
  IBCServerProperties.Username:= '##';
  IBCServerProperties.Password:= '##';
  IBCServerProperties.Attach;
  IBCServerProperties.FetchVersionInfo;
  LServerVersion:= IBCServerProperties.VersionInfo.ServerVersion;
  MessageBox(0, PChar(LServerVersion), 'Server-Info', 0);
end;

[Frickler]

Die TIBCConnection Komponente hat eine Property "DatabaseInfo". Dort lassen sich etliche Parameter abfragen, u.a. auch die Version.

[mmw]

Hallo,

ggf. so.

https://firebirdsql.org/refdocs/lang...t_context.html

Gruß

[hoika]

Hallo,
mmw.
Engine_Version gibt es erst ab 2.1.

Danke an beide.

[hoika]

Hallo,
<Frickler>
Die TIBCConnection Komponente hat eine Property "DatabaseInfo".

Dazu muss aber die DB bekannt sein?