Replace the placeholder in the installed text file with the user entered

Question

As part of the Inno Setup built-in installer, I want to output a text field that the user enters into the installer into a text file.

So far I have the following:

[Code]
var
  PrimaryServerPage: TInputQueryWizardPage;
  PrimaryAddress: String;

procedure InitializeWizard;
begin
  PrimaryServerPage := CreateInputQueryPage(wpWelcome,
    'Primary Server Details', 'Where is you application installed?',
    'Please specify the IP address or hostname of your Primary Server, ' +
    'then click Next.');
  PrimaryServerPage.Add('Primary Server IP/Hostname:', false); 

  PrimaryAddress := PrimaryServerPage.Values[0];

  SaveStringToFile('c:\filename.txt', PrimaryAddress, True);
end;

However, when I run the installer and enter the field, it is not output to a text file.

If I replaced PrimaryServerPage.Values[0]with a number, it will be successfully output to a text file.

Can anyone help or suggest suggestions on where I might be wrong?

, , ? , , . , "ENTER !" ? ?

###############################################################################
#
#    Configuration File.
#
###############################################################################

#
# This file is intended for advanced users. Please consult the documentation
# before modifying this file.
#
# NOTE: The hash (#) represents a comment.
#

#
# Define the name or IP address of the primary server.
# On secondary server installs, this value should be changed to point to the
# primary server.
#   Default: 127.0.0.1
#   Examples:  mainserver.localdomain.com, win2003, 1.2.3.4
#
# IMPORTANT: Please restart the Service" after
# changing this value.
#
ApplicationServer=ENTER VALUE HERE!

, ( , ), , , , .

[Code]
var
  PrimaryServerPage: TInputQueryWizardPage;
  PrimaryAddress: String;


function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if(CurPageID = wpWelcome) then
  begin

  PrimaryServerPage := CreateInputQueryPage(wpWelcome,
    'Application Server Details', 'Where is your app installed?',
    'Please specify the IP address or hostname of your Application Server, ' +
    'then click Next.');
  PrimaryServerPage.Add('Primary Server IP/Hostname:', false); 

  PrimaryAddress := PrimaryServerPage.Values[0];

  SaveStringToFile('c:\filename.txt', PrimaryAddress, True);
  end;

  Result :=True;
end;

Answer 1

:

• Inno Setup (FileReplaceString)
• Inno: ( CurStepChanged(ssPostInstall) )

:

var
  PrimaryServerPage: TInputQueryWizardPage;

function FileReplaceString(ReplaceString: string):boolean;
var
  MyFile : TStrings;
  MyText : string;
begin
  Log('Replacing in file');
  MyFile := TStringList.Create;

  try
    Result := true;

    try
      MyFile.LoadFromFile(ExpandConstant('{app}' + '\thefile.txt'));
      Log('File loaded');
      MyText := MyFile.Text;

      { Only save if text has been changed. }
      if StringChangeEx(MyText, 'REPLACE_WITH_IP', ReplaceString, True) > 0 then
      begin;
        Log('IP address inserted');
        MyFile.Text := MyText;
        MyFile.SaveToFile(ExpandConstant('{app}' + '\thefile.txt'));
        Log('File saved');
      end;
    except
      Result := false;
    end;
  finally
    MyFile.Free;
  end;

  Result := True;
end;

procedure InitializeWizard;
begin
  PrimaryServerPage :=
    CreateInputQueryPage(
      wpWelcome, 'PaperCut Application Server Details', 'Where is PaperCut installed?',
      'Please specify the IP address or hostname of your ' +
        'Primary PaperCut Application Server, then click Next.');
  PrimaryServerPage.Add('Primary Application Server IP/Hostname:', False);
end;   

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    Log('File installed, replacing IP address');
    FileReplaceString(PrimaryServerPage.Values[0]);
  end;
end;