GDAL - C++ Builder

C++ Builder 参考手册 ➙ System::Sysutils ➙ GDAL

检查 Delphi 访问授权 (Get Delphi Access Licence)

头文件：#include <System.SysUtils.hpp>
命名空间：System::Sysutils
函数原型：

unsigned __fastcall GDAL(void);

参数：

• 无；

返回值：

• 返回第一个访问授权 AL1 (1st Access License)
• 如果没有 Delphi 访问授权，这个函数会抛出信息为 "Application is not licensed to use this feature." 的 Exception 异常；

帮助里面没有其他说明了，以下内容为根据源码猜测的：

• 这个函数用于控件判断是否安装在期望的 Delphi 版本；
• 根据源码使用情况判断返回值为 0 是 Delphi 企业版授权，其他值没有体现在源码里面，帮助里面也没有具体的说明；
• 只在 2 处源码发现使用了这个函数：
  • source\Property Editors\MidReg.pas 里面的代码判断 GDAL 返回值为 0 可以继续执行并且注释为 MIDAS components are only available in the Enterprise SKU
  • source\data\dbx\Data.SqlExpr.pas 里面的代码把 GDAL 返回值加入了属性表，没发现根据这个值判断什么，也许是使用了没有授权会抛出异常的功能。

相关：

• System::Sysutils::GDAL
• System::Sysutils::RCS
• System::Sysutils::RPR
• System::Sysutils::EAbort
• System::Sysutils::OutOfMemoryError
• System::Sysutils::RaiseLastOSError
• System::Sysutils::CheckOSError
• System::Sysutils::Win32Check
• System::Sysutils::ShowException
• Vcl::Forms::TApplication::ShowException
• System::Sysutils::ExceptionErrorMessage
• System::Sysutils
• std::abort
• std::exit
• <cstdlib>

C++ Builder 参考手册 ➙ System::Sysutils ➙ GDAL