6

我有一个作为 Windows 服务托管的 WCF 服务。我通常会去VS命令提示符并使用installutil.exe安装服务,然后根据我正在安装它的机器名称修改app.config中服务的基地址并运行服务。

基地址是这样的:

<endpoint address="http://MACHINE_NAME/NFCReader/" binding="webHttpBinding"/>

我修改了 app.config 文件中的 MACHINE_NAME。

我想使用 inno setup 为我做同样的事情。

我想要的是当用户运行 setup.exe 文件来安装服务时,我想提示用户输入服务的基地址并使用该地址来托管它。我无法弄清楚是否有可能或如何去做。

请问有什么帮助吗?提前致谢。:)

4

2 回答 2

5

只是我用来替换我的应用程序配置中的字符串的一个例子。
我相信它可以做得更好:-)

我替换的是:

添加键="AppVersion" 值="YYMMDD.HH.MM"

[Code]
procedure Update;
var
C: AnsiString;
CU: String;
begin
        LoadStringFromFile(ExpandConstant('{src}\CdpDownloader.exe_base.config'), C);
        CU := C;
        StringChange(CU, 'YYMMDD.HH.MM', GetDateTimeString('yymmdd/hh:nn', '.', '.'));
        C := CU;
        SaveStringToFile(ExpandConstant('{src}\Config\CdpDownloader.exe.config'), C, False);          
end;

function InitializeSetup: Boolean;
begin
  Update;
result := True;
end;
于 2013-03-25T14:57:52.820 回答
3

我建议您使用 XML 解析器来更新您的配置文件。以下功能可以帮助您。它使用 MSXML 作为文件解析器:

[Code]
const
  ConfigEndpointPath = '//configuration/system.serviceModel/client/endpoint';

function ChangeEndpointAddress(const FileName, Address: string): Boolean;
var
  XMLNode: Variant;
  XMLDocument: Variant;  
begin
  Result := False;
  XMLDocument := CreateOleObject('Msxml2.DOMDocument.6.0');
  try
    XMLDocument.async := False;
    XMLDocument.preserveWhiteSpace := True;
    XMLDocument.load(FileName);    
    if (XMLDocument.parseError.errorCode <> 0) then
      RaiseException(XMLDocument.parseError.reason)
    else
    begin
      XMLDocument.setProperty('SelectionLanguage', 'XPath');
      XMLNode := XMLDocument.selectSingleNode(ConfigEndpointPath);
      XMLNode.setAttribute('address', Address);
      XMLDocument.save(FileName);
      Result := True;
    end;
  except
    MsgBox('An error occured during processing application ' +
      'config file!' + #13#10 + GetExceptionMessage, mbError, MB_OK);
  end;
end;
于 2013-03-25T18:13:01.673 回答