Как определить версию сервера Advantage Database Server: использование функций и хранимых процедур

Delphi , Базы данных , База данных

При работе с Advantage Database Server иногда возникает необходимость узнать текущую версию используемого сервера. В данной статье мы рассмотрим, как это можно сделать, используя предоставляемые инструменты.

Проблема

Пользователи часто сталкиваются с необходимостью проверки версии клиента, однако информация о версии сервера не всегда доступна напрямую. В документации Advantage Database Server упоминается функция AdsMgGetInstallInfo и соответствующая хранимая процедура sp_mgGetInstallInfo. Неясно, требуют ли они специальных привилегий, и ожидается, что существует свойство TAdsConnection.ServerVersion, которое, однако, отсутствует в Deluxe и Enterprise версиях Delphi Advantage Database оболочки.

Решение

Необходимо использовать функцию управления Advantage Database API AdsMgGetInstallInfo, которая позволяет получить информацию об установке, включая версию сервера. Для этого можно использовать следующий пример кода на Object Pascal (Delphi):

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;

Этот код предполагает, что структура ADS_MGMT_INSTALL_INFO содержит информацию о версии сервера в члене aucVersionStr.

Альтернативный способ

Также можно использовать хранимую процедуру sp_mgGetInstallInfo, для чего может быть полезен следующий пример на Delphi:

procedure GetServerVersionFromStoredProcedure(adsQuery: TAdsQuery);
begin
  adsQuery.SQL.Clear;
  adsQuery.SQL.Add('EXECUTE PROCEDURE sp_mgGetInstallInfo();');
  adsQuery.Active := True;
  Result := adsQuery.FieldByName('Version').AsString;
end;

Этот код предполагает, что у вас уже есть компонент TAdsQuery с действительным соединением и что хранимая процедура возвращает версию в поле с именем Version.

Важные замечания

Перед использованием данных методов убедитесь, что у вас есть соответствующие привилегии для выполнения функций управления и вызова хранимых процедур. Также следует проверить, что все необходимые типы данных и определения структур доступны в вашем проекте.

Заключение

В данной статье мы рассмотрели, как определить версию сервера Advantage Database Server, используя функцию AdsMgGetInstallInfo и хранимую процедуру sp_mgGetInstallInfo. Помните о необходимости тестирования кода и проверки всех зависимостей перед его использованием в производственной среде.

Создано по материалам из источника по ссылке.

Объяснение того, как определить версию сервера Advantage Database Server с использованием функций и хранимых процедур.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: База данных ::