使用项目/属性/设置的值.在InnoSetup脚本中设置

没有人知道解决方案，所以我用while循环来解决这个问题。请注意，这是我的第一个Delphi代码，所以它可能不是优雅和/或100%正确。以下是我定义所需常量的方式:

#define ABAppName "{code:Settings|AppName}"
#define ABAppVersion "{code:Settings|AppVersion}"
#define ABCompany "{code:Settings|CompanyName}"
#define ABAppTitle "{code:Settings|ApplicationTitle}"
#define ABAppTitlePro "{code:Settings|ApplicationTitle)}"+" "+"{code:Settings|ProVersionAppender}"
#define ABCompanyUrl "{code:Settings|CompanyUrl_de}"
#define ABContactEmailDe "{code:Settings|ContactEmail_de}"
#define ABYear "{code:Settings|Year}"

这些都在常量中。iss文件的纯文本，我包括在我的设置脚本与#include "constants.iss"在开始。这是由以下代码调用的delphi代码:

const
  XMLFileName = '..'CCFinder'Properties'Settings.settings';
function Settings(Default: String): String;
var
  XMLDoc, iNode: Variant;
  Path: String;
  i : Integer;
  Loop : Boolean;
begin
  { Load the XML File }
  try
    XMLDoc := CreateOleObject('MSXML2.DOMDocument.6.0');
  except
    RaiseException('Please install MSXML first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
  end;
  try
  XMLDoc.async := False;
  XMLDoc.resolveExternals := false;
  XMLDoc.load(XMLFileName);
  if XMLDoc.parseError.errorCode <> 0 then
    RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);
  iNode := XMLDoc.DocumentElement;
  iNode := iNode.LastChild;
  Loop := True;
  i := 0;
  while Loop do
  begin
    Try
        if iNode.ChildNodes[i].attributes[0].nodeValue = Default
        then
            begin
                Result := iNode.ChildNodes[i].text;
//              MsgBox('Result for Default: ' + Result + Default, mbInformation, MB_OK);
                i := i+1;
                Loop := False;
                Break;
            end
        else
            begin
                i := i+1;
                if i = 100 then Loop := false;
            end;
    except
        Result := '';
    end;
  end;
  except
  end;
end;

• 循环被限制为100次运行，因为我太笨拙了，无法计算Delphi中的XML节点。
• 需要安装InnoSetup预处理器。
• Inno似乎不接受路径名中的常量，因此有些值无法从属性/设置中提取。设置文件。
• 我不知道预处理器实际上并不使用Delphi代码来获取正确的值以将它们包含在脚本中，而是在使用常量的所有地方包含完整的Delphi代码调用。当然，这并不是我想要做的，因为当代码嵌入到路径中时，它甚至无法工作。因此，我更改了设置脚本，只包含一个常量，我需要用find和replace替换，例如，它用于路径名和可执行文件名。

• 对于其余部分，我编写了一个. net命令行应用程序，它基本上做了与delphi代码相同的事情，在Hudson上编译设置之前在Hudson中执行它。这将用所需的实际值替换代码调用(只有例外，但您应该明白这一点):

  {
  XmlDocument xmldoc = new XmlDocument();
  xmldoc.Load(pathToSettingsFile);
  XmlNodeList list = xmldoc.GetElementsByTagName("Setting");
  foreach (XmlNode node in list)
  {
       string keystring = node.Attributes["Name"].InnerText;
       string valuestring =  node.FirstChild.InnerText;
       settingValues.Add(keystring,valuestring);
  }
  var t = File.OpenText(constantsfilename);
  string text;
  using (t)
  {
      text = t.ReadToEnd();
  }
  string sample = "{code:Settings|";
  char endsign = '}';
  while (text.Contains(sample))
  {
      int startindex = text.IndexOf(sample);
      int endindex = text.IndexOf(endsign, startindex);
      int variableIndex = startindex + sample.Length;
      string variable = text.Substring(variableIndex, endindex - variableIndex);
      text = text.Replace(sample + variable + endsign, newVal(variable));
  }
  var w = new StreamWriter(constantsfilename);
  using (w)
  {
      w.Write(text);
      w.Flush();
  }
  }
  public static string newVal(string variable)
  {
      if (settingValues.ContainsKey(variable))
          return settingValues[variable];
      else
      {
          return "";
      }
  }
  

这意味着我现在可以在我的Settings-File中设置值，这些值可以通过hudson中的另一个命令行应用程序更改，并自动写入设置脚本。

编辑:刚刚意识到，这是Visual Studio设计器手动将设置从设置文件传输到app.config，在构建时将输出更改为ProgramName.exe.config文件。因此，您需要更改其中的值以使其生效，如果您为其提供正确的文件路径，coe应该可以工作。

EDIT2:这个app.config在编译时被重命名为YourAppName.exe.config…如果没有将其放入设置中，则没有正确初始化值。我扩展了我的代码，用XML中的值来调整Settings.designer.cs文件的设计器代码，我猜这可以做到。一个配置文件来统治所有的:-)