[Lazarus] Ecriture dans un fichier sous Linux

**load.exe** · 30/01/2008, 15h33

Bonjour,

Je ne sais pas si je suis dans la bonne rubrique, donc si un modérateur peut modifier si erreur!

Je souhaite crée une interface graphique d'un logiciel camfrogserver pour configurer les parametres necessaire au bon fonctionnement de celui-ci, qui nativement se configure à la main dans des fichiers de type fichier.conf.sample
par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
adultsonly=off
audioonlyroom=off
commandsenabled=on
deafroom=off
defaultbantime=3
disablehyperlinks=on
disabletalk=off
logcommands=0
maxconnectionsacceptable=50
maxlinebreaks=10
motdpresent=off
nobotsallowed=off

Donc, je souhaiterais, soit par le biais d'une coche, ou l'appuis d'un button, passer un paramettre on qui par defaut est à off

Par exemple, motdpresent=off , puis des que j'appuis sur un boutton, le OFF ce transforme en ON.
C'est possible sachant que je developpe avec lazarus et que ce fichier se trouve dans /etc/camfrogserverd/fichier.conf.sample ??

Merci beaucoup pour vos conseils qui je suis sûr me permetteras d'evoluer...

**talapoga** · 30/01/2008, 21h49

Envoyé par load.exe

Bonjour,
[...]
Merci beaucoup pour vos conseils qui je suis sûr me permetteras d'evoluer...

Bonjour,

Evoluer, oui, mais à partir d'ou ? Telle est la question ;-)

Quelques conseils en vrac :
- vérifier au debut que l'utilisateur est bien root (ou sudoer),
- Faire une interface comportant TOUS les paramétres possibles dans le fichier,
- Faire (ou au moins proposer ... ) une sauvegarde de l'ancien fichiers de conf,
- Bien penser à récréer le nouveau fichier sans l'extension ".sample"?

Bon courage

**load.exe** · 31/01/2008, 15h06

Bonjour,

- vérifier au debut que l'utilisateur est bien root (ou sudoer)

Une logiciel comportant une interface graphique peut toujours s'executer en root, du moins, j'ai toujours réussi...c'est pas un problème.

- Faire une interface comportant TOUS les paramétres possibles dans le fichier

c'est ce dont j'avais l'intention de faire, mais le problème, c'est que je ne trouve pas de source permettant de le faire.
d'apres mes recherches, il faut que je read le fichier ligne par ligne pour modifier la ligne voulu.
Mais le problème, c'est que ça se fait avec seek pour les modifications.

- Faire (ou au moins proposer ... ) une sauvegarde de l'ancien fichiers de conf

Oui, ça j'y avais penser naturellement...

--Ce dont je cherche, c'est juste une petite ligne de code qui me permet de modifier une ligne voulu dans un fichier qui se trouve dans un repertoire.
Ensuite, je me debrouillerais.
C'est ça qui me pose problème pour le moment

Merci

**talapoga** · 31/01/2008, 16h33

Envoyé par load.exe

Bonjour,
Une logiciel comportant une interface graphique peut toujours s'executer en root, du moins, j'ai toujours réussi...c'est pas un problème.

Certes, mais s'agissant d'un fichier de conf, il faudra à priori avoir des droits pour le modifier ...

Envoyé par load.exe

mes recherches, il faut que je read le fichier ligne par ligne pour modifier la ligne voulu.
Mais le problème, c'est que ça se fait avec seek pour les modifications.

Ah, personellement, j'aurais recréé le fichier completement, lorsque l'uilisateur sauvegarde ses modifs.

--Ce dont je cherche, c'est juste une petite ligne de code qui me permet de modifier une ligne voulu dans un fichier qui se trouve dans un repertoire.
Ensuite, je me debrouillerais.
C'est ça qui me pose problème pour le moment

Merci[/QUOTE]

Pour le code, j'en ai pas, mais je vais tester voir si j'arrive à quelque chose ;-)

**talapoga** · 31/01/2008, 17h42

Envoyé par talapoga

Pour le code, j'en ai pas, mais je vais tester voir si j'arrive à quelque chose ;-)

M'ouais ... il me semblait aussi....
Seek s'adresse à des eléments de taille fixe, donc il n'est pas adapté pour cet usage.

**load.exe** · 31/01/2008, 17h59

re

Ah, personellement, j'aurais recréé le fichier completement, lorsque l'uilisateur sauvegarde ses modifs

Oui, c'est envisagable.
Mais quand le fichier va se recréer, est-ce qu'il va bien ecraser le fichier precedant de facon a ce que l'ancienne config soit bien effacer sans confirmation ?

