如何在delphi 10.2中使用toolsapi获取当前项目的版本号

版本信息的有效值存储在 生成配置 和 平台 . 若要访问配置,请首先获取 物联网项目配置 :

cfgOpt := project.ProjectOptions as IOTAProjectOptionsConfigurations;

然后遍历每个 物联网配置 :

  for I := 0 to cfgOpt.ConfigurationCount - 1 do
  begin
    cfg := cfgOpt.Configurations[I];
    DoWhatEverWith(cfg);
  end;

注意每个 物联网配置 可以有几个平台和子平台:

  for S in cfg.Platforms do
  begin
    DoWhatEverWith(cfg.PlatformConfiguration[S]);
  end;

  for I := 0 to cfg.ChildCount - 1 do
  begin
    DoWhatEverWith(cfg.Children[I]);
  end;

根据当前选择的平台和生成配置,可以使用不同的版本信息值。当前平台和配置可以从 碘中毒 性质 当前平台 和 当前配置 .

在阅读了Uwe Raabe非常有用的答案后,回答我自己的问题:

获取当前活动配置和平台的版本信息最简单的代码是:

procedure Test;
var
  ProjectOptions: IOTAProjectOptionsConfigurations;
  Project: IOTAProject;
  Major: Variant;
  Minor: Variant;
  Release: Variant;
  Build: Variant;
  cfg: IOTABuildConfiguration;
begin
  // GxOtaGetCurrentProject is a function in GExpert's GX_OTAUtils unit that returns the current IOTAProject
  Project := GxOtaGetCurrentProject;
  if Assigned(Project) then begin
    // as per Uwe's answer
    ProjectOptions := Project.ProjectOptions as IOTAProjectOptionsConfigurations;
    if Assigned(ProjectOptions) then begin
      // this is the currently active configuration
      cfg := ProjectOptions.ActiveConfiguration;
      if Assigned(cfg) then begin
        // Note that the names of the version properties are different!
        Major := cfg.GetValue('VerInfo_MajorVer', True);
        Minor := cfg.GetValue('VerInfo_MinorVer', True);
        Release := cfg.GetValue('VerInfo_Release', True);
        Build := cfg.GetValue('VerInfo_Build', True);
      end;
    end;
  end;
end;

因此,只要您只需要当前配置中的值(在我的例子中,这正是我所需要的),就很容易了。

1. 获取当前项目
2. 获取IoTaProjectOptions配置接口
3. 获取当前活动的配置
4. 使用getvalue读取值。请注意版本信息属性的新名称。还要注意,必须为includeInheritedValues参数传递true。

一些注释:

• 可以使用getPropertyCount()和getPropertyName()枚举可用属性。
• 与如上所述调用getValue('name',true)不同,您还可以使用属性值['name']。它会根据需要自动检索递归到祖先配置的结果值。
• 还可以通过asinteger属性获取类型类型类型值。同样,这也考虑到了祖先的配置。请注意,如果类型转换失败,这可能会引发异常。
• 如果当前配置或任何祖先未选中“include version info”选项,则无论出于何种原因,getvalue都会调用return version 1.0.0.0。似乎没有办法检查这个选项,但我在这里可能错了。
• 通过重新路由projectoptions.values['majorversion']和对当前配置值的相关调用,embarcadero可以轻松地提供向后兼容性。他们没有,好吧,他们的选择,但在这种情况下,我会期待一些文件。
• 更改返回到delphi xe。