[D7],[Access],[ADO],enregistrer une erreur dans un fichier log

Version imprimable

15/04/2007, 17h00
iam

[D7],[Access],[ADO],enregistrer une erreur dans un fichier log

salut tout le monde, j'ai un programme de consolidation automatique planifié avec taches planifiées de windows, il accede dans un répertoire situé dans un serveur,il décompresse les fichiers envoyés (l'application clientes fait une sauvegarde intégrale de la base de données et la compresse dans un fichier zip, ensuite l'utilisateur envoie la sauvgarde par FTP au serveur FTP au niveau central) et consolide les données dans une base de données centrale, mon problème est que des fois la sauvegarde envoyé n'est pas complète,il est impossible de la décompresser (coromppue),mon programme de consolidation donc s'arrète en m'affichant un msg d'erreur, je veux stocker quand il y a une erreur, la provenance du fichier et la date et d'autre information dans un fichier text que je sauvegarde dans un endroit bien détérminé ou bien de l'envoyer par messagerie à l'administrateur et cela pour etre au courant des fichiers mal reçus,si quelqu'un a dèjà fait ça,je serai très reconnaissant en me montrant la manière de le faire
merci
16/04/2007, 10h33
Rayek

il te faut gérer un Try ... Except ... end et mettre dans la partie Except ... End la génération de ton log.
16/04/2007, 10h40
iam

merci malatar, si vous permettez de me donnez un exemple comment créer un fichier log et l'enregistrer dans une partition quelconque dans le disque dur, et comment accéder pour le lire par programme, merci infiniment pour votre aide
16/04/2007, 10h51
philnext

Tu peux faire ça toi même ou installer la JVCL et utiliser le composant JVlogFile.
Quand tu auras installé la JVCL tu verras un exemple dans JvLogFileDemo.
16/04/2007, 10h55
aityahia

vous pouvez utiliser un Tmemo en invisible et utiliser sa fonction SaveToFile.
16/04/2007, 10h55
iam

très bien je vais voir merci
16/04/2007, 13h46
philnext

Le pb à utiliser un TMemo c'est que la sauvegarde écrit le fichier en entier donc il faut le faire à la fin du programme mais dans ce cas un plantage en plein programme => on pert tout.
De plus plutot qu'utilser un TMemo en invisible autant utiliser directement une tstringList...

Voici la procédure que j'utilise le plus souvent pour mes logs

Code:

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
35
36
37
38
39
 
procedure CreateLogFile(sFilename,sText : String);
var
  FText : TextFile;
  sFile, sDir : String;
begin
  try
    // Met dans sDir Le chemin du logiciel/log/Année/mois
    sDir := ExtractFilePath(Application.ExeName) + 'log\' + FormatDateTime('YYYY',Now) + '\' +
            FormatDateTime('MM',Now) + '\';
    // Créer le répertoire s'il n'existe pas
    if not DirectoryExists(sDir) then
      ForceDirectories(sDir);
    sFile :=sDir + sFileName;
    AssignFile(FText,sFile);
    if FileExists(sFile) then
    // Si le fichier existe on le met en mode édition
      Append(FText)
    else
     // Sinon on créer le fichier 
      ReWrite(FText);
    try
      // ajout de la ligne au fichier
      Writeln(FText,Trim(sText));
    finally
      Closefile(FText);
    end;
  Except on E:Exception do
    begin
      // erreur de lecture/ecriture
      if IOResult = 32 then
        // On relance la création du fichier 
        CreateLogFile(sFileName,sText)
      else
        // sinon affichage de l'erreur
        ShowMessage(E.Message);
    end;
  end;
end;

16/04/2007, 15h22
aityahia

Citation:

Envoyé par philnext

Le pb à utiliser un TMemo c'est que la sauvegarde écrit le fichier en entier donc il faut le faire à la fin du programme mais dans ce cas un plantage en plein programme => on pert tout.
De plus plutot qu'utilser un TMemo en invisible autant utiliser directement une tstringList...

:king: bien vu . sinon on aura le log si tous va bien :lol:
16/04/2007, 18h24
Giovanny Temgoua

Pour info, il y'a une suite de composants Log4Delphi adapté de Log4J (composants pour manipuler des log de Java) adapté au goût des Delphistes :)

Site Web : http://log4delphi.sourceforge.net/

C'est relativement facile à utiliser au cas où cà t'interesserait !