Certes, mais s'agissant d'un fichier de conf, il faudra à priori avoir des droits pour le modifier

Oui, car le fichier se trouve dans le repertoire etc, et qu'a la base, seul root à le droit de modifier les fichier de config, mais c'est pas un problème, je pense que si l'utilisateur lance le nom du programme dans la console en root, alors le prog agiras en tant que root...

Merci pour ton aide

**talapoga** · 31/01/2008, 18h25

Envoyé par load.exe

re
Oui, c'est envisagable.
Mais quand le fichier va se recréer, est-ce qu'il va bien ecraser le fichier precedant de facon a ce que l'ancienne config soit bien effacer sans confirmation
Merci pour ton aide

Re,
Personnelement je pense qu'il faut prendre les devant et l'éffacer soi même, juste avant de le recréer. En fait, le renommer pour en faire un backup suffirais ;-)

**load.exe** · 31/01/2008, 18h47

re

Personnelement je pense qu'il faut prendre les devant et l'éffacer soi même, juste avant de le recréer. En fait, le renommer pour en faire un backup suffirais ;-)

Bon, je pense que je pourrai toute fois inclure une ligne de code qui pourrais effacer ou renomer le fichier via le programme developper.

Mais sur le net, j'ai trouver une source qui permet d'ecrire dans un fichier.txt ,cependant, le fichier que je souhaite alors crée puis éditer doit porter fichier.conf.sample.
ne risque t-il pas d'y avoir conflit.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    * procedure X(Sender: TObject);
    * var
    * //on crée une variable Textfile
    * fichier: textfile;
    * begin
    * assignfile(fichier ,'nom_du_fichier.txt');
    * Reset(fichier); //Si vous voulez réouvrir un fichier sans effacer le contenu, ou bien
    * //Rewrite(fichier); si vous voulez ecraser le fichier
    *
    * Write(fichier,'ce kon veu écrire'); //ajoute un mot dans le fichier
    * WriteLn(fichier,'ce kon veu encore écrire'); //ajoute une ligne au fichier
    *
    * closefile(fichier); //ferme le fichier
    * end;

Est-ce que je m'y prendrais bien comme cela ?

**talapoga** · 31/01/2008, 19h15

Envoyé par load.exe

