Discussion :

[ba10]

Bonjour,

Je voudrais créer un fichier texte et écrire dedans lors de l'installation de l'application.
J'ai écrit ce code mais il me génère cette erreur " Unknown type 'TIniFile' "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function createConfigFile();
	var
		FileIni: TIniFile;
	begin
		FileIni := TIniFile.Create('C:\..\MyConfigFile.ini');
		FileIni.WriteString('server.ip=%s',IpAddressEdit);
		FileIni.WriteString('server.Port=%s',PortEdit);
		RenameFile('C:\..\MyConfigFile.ini', 'C:\..\MyConfigFile.properties');
	end;

[Cl@udius]

Salut

Effectivement la classe TIniFile n'est pas reconnue par InnoSetup.
A la place j'utiliserais, si c'est possible dans ton contexte, une classe TStrings avec sa méthode SaveToFile.

@+ Claudius

[ba10]

Salut Cl@udius, merci pour ta réponse

j'ai écrit ce bout de code pour le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function InitializeSetup() : Boolean;
       var
		PropertiesFile: TStrings;
        begin
		PropertiesFile.add('server.ip=127.0.0.1');
		PropertiesFile.SaveToFile('C:\MyConfigFile.properties');
                REsult:=True;
        end;

lors de l'exécution l'installeur lance cette exception

---------------------------
Error
---------------------------
Runtime Error (at 1:82):



Could not call proc.
---------------------------
OK
---------------------------

A la place j'utiliserais, si c'est possible dans ton contexte, une classe TStrings avec sa méthode SaveToFile.

Moi je veux juste créer un fichier et écrire dedans la configuration saisie par l'utilisateur lors de l'installation (la saisie se fait dans un TEdit)

Merci

[Cl@udius]

lors de l'exécution l'installeur lance cette exception

Il te manque un Create.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  PropertiesFile := TStringList.Create;
  PropertiesFile.Add(...);
  // ...
  PropertiesFile.SaveToFile(...);
  PropertiesFile.Free; // Libération

Mais ce traitement n'est pas a priori à faire dans le InitializeSetup mais après la saisie des valeurs de tes TEdit de tes formulaires personnalisés.

@+

[ba10]

yes ça marche nikel, merci bcp.

Par contre j'ai une petite question. lors de l'initialisation de l'installeur "InitializeWizard", je voudrais tester si le fichier de configuration existe ou non. s'il existe pas alors je crée ma page de configuration sinon je fais rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure InitializeWizard();
	begin
	      if not FileExists('C:\..\MyConfigFile.properties') then begin
		     CreateTheWizardPages;
	      end ;
	end;

Si le fichier n'existe pas, il y a pas de problème. mais dans le cas contraire j'ai l'exception suivante

---------------------------
Setup
---------------------------
Runtime Error (at 35:37):



Could not call proc.
---------------------------
OK
---------------------------

[Cl@udius]

Si le fichier n'existe pas, il y a pas de problème. mais dans le cas contraire j'ai l'exception suivante

A vue de nez, je dirais que dans le déroulement de ton installation tu dois faire appel à l'une des pages personnalisées qui n'a pas été créée.