RemoveDir : codes erreur

Version imprimable

30/04/2014, 11h56
ZenZiTone

RemoveDir : codes erreur

Bonjour a tous,

J'effectue un RemoveDir sur un dossier préalablement vidé. Celui-ci me revoit le code erreur 5. Je voudrais donc savoir où trouver les correspondances pour ls codes erreurs...
Précision, le dossier est supprimé lorsque je quitte mon application... :weird:

Merci par avance,

ZenZiTone.
30/04/2014, 13h39
Lung

Que donne la fonction SysErrorMessage avec ce code d'erreur ?
30/04/2014, 13h46
ZenZiTone

Il renvoit un Accès refusé... A vrais dire c'est ce que j'avais lorsque j'essayais de le supprimer via l'explorateur après avoir reçu l'erreur. Cela voudrais dire qu'il me fasse faire FindClose avant la suppression?! Dit comme ça, ça parrait normal remarque :X

Je test ça, merci pour le SysErrorMessage, je conaissais pas ;)

[EDIT] Même lorsque le FindClose est fait préalablement, il y a un accès refusé...:koi:
L'erreur vient du fait que le dossier est en cours de lecture non?
30/04/2014, 14h01
jeromelef2

Citation:

Envoyé par ZenZiTone

Bonjour a tous,

J'effectue un RemoveDir sur un dossier préalablement vidé.

ZenZiTone.

Est-il vidé par toi ou par un autre programme ?
peux tu fournir ton code ?

C'est le programme qui le vide. Les fichiers ne sont pas réelement supprimés, mais déplacés dans un autre dossier.

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
procedure Thread_TraitementSimulation.Execute;
var
    nomRepertoireEnCours:String;
