Geek asks and answers

Inno Setup Changing the app.config file when running setup.exe

I have a WCF service that I host as a Windows service. Usually I go to the VS command line and install the service using installutil.exe, and then change the base address of the service in app.config in accordance with the name of the machine in which I install it, and start the service.

The base address is as follows:

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

I am changing MACHINE_NAME in the app.config file.

I want to use inno setup to do the same for me.

What I want is when the user runs the setup.exe file to install the service, I want to invite the user to the base address of the service and use this address to host it. I can’t understand if it is possible at all or how to do it.

Any help please? Thanks in advance.:)

+5
source share
2 answers

Just an example that I use to replace a string in my application configuration.
I am sure that this can be done better :-)

What I replace:

Add key = "AppVersion" value = "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;
+5
source

I would recommend using an XML parser to update your configuration files. This feature can help you with this. It uses MSXML as a file parser:

[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;
+2
source

More articles:


All Articles