Discussion :

[dan_lizhot]

Bonjour,
ça fait un bail que j'étais pas venu poser des questions sur le forum. Mais j'en ai une pour vous, j'ai regardé la FAQ sur les fichier ini et pour les lire, je n'ai aucun problème, le code marche nickel, le problème vient quand je veux écrire. Le code est bien mais aucun changement ne se produit au fichier ini. Voilà le code et merci de m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TInfoBox.OKButtonClick(Sender: TObject);
begin
 try
 
  FileIni:= TIniFile.Create('bdd.ini');
  FileIni.WriteString('Info perso', 'Compagnie', NameBox.Text);
  FileIni.WriteString('Info perso', 'Slogan', SloganBox.Text);
  FileIni.WriteString('Info perso', 'Adresse', AdressBox.Text);
  FileIni.WriteString('Info perso', 'Ville', TownBox.Text);
  FileIni.WriteString('Info perso', 'Boite postale', BPBox.Text);
  FileIni.WriteString('Info perso', 'Code postal', CPBox.Text);
  FileIni.WriteString('Info perso', 'Indicatif', IndicatifBox.Text);
  FileIni.WriteString('Info perso', 'Phone1', Phone1Box.Text);
  FileIni.WriteString('Info perso', 'Phone2', Phone2Box.Text);
  finally
  FileIni.Free ;
  InfoBox.Close;
  end ;
end;

[Pedro]

Salut
Le problème ne viendrait pas du fichier lui-même (déjà ouvert, protégé, etc.) ?

[ShaiLeTroll]

Tu ne seras pas en Vista ?
Le Fichier est peut-être ailleurs, si tu ne mets pas le chemin complet, cela peut jouer ...

[dan_lizhot]

Merci de vos réponses. Non je ne suis pas sous Vista et le fichier ini est dans le même dossier que mon application. Pour ce qui est du "déjà ouvert", sur la fenêtre principale, j'ai des options par boutons, quand je sélectionne le bouton de la fiche "InfoBox", avant d'ouvrir la fiche, je fais lire les données du fichier ini pour que mes "EditBox" soient remplis par les informations. Je fais bien IniFile.Free avant d'ouvrir la fiche mais peut-être qu'il ne ferme pas bien le fichier ini. Bref voilà le code du bouton qui lit le ini et ouvre la fiche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.InfoButtonClick(Sender: TObject);
begin
 try
  FileIni:=TMemIniFile.Create('bdd.ini');
  InfoBox.NameBox.Text := FileIni.ReadString('Info perso', 'Compagnie', '' );
  InfoBox.SloganBox.Text := FileIni.ReadString('Info perso', 'Slogan', '' );
  InfoBox.AdressBox.Text := FileIni.ReadString('Info perso', 'Adresse', '' );
  InfoBox.TownBox.Text := FileIni.ReadString('Info perso', 'Ville', '' );
  InfoBox.BPBox.Text := FileIni.ReadString('Info perso', 'Boite postale', '' );
  InfoBox.CPBox.Text := FileIni.ReadString('Info perso', 'Code postal', '' );
  InfoBox.IndicatifBox.Text := FileIni.ReadString('Info perso', 'Indicatif', '' );
  InfoBox.Phone1Box.Text := FileIni.ReadString('Info perso', 'Phone1', '' );
  InfoBox.Phone2Box.Text := FileIni.ReadString('Info perso', 'Phone2', '' );
  finally
  FileIni.Free ;
  InfoBox.Show;
  end ;
end;

Un grand merci encore.

[ShaiLeTroll]

Pourqu'elle raison TIniFile et TMemIniFile, et sinon "Create('bdd.ini');" le chemin en cours peu changer avec un OpenDialog par exemple, moi je mettrais

Code :

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

Create(ExtractFilePath(Application.ExeName) + 'bdd.ini');

[Eric Boisvert]

+1 pour ShaiLeTroll

et voici la raison:

La portion ecriture de ton inifile est basé sur TInifile qui est lui-même basé
sur les API de windows... et entre autre
WritePrivateProfileString

le help de cette fonction nous dit ceci:

If the lpFileName parameter does not contain a full path and filename for the file, WritePrivateProfileString searches the Windows directory for the file. If the file does not exist, this function creates the file in the Windows directory.

Pour la partie Lecture tu utilise TMemIniFile() qui est basé sur des
TFileStreams qui utilisent le répertoire de l'application par défault via
FileOpen() et eventuellement CreateFile().

Finalement tu lis toujours le mauvais fichier...ou tu écrit toujours dans le mauvais...

Donc conclusion TOUJOURS fournir le path complet lorsqu'on manipule des fichiers... ça évite bien des surprise....

[Droïde Système7]

Bonjour,

[...] Non je ne suis pas sous Vista et le fichier ini est dans le même dossier que mon application. [...]

cela signifie que si tu as des utilisateurs sous VISTA, hé bien l'écriture en INI sera virtualisée puisque VISTA interdit (UAC oblige) les écritures en Program Files.

Bon... ça peut passer, mais en ce cas ton appli ne sera pas en principe 100% compatible VISTA.

Autrement dit, désormais la bonne habitude du programmeur est de ne plus placer d'INI dans le répertoire de son appli, sauf si cette dernière est ailleurs qu'en PF, mais le conseil est d'absolument éviter cette proximité.

[dan_lizhot]

Je vous remercie tous pour cette attention que vous avez porté à mon sujet de discution. Vous m'avez appris des choses dont je ne me doutais point et je trouve ça géniale de pouvoir agrandir mes connaissance dans le domaine de la programmation en Delphi. Alors je vais faire en sorte que l'ini soit dans un dossier autre, peut-être système32 ou quelque chose du genre.

Merci à vous, vous êtes une grande équipe qui travaillent efficacement.

[Droïde Système7]

Bonjour,

Je vous remercie tous pour cette attention que vous avez porté à mon sujet de discution. Vous m'avez appris des choses dont je ne me doutais point et je trouve ça géniale de pouvoir agrandir mes connaissance dans le domaine de la programmation en Delphi. Alors je vais faire en sorte que l'ini soit dans un dossier autre, peut-être système32 ou quelque chose du genre. [...]

Je ne crains que tous les folders sous ...\Windows ne soient protégés par l'UAC ; alors le System ou System32, là tu cherches et trouveras la réaction de l'UAC

Mais regarde ici, certainement des choses qui te seront utiles :
http://www.developpez.net/forums/sho...d.php?t=525325

[dan_lizhot]

Super, un autre précieux conseil