Discussion :

[ZenZiTone]

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...

Merci par avance,

ZenZiTone.

[Lung]

Que donne la fonction SysErrorMessage avec ce code d'erreur ?

[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é...
L'erreur vient du fait que le dossier est en cours de lecture non?

[jeromelef2]

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 ?

[ZenZiTone]

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 :

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
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 :

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
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;

[Andnotor]

Beaucoup de choses étranges

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.

[ZenZiTone]

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).

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?

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 ! 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..

[Andnotor]

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)

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