Eingesetzte Firebirdversion ermitteln

[erich.wanker]

Hab mir unter: http://www.koders.com/delphi/... die IBServices.pas Unit downgeloadet.

In der IBServices.pas gibt es:
TIBCustomService = class(TComponent) --> procedure FetchVersionInfo

Delphi-Quellcode:

procedure TIBServerProperties.FetchVersionInfo;
var
  RunLen: Integer;
  done: Integer;
begin
  ServiceQueryParams := Char(isc_info_svc_version) +
                        Char(isc_info_svc_server_version) +
                        Char(isc_info_svc_implementation);
  InternalServiceQuery;
..
..

..aber wie´s weiter geht ist

Vielen Dank

Erich

Delphi-Quellcode:

SELECT rdb$get_context('SYSTEM', 'ENGINE_VERSION')  
             as version from rdb$database;

möcht ich nicht verwenden, da es bei älteren FB´s nicht funktioniert.#