Question

我正在为我的应用程序创建一个Inno Setup安装程序/更新程序。现在我需要找到一种方法来检查新版本是否可用，如果它可用，它应该自动安装在已安装的版本上。

特殊情况是版本号位于包含其他数据的文件中。 Inno Setup需要阅读的文件如下：

#Eclipse Product File
#Fri Aug 18 08:20:35 CEST 2017
version=0.21.0
name=appName
id=appId

我已经找到了一种使用脚本更新应用程序的方法，该脚本只读取其中包含版本号的文本文件。 Inno setup: check for new updates

但在我的情况下，它包含安装程序不需要的更多数据。有人可以帮我构建一个可以解析文件版本号的脚本吗？

我已经拥有的代码如下：

function GetInstallDir(const FileName, Section: string): string;
var
  S: string;
  DirLine: Integer;
  LineCount: Integer;
  SectionLine: Integer;    
  Lines: TArrayOfString;
begin
  Result := '';
Log('start');
  if LoadStringsFromFile(FileName, Lines) then
  begin
Log('Loaded file');
    LineCount := GetArrayLength(Lines);
    for SectionLine := 0 to LineCount - 1 do

Log('File line ' + lines[SectionLine]);


    if (pos('version=', Lines[SectionLine]) <> 0) then
                begin
                  Log('version found');
                  S := RemoveQuotes(Trim(Lines[SectionLine]));
                  StringChangeEx(S, '\\', '\', True);
                  Result := S;
                  Exit;
                end;
    end;
end;

但是在运行脚本时，检查是否有版本字符串在线上是不行的。

Answer 1

您的代码几乎是正确的。您只想在代码周围找不到begin和end，并希望在for循环中重复这些内容。所以只有Log行重复;并且if是针对超出范围的LineCount索引执行的。

很明显，如果您更好地格式化代码：

function GetInstallDir(const FileName, Section: string): string;
var
  S: string;
  DirLine: Integer;
  LineCount: Integer;
  SectionLine: Integer;    
  Lines: TArrayOfString;
begin
  Result := '';
  Log('start');
  if LoadStringsFromFile(FileName, Lines) then
  begin
    Log('Loaded file');
    LineCount := GetArrayLength(Lines);
    for SectionLine := 0 to LineCount - 1 do
    begin { <--- Missing }
      Log('File line ' + lines[SectionLine] );

      if (pos('version=', Lines[SectionLine]) <> 0) then
      begin
        Log('version found');
        S := RemoveQuotes(Trim(Lines[SectionLine]));
        StringChangeEx(S, '\\', '\', True);
        Result := S;
        Exit;
      end;
    end; { <--- Missing }
  end;
end;

在Inno Setup中解析键值文本文件以检查版本号

1 个答案: