delphi - 我可以检查安装的 Indy 版本吗？

Question

我需要使用最新的Indy组件库版本。我可以通过某些源代码命令或任何其他技巧来获取库版本，以确保我使用正确的库。我知道我正在使用 indy....160.bpl - 这是我的 Delphi XE2 在将鼠标移动到组件栏上时所说的内容。我从 Fulgan Indy 获取的最新 INDY 库

Answer 1

如何在运行时使用 Indy 组件获取 Indy 版本？

正如 @Remy 在评论中指出的那样，您可以使用 Version 从任何 Indy 组件获取 Indy 版本属性(property)。以下是使用 TIdHTTP 组件的示例:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Indy version: ' + IdHTTP1.Version);
end;

如何在运行时获取没有 Indy 组件的 Indy 版本？

您可以获取 Indy 版本控制格式的整个版本字符串:

<major>.<minor>.<release>.<build>

来自 IdGlobal.pas 单元中包含的 IdVers.inc 文件中定义的 gsIdVersion 常量，如下所示:

uses
  IdGlobal;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Indy version: ' + gsIdVersion);
end;

或者如果您至少自 2012 年 10 月 25 日 (4850) 起拥有 Indy 修订版，您可以使用单独的版本信息元素，这些元素在前面提到的同一包含文件中定义，例如这样:

uses
  IdGlobal;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Indy version: ' +
    IntToStr(gsIdVersionMajor) + '.' +
    IntToStr(gsIdVersionMinor) + '.' +
    IntToStr(gsIdVersionRelease) + '.' +
    IntToStr(gsIdVersionBuild)
  );
end;

如何在设计时获取 Indy 版本？

要在设计时获取 Indy 版本，您只需右键单击放在表单上的任何 Indy 组件，然后通过关于 Internet Direct (Indy)... 打开其关于框... 菜单项。

版本信息在哪里定义？

正如我之前提到的，它位于存储在库的 ..\Lib\System\ 文件夹中的 IdVers.inc 包含文件中，它可能是下一个选项是如何获取 Indy 的版本信息。

免责声明

这里提到的一些内容适用于 Indy 目前的最新版本，但我不确定它是否也适用于所有旧版本(例如 Indy 9)。