用用户在 Inno Setup 中输入的输入替换已安装文本文件中的占位符
Replace placeholder in an installed text file with input entered by user in Inno Setup
作为 Inno Setup 内置安装程序的一部分,我想将用户在安装程序中输入的文本字段输出到文本文件。
到目前为止我有以下内容:
[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;
但是,当我 运行 安装程序并输入字段时,它不会输出到文本文件。
如果我用数字替换 PrimaryServerPage.Values[0]
,这会成功输出到文本文件。
任何人都可以就我可能出错的地方提供帮助或建议吗?
另外,接下来我其实想把这个值输出到现有文本文件的中间,这可能吗?
例如,这是我希望将其插入的配置文件。要添加到 ENTER VALUE HERE!
中的值
可以将其添加为安装的最后一步吗?配置文件在安装完成后才会存在?
###############################################################################
#
# 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!
工作正在进行中,在我查看替换之前卡住让文本文件输出工作(我想我可能误解了 post),尽管任何关于它的指导都会很棒,因为我我确信我对 Inno 的缺乏经验也会让我陷入困境。
[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;
结合这两个问题的答案:
- Replace a text in a file with Inno Setup(
FileReplaceString
函数)
- Inno Setup Compiler: How to modify file content (use of
CurStepChanged(ssPostInstall)
event function)
您将获得如下代码:
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;
要在安装过程的早期进行替换,另请参阅:
- Inno Setup: How to run a code procedure in Run section or before Run section?
- How to execute cmd commands in Inno Setup
作为 Inno Setup 内置安装程序的一部分,我想将用户在安装程序中输入的文本字段输出到文本文件。
到目前为止我有以下内容:
[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;
但是,当我 运行 安装程序并输入字段时,它不会输出到文本文件。
如果我用数字替换 PrimaryServerPage.Values[0]
,这会成功输出到文本文件。
任何人都可以就我可能出错的地方提供帮助或建议吗?
另外,接下来我其实想把这个值输出到现有文本文件的中间,这可能吗?
例如,这是我希望将其插入的配置文件。要添加到 ENTER VALUE HERE!
中的值
可以将其添加为安装的最后一步吗?配置文件在安装完成后才会存在?
###############################################################################
#
# 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!
工作正在进行中,在我查看替换之前卡住让文本文件输出工作(我想我可能误解了 post),尽管任何关于它的指导都会很棒,因为我我确信我对 Inno 的缺乏经验也会让我陷入困境。
[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;
结合这两个问题的答案:
- Replace a text in a file with Inno Setup(
FileReplaceString
函数) - Inno Setup Compiler: How to modify file content (use of
CurStepChanged(ssPostInstall)
event function)
您将获得如下代码:
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;
要在安装过程的早期进行替换,另请参阅:
- Inno Setup: How to run a code procedure in Run section or before Run section?
- How to execute cmd commands in Inno Setup