Discussion :

[yvonic2010]

Bonjour à tous,

Je vous explique mon problème. Pour mon projet de BTS, j'ai développé un programme pour la gestion d'un chariot éléctrique. Jusque là, pas de problème mais j'aimerais faire un journal de log qui enregistrerai les differentes action effectuées dans un fichier text.

J'aimerais donc savoir comment generer un fichier text et comment y incorporer des informations le tout de manière transparente durant l'utilisation du programme.

Merci par avance pour vos réponse.

[Alchemist]

Salut,

Pour créer un fichier log, tu peux utiliser une méthode assez simple :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
var      // variables globales
   LogPret : boolean = false;       // Init
 
...
 
Procedure CreeLog;
var
   Log : Text;    // 'Text' = fichier texte
 
begin
    LogPret := false;
    AssignFile (Log, 'Journal.log')   // Assigne ton Log à un dossier+fichier
                                     // Ici, le dossier n'etant pas précisé, on se 
                                    //  retrouve dans le meme dossier que l'appli
 
    {I-}                             // On désactive la gestion d'erreur E/S
    Rewrite (log);                  // crée ou écrase
    {I+}                           // puis la réactive
 
     if IoResult <> 0 then       // Comme ça on peut gérer l'erreur nous-même
     begin
         showmessage(SysErrorMessage(GetLastError));  // ça c'est pour avoir le  n° de l'erreur 
         Closefile (Log);                            // Libère 'Log'
         exit;                                      // On Sort de la procedure
     end;
 
     LogPret := true;                // Ok, le log est prêt 
 
     WriteLn ( Log, ' Lancement Ok, vérification sauvegarde ... ' );
 
end;
 
...

Ensuite, tu ecrits dans ton fichier en manipulant la variable 'Log'.

Code :

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

if LogPret then WriteLn ( Log, 'Gr7_Gestion au Pas 3' );

Et ça pour chaque élements à 'logger'.

N'oublie pas de fermer ton fichier (et libérer par la même occasion la variable Log) dès que tu n'as plus besoin du log.

Code :

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

CloseFile (Log);

Tu peux lancer ta procedure CreeLog dès le lancement de ton appli, dans l'évenement OnCreate de ta fiche (sauf si c'est une appli console), et faire de même pour le CloseFile, dans ton évenement OnClose.

Voila !

Après à toi de voir pour changer les noms des fichiers log à chaque lancement afin de pouvoir les concerver. Sache que tu peux tester la présence d'un fichier avec la fonction FileExists ('fichier') ...

A pauffiner à souhait ...

Bonne prog.

[yvonic2010]

Merci beaucoup pour ta réponse, c'est clair et précis je ne pouvais pas espérer mieux!!!!

[yvonic2010]

Arf j'ai encore un petit probleme, tu m'as dit que je pouvais integrer cette procedure à la creation de la fiche mais on ne peut pas integrer une procedure dans une autre il me semble. Comment on fait pour appeler une procedure à partir d'une autre ?

[Qwazerty]

SAlut
Bien sur que l'on peut, il suffit de mettre le nom de la procedure que tu veux appeler, et ses parametres bien sur si cette procedure ou fonction en a.

Dans le OnCreate de la form par exemple

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
       creeLog;
end;

A++
Qwaz

[yvonic2010]

A oui en faite c'est super simple, merci sa m'aidera beaucoup pour la suite.

Encore merci pour vos réponse c'est vraiement sympa