[CODE

* Write(fichier,'ce kon veu écrire'); //ajoute un mot dans le fichier
* WriteLn(fichier,'ce kon veu encore écrire'); //ajoute une ligne au fichier
[/CODE]

Est-ce que je m'y prendrais bien comme cela ?

Je ne garderais que la seconde ligne, ave 'ce kon veut écrire' créé à la main en concaténant le nom du paramétre, un "=" et la valeur de ce paramétre.

Par contre, en général les fichiers en .conf.sample sont des fichiers examples qu'il renommer en .conf avant de les utiliser ...

**load.exe** · 31/01/2008, 19h36

re

Bon, j'ai tester sous delphi (windows)
cela fonctionne, tres grand pas pour moi

En revanche, j'écris un texte avec boutton 1, ca fonctionne.
Mais avec le boutton 2, il m'efface ma premiere ligne pour la remplacer par celle du boutton 2
Donc, j'en revient toujours a une seul string

Je vois que sur le net, il propose append pour a chaque fois ecrire a la ligne suivante, mais la compile me met erreur.
Enfin, pour le moment je teste sous delphi, peut-etre que sous lazarus, cela fonctionne, je ne sais pas.
Tu as une petite idée.

En tous ca merci beaucoup, j'avance

**load.exe** · 31/01/2008, 20h12

Re

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
20
procedure TForm1.Button1Click(Sender: TObject);
 var T:TextFile;
begin
  AssignFile(T, 'c:\yann.conf.sample');
     Rewrite(T);
        Write(T, 'premiere ligne');
 
         CloseFile(T);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
  var T:TextFile;
begin
  AssignFile(T, 'c:\yann.conf.sample');
        Append(T);
write(T,'deuxieme ligne');
 
         CloseFile(T);

Le problème, c'est qu'il me met deuxieme ligne cote à cote.
Ce qu'il me faudrais, c'est qu'il me met deuxieme ligne en dessous de la premiere.
C'est possible ça ?
Merci et excusez moi pour le double post, je ne pouvais plus réediter

merci

**talapoga** · 31/01/2008, 20h21

Envoyé par load.exe

Je vois que sur le net, il propose append pour a chaque fois ecrire a la ligne suivante, mais la compile me met erreur.
[...]
En tous ca merci beaucoup, j'avance

C'est bizarre que ca ne marche pas. Logiquement il ne devrait pas y avoir d'erreur ... Il dit quoi, au juste ?

**load.exe** · 31/01/2008, 20h32

C'est bizarre que ca ne marche pas. Logiquement il ne devrait pas y avoir d'erreur ... Il dit quoi, au juste ?

C'est bon, excuse moi, je m'y était mal pris, ça fonctionne.

mais le problème, c'est qu'il me réecrit à coté de la premiere string crée.
Parce que en faite, je souhaiterais si possiblle, recréer un bouttons, et qu'a l'appuis de ce boutton, il réecris une string, mais en dessous de la premiere ligne.

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
20
procedure TForm1.Button1Click(Sender: TObject);
var T:TextFile;
begin
AssignFile(T, 'c:\yann.conf.sample');
Rewrite(T);
Write(T, 'premiere ligne');
 
CloseFile(T);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
var T:TextFile;
begin
AssignFile(T, 'c:\yann.conf.sample');
Append(T);
write(T,'deuxieme ligne');
 
CloseFile(T);

Mais avec ce code, il me fait cela dans le fichier :

Code :

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

premiere lignedeuxieme ligne

Alors que logiquement ce devrais etre

Code :

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

premiere ligne

Code :

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

deuxieme ligne

Merci

**droggo** · 31/01/2008, 20h49

Hio,

Relis la doc, et regarde bien ce que font Write et WriteLn.

**load.exe** · 31/01/2008, 20h57

Envoyé par droggo

Hio,

Relis la doc, et regarde bien ce que font Write et WriteLn.

Bonjour droggo

Oui, je suis d'accord droggo , mais sur une seul procedure, j'arrive a ecrire à la suite.
Mais sur 2 ou 3 procedures, cela ne fonctionne pas.
Cela m'ecris à la suite sur la même ligne

Je vais encore retourner voir la doc...
Dur Dur la prog, je penser pas que c'était aussi hard, mais c'est passionnant comme même

**talapoga** · 31/01/2008, 21h24

Envoyé par load.exe

Bonjour droggo

Oui, je suis d'accord droggo , mais sur une seul procedure, j'arrive a ecrire à la suite.
Mais sur 2 ou 3 procedures, cela ne fonctionne pas.
Cela m'ecris à la suite sur la même ligne

Je vais encore retourner voir la doc...
Dur Dur la prog, je penser pas que c'était aussi hard, mais c'est passionnant comme même

Non, non, ca marche très bien avec Writeln au lieu de Write, le premier rajoute un saut de ligne ....

**load.exe** · 31/01/2008, 21h49

Envoyé par talapoga

Non, non, ca marche très bien avec Writeln au lieu de Write, le premier rajoute un saut de ligne ....

re,

Oui, ca fonctionne sur une instruction, mais sur la deuxieme instruction, je veut faire la meme chose.
Vous comprenez ce que je veut faire ?
Un bouton = une ligne
deuxieme bouton =deuxieme ligne à la suite de la premiere.
merci.
Vais me coucher pour ce soir.
a demain

**droggo** · 01/02/2008, 01h19

Gio,

Je ne vois plus trop ce que tu veux faire vraiment, explique-toi un peu mieux: que veux-tu dire précisément par

Un bouton = une ligne
deuxieme bouton =deuxieme ligne à la suite de la premiere.

c'est sans doute clair pour toi, mais imagine que nous ne sommes pas dans ta tête.

**load.exe** · 01/02/2008, 15h37

Re bonjour,

Imagine une form et que sur cette form tu y places 2 boutons.
Donc, bouton1 insère une ligne
Et lorsque je clique sur le bouton 2 qui, lui, se trouve par exemple à coté du bouton 1, inscrit une autre ligne en dessous de la première

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
20
procedure TForm1.Button1Click(Sender: TObject); //bouton 1
 var T:TextFile;
begin
  AssignFile(T, 'c:\yann.conf.sample');
     Rewrite(T);
        Write(T, 'premiere');
 
         CloseFile(T);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject); //boutton 2
 
  var T:TextFile;
begin
  AssignFile(T, 'c:\yann.conf.sample');
        Append(T);
writeLn(T,'deuxieme');
 
         CloseFile(T);

Bon, avec ce code, le bouton2 insère une ligne, mais il l'insère à côté de la première.
Ce que j'essaie de faire, c'est que lorsque je clique sur le bouton 2, il me l'insère en dessous de la première.
Tu comprends ?
En fait, là avec mon code actuel posté ci-dessus, dans mon fichier, cela apparaît comme ceci :

premieredeuxieme

Alors que normalement, il devrait apparaître comme cela :

premiere
deuxieme

Voilà, j'espère avoir été assez clair .

Merci beaucoup pour ta patience.
Il me reste plus que cette affaire pour classer mon post résolu