如何在运行时动态获取TMS WEB Core版本？

当然可以动态获取TMS WEB Core的版本号，无需手动硬编码。以下是两种可靠的实现方式：

方式一：使用内置版本常量 #

TMS WEB Core在WEBLib.Constants单元中提供了预定义的版本常量，可直接在代码中引用：

• TMSWEBCORE_VERSION_MAJOR：主版本号（如1.0中的1）
• TMSWEBCORE_VERSION_MINOR：次版本号（如1.0中的0）
• TMSWEBCORE_VERSION_RELEASE：发布版本号
• TMSWEBCORE_VERSION_BUILD：构建号

你可以将这些常量组合成完整版本字符串，比如在关于页面的初始化事件中添加代码：

procedure TMainForm.WebFormCreate(Sender: TObject);
var
  VersionStr: string;
begin
  VersionStr := Format('TMS WEB Core v%d.%d.%d.%d', [
    TMSWEBCORE_VERSION_MAJOR,
    TMSWEBCORE_VERSION_MINOR,
    TMSWEBCORE_VERSION_RELEASE,
    TMSWEBCORE_VERSION_BUILD
  ]);
  lblVersion.Caption := '基于' + VersionStr + '构建';
end;

方式二：读取项目生成的版本元数据 #

编译TMS WEB Core项目时，编译器会自动在生成的index.html中注入版本元数据。你可以通过代码读取这一信息：

Delphi代码实现： #

procedure TMainForm.WebFormCreate(Sender: TObject);
var
  VersionStr: string;
begin
  // 读取HTML中的meta标签内容
  VersionStr := Window.GetElementByTagName('meta').Item('tms-webcore-version').Content;
  lblVersion.Caption := '基于TMS WEB Core ' + VersionStr + '构建';
end;

编译后index.html中会自动生成类似这样的标签：

<meta name="tms-webcore-version" content="1.15.0.0">

这两种方式都能保证版本号与当前使用的TMS WEB Core版本完全一致，无需手动更新。使用Delphi IDE开发时，确保引用了正确单元，且项目编译时版本信息注入功能处于启用状态（默认开启）。

内容的提问来源于stack exchange，提问作者Shaun Roselt