delphi - 如何获取 Advantage 数据库服务器的版本号？

Question

我可以很容易地找到我正在使用的客户端版本，但我如何才能找到服务器版本？

有一个AdsMgGetInstallInfo ace 函数和相应的存储过程sp_mgGetInstallInfo .

这些是否需要一些特殊权限？

我期待找到一个 TAdsConnection.ServerVersion属性(property)，但类似的东西似乎不存在？

Answer 1

我找到了 AdsConnection.ServerVersion仅适用于 .NET 提供程序，因此 Delphi Advantage Database 包装器中可能缺少它。
但是您可以尝试调用Advantage Management API功能 AdsMgGetInstallInfo和 ADS_MGMT_INSTALL_INFO结构接收aucVersionStr member where 应该是 Advantage Database Server 版本。所以它可能看起来像这样(它是来自 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;