Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
461 Beiträge
 
Delphi XE4 Professional
 
#3

AW: Eingesetzte Firebirdversion ermitteln

  Alt 29. Jul 2010, 16:28


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.#
Erich Wanker - for life:=1971 to lebensende do begin ..
  Mit Zitat antworten Zitat