能否适配Inno Setup 6实现在线version.txt与应用设置目录同文件对比？

核心实现思路 #

Inno Setup 6内置的版本检查工具是针对安装包版本号设计的，无法直接处理自定义version.txt文件的对比需求。我们可以通过Pascal脚本实现以下流程：

1. 下载在线version.txt文件到临时目录
2. 读取本地应用设置文件夹中的version.txt内容
3. 对比两者内容（整体匹配或提取具体值对比）

完整脚本示例 #

[Code]
function InitializeSetup(): Boolean;
var
  OnlineVersionPath, LocalVersionPath, TempFilePath: String;
  OnlineContent, LocalContent: String;
  Http: TWinHttpRequest;
begin
  Result := True;
  
  // 配置路径
  OnlineVersionPath := 'https://your-domain.com/path/to/version.txt'; // 替换为你的在线文件地址
  LocalVersionPath := ExpandConstant('{userappdata}\YourAppName\version.txt'); // 替换为本地应用设置文件夹路径
  TempFilePath := ExpandConstant('{tmp}\online_version.txt');

  // 1. 下载在线version.txt
  try
    Http := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    Http.Open('GET', OnlineVersionPath, False);
    Http.Send('');
    if Http.Status = 200 then
    begin
      // 将在线内容写入临时文件
      if SaveStringToFile(TempFilePath, Http.ResponseText, False) then
      begin
        // 2. 读取本地文件内容
        if LoadStringFromFile(LocalVersionPath, LocalContent) then
        begin
          // 3. 对比内容
          OnlineContent := Http.ResponseText;
          
          // 方式1：直接对比整个文件内容是否完全一致
          if OnlineContent = LocalContent then
          begin
            MsgBox('版本文件内容一致，无需更新。', mbInformation, MB_OK);
          end
          else
          begin
            MsgBox('版本文件内容不一致，存在更新。', mbWarning, MB_OK);
            // 这里可以添加后续更新逻辑，比如提示用户下载新版本等
          end;

          // 方式2：提取具体版本值对比（假设文件内是单一版本号，如"1.2.3"）
          // if Trim(OnlineContent) <> Trim(LocalContent) then
          // begin
          //   MsgBox(Format('本地版本：%s，在线版本：%s，需更新。', [Trim(LocalContent), Trim(OnlineContent)]), mbWarning, MB_OK);
          // end;
        end
        else
        begin
          MsgBox('无法读取本地version.txt文件。', mbError, MB_OK);
          Result := False;
        end;
      end
      else
      begin
        MsgBox('无法保存在线版本文件到临时目录。', mbError, MB_OK);
        Result := False;
      end;
    end
    else
    begin
      MsgBox(Format('下载在线版本文件失败，状态码：%d', [Http.Status]), mbError, MB_OK);
      Result := False;
    end;
  except
    MsgBox('网络请求出错：' + GetExceptionMessage(), mbError, MB_OK);
    Result := False;
  end;

  // 清理临时文件
  if FileExists(TempFilePath) then
    DeleteFile(TempFilePath);
end;

关键说明 #

• 路径配置：需要替换OnlineVersionPath为你的在线文件URL，LocalVersionPath为本地应用设置文件夹的实际路径（{userappdata}指向当前用户的应用数据目录）
• 两种对比方式：
  • 直接对比整个文件内容，适合文件包含多行信息或校验内容的场景
  • 提取单一版本号对比（需确保文件内仅存版本号文本），适合仅关注版本号的场景
• 错误处理：脚本包含了网络请求、文件读写的异常捕获，确保流程容错性
• 临时文件清理：下载的在线文件会在流程结束后自动删除，避免残留

扩展场景 #

如果需要在安装过程中执行版本检查，可将上述逻辑放在InitializeSetup函数中（如示例），若版本不匹配可终止安装或引导用户更新；也可放在自定义按钮的点击事件中，实现手动触发检查。

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