Я нашел AdsConnection.ServerVersion только для провайдера .NET, поэтому он, вероятно, отсутствует в оболочке базы данных Delphi Advantage.
Но вы можете попытаться вызвать AdvantageAPI управления функция AdsMgGetInstallInfo и в структуру ADS_MGMT_INSTALL_INFO получает элемент aucVersionStr
, где должна быть версия сервера базы данных Advantage.Так что это может выглядеть так (это модифицированный пример из справочника AdsMgGetInstallInfo ).
Обратите внимание, я не проверял его и надеюсь, что у вас будут все определения типов данных и структур.
uses ACE;
function GetServerVersion: string;
var
Size: UNSIGNED16;
MgmtHandle: ADSHANDLE;
ResultValue: UNSIGNED32;
InstallInfo: ADS_MGMT_INSTALL_INFO;
begin
Result := '';
ResultValue := ACE.AdsMgConnect('\\MyExample\Server', nil, nil, @MgmtHandle);
if (ResultValue <> AE_SUCCESS) then
Exit;
Size := SizeOf(ADS_MGMT_INSTALL_INFO);
ResultValue := ACE.AdsMgGetInstallInfo(MgmtHandle, @InstallInfo, @Size);
if (ResultValue <> AE_SUCCESS) then
Exit;
Result := InstallInfo.aucVersionStr;
end;