Неадекватный
11-06-2012, 15:03
Привет всем!
Примеры смотрел, но это не то. Всё очень сложно. Код реализации xml большой и не понятный.
В общем задача такая
Имеется NetworkCfg.xml
<?xml version="1.0" encoding="UTF-8"?>
<AllNetworkConfigs>
<NetworkConfig isNDIS="0" canbeDelete="1" isPreferred="1">
<ConfigFileName></ConfigFileName>
<UserName></UserName>
<Password></Password>
<LoginNumber></LoginNumber>
<AutoGetAPN>0</AutoGetAPN>
<APN></APN>
<AutoGetDNS>1</AutoGetDNS>
<MainDNS>0.0.0.0</MainDNS>
<StandbyDNS>0.0.0.0</StandbyDNS>
<AutoGetPDP>1</AutoGetPDP>
<PDPAddress>0.0.0.0</PDPAddress>
<PDPType>IP</PDPType>
<AuthType>PAP</AuthType>
<AskUserAndPwd>0</AskUserAndPwd>
<SaveUserAndPwd>0</SaveUserAndPwd>
</NetworkConfig>
</AllNetworkConfigs>
Пояснения к xml
<?xml version="1.0" encoding="UTF-8"?> - Создаётся по умолчанию;
<AllNetworkConfigs> - Создаётся по умолчанию;
<NetworkConfig isNDIS="0" canbeDelete="1" isPreferred="1"> - Создаётся по умолчанию;
<ConfigFileName></ConfigFileName> - Создаётся по умолчанию, но между <ConfigFileName></ConfigFileName> должно вводиться Название профиля; Например <ConfigFileName>MTS Internet</ConfigFileName>
<UserName></UserName> - Создаётся по умолчанию, но между <UserName></UserName> должно вводиться Имя пользователя; Например <UserName>MTS</UserName>
<Password></Password> - Создаётся по умолчанию, но между <Password></Password> должен вводиться Пароль; Например <Password>mts</Password>
<LoginNumber></LoginNumber> - Создаётся по умолчанию, но между <LoginNumber></LoginNumber> должен вводиться номер дозвона; Например <LoginNumber>*99***1#</LoginNumber>
<AutoGetAPN>0</AutoGetAPN> - Создаётся по умолчанию;
<APN></APN> - Создаётся по умолчанию, но между <APN></APN> должна вводиться Точка доступа; Например <APN>internet.mts.ru</APN>
<AutoGetDNS>1</AutoGetDNS> - Создаётся по умолчанию;
<MainDNS>0.0.0.0</MainDNS> - Создаётся по умолчанию;
<StandbyDNS>0.0.0.0</StandbyDNS> - Создаётся по умолчанию;
<AutoGetPDP>1</AutoGetPDP> - Создаётся по умолчанию;
<PDPAddress>0.0.0.0</PDPAddress> - Создаётся по умолчанию;
<PDPType>IP</PDPType> - Создаётся по умолчанию;
<AuthType>PAP</AuthType> - Создаётся по умолчанию;
<AskUserAndPwd>0</AskUserAndPwd> - Создаётся по умолчанию;
<SaveUserAndPwd>0</SaveUserAndPwd> - Создаётся по умолчанию;
</NetworkConfig> - Создаётся по умолчанию;
</AllNetworkConfigs> - Создаётся по умолчанию;
Если быть точнее, этот NetworkCfg.xml должен создаваться в папке программы, т.е %ProgramFiles%\Моё Программное Обеспечение.
То что в коде "но между XXX должно вводиться Название XXX; Например XXX" это должно работать в инсталляторе "вводиться в окошках"
Вот код
[Setup]
AppName=Моё Программное Обеспечение
AppVersion=1.5
;AppVerName=Моё Программное Обеспечение 1.5
DefaultDirName={pf}\Моё Программное Обеспечение
DefaultGroupName=Моё Программное Обеспечение
OutputDir=.
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Icons]
Name: "{group}\{cm:UninstallProgram,Моё Программное Обеспечение}"; Filename: "{uninstallexe}"
[CustomMessages]
Russian.Caption=Настройка профиля по умолчанию
Russian.Description=Настройте профиль в соответствии с вашим оператором
Russian.SettingsProfile=Настройка профиля
Russian.Operator=Оператор:
Russian.UserName=Имя пользователя:
Russian.Password=Пароль:
Russian.NumberDial=Номер набора:
Russian.APN=Точка доступа:
[*Code]
var
ISCustomPage1: TWizardPage;
NewGroupBox1: TNewGroupBox;
NewStaticText1: TNewStaticText;
NewEdit1: TNewEdit;
NewStaticText2: TNewStaticText;
NewEdit2: TNewEdit;
NewStaticText3: TNewStaticText;
NewEdit3: TNewEdit;
NewStaticText4: TNewStaticText;
NewEdit4: TNewEdit;
NewStaticText5: TNewStaticText;
NewEdit5: TNewEdit;
procedure RedesignWizardForm;
begin
ISCustomPage1 := CreateCustomPage(wpSelectDir, CustomMessage('Caption'), CustomMessage('Description'));
with ISCustomPage1.Surface do
begin
Name := 'ISCustomPage1';
end;
NewGroupBox1 := TNewGroupBox.Create(WizardForm);
with NewGroupBox1 do
begin
Name := 'NewGroupBox1';
Parent := ISCustomPage1.Surface;
Left := ScaleX(16);
Top := ScaleY(8);
Width := ScaleX(377);
Height := ScaleY(209);
Caption := CustomMessage('SettingsProfile');
end;
NewStaticText1 := TNewStaticText.Create(WizardForm);
with NewStaticText1 do
begin
Name := 'NewStaticText1';
Parent := NewGroupBox1;
Caption := CustomMessage('Operator');
Left := ScaleX(32);
Top := ScaleY(31);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do
begin
Name := 'NewEdit1';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(28);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText2 := TNewStaticText.Create(WizardForm);
with NewStaticText2 do
begin
Name := 'NewStaticText2';
Parent := NewGroupBox1;
Caption := CustomMessage('UserName');
Left := ScaleX(32);
Top := ScaleY(57);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit2 := TNewEdit.Create(WizardForm);
with NewEdit2 do
begin
Name := 'NewEdit2';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(53);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText3 := TNewStaticText.Create(WizardForm);
with NewStaticText3 do
begin
Name := 'NewStaticText3';
Parent := NewGroupBox1;
Caption := CustomMessage('Password');
Left := ScaleX(32);
Top := ScaleY(80);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit3 := TNewEdit.Create(WizardForm);
with NewEdit3 do
begin
Name := 'NewEdit3';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(77);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText4 := TNewStaticText.Create(WizardForm);
with NewStaticText4 do
begin
Name := 'NewStaticText4';
Parent := NewGroupBox1;
Caption := CustomMessage('NumberDial');
Left := ScaleX(32);
Top := ScaleY(103);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit4 := TNewEdit.Create(WizardForm);
with NewEdit4 do
begin
Name := 'NewEdit4';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(100);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText5 := TNewStaticText.Create(WizardForm);
with NewStaticText5 do
begin
Name := 'NewStaticText5';
Parent := NewGroupBox1;
Caption := CustomMessage('APN');
Left := ScaleX(32);
Top := ScaleY(127);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit5 := TNewEdit.Create(WizardForm);
with NewEdit5 do
begin
Name := 'NewEdit5';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(124);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText1.TabOrder := 0;
NewEdit1.TabOrder := 1;
NewStaticText2.TabOrder := 2;
NewEdit2.TabOrder := 3;
NewStaticText3.TabOrder := 4;
NewEdit3.TabOrder := 5;
NewStaticText4.TabOrder := 6;
NewEdit4.TabOrder := 7;
NewStaticText5.TabOrder := 8;
NewEdit5.TabOrder := 9;
NewGroupBox1.TabOrder := 0;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
Как это реализовать?
Примеры смотрел, но это не то. Всё очень сложно. Код реализации xml большой и не понятный.
В общем задача такая
Имеется NetworkCfg.xml
<?xml version="1.0" encoding="UTF-8"?>
<AllNetworkConfigs>
<NetworkConfig isNDIS="0" canbeDelete="1" isPreferred="1">
<ConfigFileName></ConfigFileName>
<UserName></UserName>
<Password></Password>
<LoginNumber></LoginNumber>
<AutoGetAPN>0</AutoGetAPN>
<APN></APN>
<AutoGetDNS>1</AutoGetDNS>
<MainDNS>0.0.0.0</MainDNS>
<StandbyDNS>0.0.0.0</StandbyDNS>
<AutoGetPDP>1</AutoGetPDP>
<PDPAddress>0.0.0.0</PDPAddress>
<PDPType>IP</PDPType>
<AuthType>PAP</AuthType>
<AskUserAndPwd>0</AskUserAndPwd>
<SaveUserAndPwd>0</SaveUserAndPwd>
</NetworkConfig>
</AllNetworkConfigs>
Пояснения к xml
<?xml version="1.0" encoding="UTF-8"?> - Создаётся по умолчанию;
<AllNetworkConfigs> - Создаётся по умолчанию;
<NetworkConfig isNDIS="0" canbeDelete="1" isPreferred="1"> - Создаётся по умолчанию;
<ConfigFileName></ConfigFileName> - Создаётся по умолчанию, но между <ConfigFileName></ConfigFileName> должно вводиться Название профиля; Например <ConfigFileName>MTS Internet</ConfigFileName>
<UserName></UserName> - Создаётся по умолчанию, но между <UserName></UserName> должно вводиться Имя пользователя; Например <UserName>MTS</UserName>
<Password></Password> - Создаётся по умолчанию, но между <Password></Password> должен вводиться Пароль; Например <Password>mts</Password>
<LoginNumber></LoginNumber> - Создаётся по умолчанию, но между <LoginNumber></LoginNumber> должен вводиться номер дозвона; Например <LoginNumber>*99***1#</LoginNumber>
<AutoGetAPN>0</AutoGetAPN> - Создаётся по умолчанию;
<APN></APN> - Создаётся по умолчанию, но между <APN></APN> должна вводиться Точка доступа; Например <APN>internet.mts.ru</APN>
<AutoGetDNS>1</AutoGetDNS> - Создаётся по умолчанию;
<MainDNS>0.0.0.0</MainDNS> - Создаётся по умолчанию;
<StandbyDNS>0.0.0.0</StandbyDNS> - Создаётся по умолчанию;
<AutoGetPDP>1</AutoGetPDP> - Создаётся по умолчанию;
<PDPAddress>0.0.0.0</PDPAddress> - Создаётся по умолчанию;
<PDPType>IP</PDPType> - Создаётся по умолчанию;
<AuthType>PAP</AuthType> - Создаётся по умолчанию;
<AskUserAndPwd>0</AskUserAndPwd> - Создаётся по умолчанию;
<SaveUserAndPwd>0</SaveUserAndPwd> - Создаётся по умолчанию;
</NetworkConfig> - Создаётся по умолчанию;
</AllNetworkConfigs> - Создаётся по умолчанию;
Если быть точнее, этот NetworkCfg.xml должен создаваться в папке программы, т.е %ProgramFiles%\Моё Программное Обеспечение.
То что в коде "но между XXX должно вводиться Название XXX; Например XXX" это должно работать в инсталляторе "вводиться в окошках"
Вот код
[Setup]
AppName=Моё Программное Обеспечение
AppVersion=1.5
;AppVerName=Моё Программное Обеспечение 1.5
DefaultDirName={pf}\Моё Программное Обеспечение
DefaultGroupName=Моё Программное Обеспечение
OutputDir=.
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Icons]
Name: "{group}\{cm:UninstallProgram,Моё Программное Обеспечение}"; Filename: "{uninstallexe}"
[CustomMessages]
Russian.Caption=Настройка профиля по умолчанию
Russian.Description=Настройте профиль в соответствии с вашим оператором
Russian.SettingsProfile=Настройка профиля
Russian.Operator=Оператор:
Russian.UserName=Имя пользователя:
Russian.Password=Пароль:
Russian.NumberDial=Номер набора:
Russian.APN=Точка доступа:
[*Code]
var
ISCustomPage1: TWizardPage;
NewGroupBox1: TNewGroupBox;
NewStaticText1: TNewStaticText;
NewEdit1: TNewEdit;
NewStaticText2: TNewStaticText;
NewEdit2: TNewEdit;
NewStaticText3: TNewStaticText;
NewEdit3: TNewEdit;
NewStaticText4: TNewStaticText;
NewEdit4: TNewEdit;
NewStaticText5: TNewStaticText;
NewEdit5: TNewEdit;
procedure RedesignWizardForm;
begin
ISCustomPage1 := CreateCustomPage(wpSelectDir, CustomMessage('Caption'), CustomMessage('Description'));
with ISCustomPage1.Surface do
begin
Name := 'ISCustomPage1';
end;
NewGroupBox1 := TNewGroupBox.Create(WizardForm);
with NewGroupBox1 do
begin
Name := 'NewGroupBox1';
Parent := ISCustomPage1.Surface;
Left := ScaleX(16);
Top := ScaleY(8);
Width := ScaleX(377);
Height := ScaleY(209);
Caption := CustomMessage('SettingsProfile');
end;
NewStaticText1 := TNewStaticText.Create(WizardForm);
with NewStaticText1 do
begin
Name := 'NewStaticText1';
Parent := NewGroupBox1;
Caption := CustomMessage('Operator');
Left := ScaleX(32);
Top := ScaleY(31);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do
begin
Name := 'NewEdit1';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(28);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText2 := TNewStaticText.Create(WizardForm);
with NewStaticText2 do
begin
Name := 'NewStaticText2';
Parent := NewGroupBox1;
Caption := CustomMessage('UserName');
Left := ScaleX(32);
Top := ScaleY(57);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit2 := TNewEdit.Create(WizardForm);
with NewEdit2 do
begin
Name := 'NewEdit2';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(53);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText3 := TNewStaticText.Create(WizardForm);
with NewStaticText3 do
begin
Name := 'NewStaticText3';
Parent := NewGroupBox1;
Caption := CustomMessage('Password');
Left := ScaleX(32);
Top := ScaleY(80);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit3 := TNewEdit.Create(WizardForm);
with NewEdit3 do
begin
Name := 'NewEdit3';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(77);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText4 := TNewStaticText.Create(WizardForm);
with NewStaticText4 do
begin
Name := 'NewStaticText4';
Parent := NewGroupBox1;
Caption := CustomMessage('NumberDial');
Left := ScaleX(32);
Top := ScaleY(103);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit4 := TNewEdit.Create(WizardForm);
with NewEdit4 do
begin
Name := 'NewEdit4';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(100);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText5 := TNewStaticText.Create(WizardForm);
with NewStaticText5 do
begin
Name := 'NewStaticText5';
Parent := NewGroupBox1;
Caption := CustomMessage('APN');
Left := ScaleX(32);
Top := ScaleY(127);
Width := ScaleX(100);
Height := ScaleY(14);
end;
NewEdit5 := TNewEdit.Create(WizardForm);
with NewEdit5 do
begin
Name := 'NewEdit5';
Parent := NewGroupBox1;
Left := ScaleX(136);
Top := ScaleY(124);
Width := ScaleX(121);
Height := ScaleY(21);
Text := '';
end;
NewStaticText1.TabOrder := 0;
NewEdit1.TabOrder := 1;
NewStaticText2.TabOrder := 2;
NewEdit2.TabOrder := 3;
NewStaticText3.TabOrder := 4;
NewEdit3.TabOrder := 5;
NewStaticText4.TabOrder := 6;
NewEdit4.TabOrder := 7;
NewStaticText5.TabOrder := 8;
NewEdit5.TabOrder := 9;
NewGroupBox1.TabOrder := 0;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
Как это реализовать?