begin
  UpdateInfoTexte('Entrée dans le Thread');
  //SetCurrentDir('C:\');
 
  while wContinuer = true
    do begin
        if(FindFirst(wPath_DirSerieImpression+'\*_OK',faDirectory, searchResultDirSI)=0)
            then begin
                UpdateInfoTexte('Dossier en ''*_OK'' trouvé ');
                Synchronize(UpdateInfoDSI);
                TraitementFichiers;
                UpdateInfoTexte('Fichiers traités');
 
                nomRepertoireEnCours := searchResultDirSI.Name;
                FindClose(searchResultDirSI);
 
                //Suppression du répertoire
                SetCurrentDir(wPath_DirSerieImpression+'\');
                if RemoveDir(nomRepertoireEnCours)
                    then UpdateInfoTexte('Dossier supprimé : '+nomRepertoireEnCours)
                    else ShowMessage('Dossier non supprimé : '+nomRepertoireEnCours+ ' error : '+sysErrorMessage(GetLastError));
 
            end else UpdateInfoTexte('Aucun dossier en attente');
        Sleep(2000);
 
    end;
 
end;

Voilà pour ma prtie Execute du thread. Ensuite, c'est dans traitementFichiers que le 'vidage' se fait:

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
procedure Thread_TraitementSimulation.TraitementFichiers;
var
    wStop : Boolean;
begin
    wStop := false;
    UpdateInfoTexte('Début traitement fichiers');
    while not wStop
        do begin
            if(FindFirst(wPath_DirSerieImpression+'\'+searchResultDirSI.Name+'\*.stca',faAnyFile,searchResult)=0)
                then begin
                    UpdateInfoTexte('Fichier trouvé: '+searchResult.Name);
                    Synchronize(UpdateInfoDA);
                    //Déplacement du fichier dans Autofile
                    if(MoveFile(PChar(wPath_DirSerieImpression+'\'+searchResultDirSI.Name+'\'+searchResult.Name),
                                PChar(wPath_DirAutofile+'\'+searchResult.Name)))
		                then begin
                            UpdateInfoTexte('Fichier déplacé dans autofile. Execution de F4');
                            sleep(3000);
                            SetForegroundWindow(wHandleFenetre);
                            keybd_event(VK_F4,0,0,0);
                            Sleep(1000);
                            UpdateInfoTexte('F4 à été exécuté');
			                while FindFirst(wPath_DirAutofile+'\*.stca',faAnyFile, searchResultDirA)=0
                                do begin
                                    UpdateInfoTexte('Vérification si impression terminée');
                                    Sleep(1000);
                                    Synchronize(UpdateInfoDA);
                                    FindClose(searchResultDirA);
                                end;
                                FindClose(searchResultDirA);
                            UpdateInfoTexte('Impression terminée');
                        end else UpdateInfoTexte('Fichier non trouvé...');
                    FindClose(searchResultDirSI);
                end
                else wStop := true;
        end;
 
end;

30/04/2014, 17h09
Andnotor

Beaucoup de choses étranges :koi:

Dans TraitementFichiers, tu lances un FindClose(searchResultDirSI). searchResultDirSI n'est plus alloué au moment du RemoveDir.
Lorsque tu simules l'appui sur une touche pas keybd_event, tu dois aussi la relâcher (KEYEVENTF_KEYUP).
while FindFirst(wPath_DirAutofile+'\*.stca',faAnyFile, searchResultDirA)=0. Il n'y a pas de suppression dans la boucle (je ne vois pas de "vidage"), tu vas toujours récupérer le même fichier. Pour une énumération correct, FindFirst suivi de FindNext.
FindClose ne fait que libérer la mémoire allouée pour TSearchRec par FindFirst.
05/05/2014, 09h21
ZenZiTone

Citation:

Dans TraitementFichiers, tu lances un FindClose(searchResultDirSI). searchResultDirSI n'est plus alloué au moment du RemoveDir.

J'ai procédé ainsi pour vérifier si searchResultDirSI ne bloquait pas l'accès au dossier au moment ou voulais le supprimer (je passe juste par une variable pour le nom du dossier à supprimer du coup).

Citation:

Lorsque tu simules l'appui sur une touche pas keybd_event, tu dois aussi la relâcher (KEYEVENTF_KEYUP).

Ce qui veux dire que dans le code que je propose, ça simule un appuie continue sur F4?

Citation:

while FindFirst(wPath_DirAutofile+'\*.stca',faAnyFile, searchResultDirA)=0. Il n'y a pas de suppression dans la boucle (je ne vois pas de "vidage"), tu vas toujours récupérer le même fichier.

Ca, c'est normal ! :mrgreen: J'ai oublié de le préciser: une application externe vient faire la suppression..

Pour expliquer le fonctionnement : mon programme a pour but de gérer l'automatisation d'impressions. Les impressions sont réalisées dans un logiciel tiers chargeant des fichiers imprimables dans un répertoire 'Autofile'. De mon coté, pour être sur que les impressions sont réalisées dans le bon ordre, j'y transfert les fichiers un par un. Lorsque le logiciel a traité un fichier dans 'Autofile', il le supprime. D'où l'absence de suppression dans la boucle While..
05/05/2014, 10h38
Andnotor

Citation:

Envoyé par ZenZiTone

Ce qui veux dire que dans le code que je propose, ça simule un appuie continue sur F4?

La touche reste pressée mais il n'y a pas de répétition. Le deuxième keybd_event et suivants sont par contre considérés comme des répétitions puisqu'il n'y a pas eu de relâchement entre temps (WM_KEYDOWN sans WM_KEYUP) ;)

Citation:

Envoyé par ZenZiTone

pour être sur que les impressions sont réalisées dans le bon ordre, j'y transfert les fichiers un par un.

Hasardeux par FindFirst, mais ça dépend comment et rempli/vidé le répertoire.

ps: tu peux surveiller les modifications apportées sur un répertoire par SHChangeNotifyRegister histoire d'éviter ces boucles avec sleep ;)
05/05/2014, 12h02
ThWilliam

Bonjour,

je n'aime pas beaucoup tes appels à FindFirst dans une boucle.
Perso, lorsque j'ai des opérations à faire sur un certain nombre de fichiers, j'utilise un TStringList.

1) un seul appel de FindFirst suivi de FindNext pour stocker tous les fichiers dans un StringList.
2) puis, à partir de la liste, je déplace un par un les fichiers et je lance la commande d'impression.

Je crois que cela rendrait ton code beaucoup plus léger.

Thierry