Discussion :

[istam3]

Bonjour, voilà j'ai un soucis avec Windows 7 pour la gestion d'un répertoire temporaire.
Ce répertoire sert à extraire des images d'une vidéo; comme il peut-être long à nettoyer, c'est plus rapide de le supprimer (avec DelDir de la FAQ) puis de le recréer, ça marche très bien sous XP mais pas sous windows 7, qui lors de la recréation bloque le dossier, je ne peux rien faire dessus tant que mon programme est actif, si je l'arrête et le relance, j'ai de nouveau accès au dossier; donc pas moyen avec mon prog sous Win 7 de faire plus d'une vidéo à la fois.

Code :

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

1
2
3
4
5
 
  FolderTemp:= ExtractFilePath(Application.ExeName) + 'TempVideo';
  if DirectoryExists(FolderTemp) then
    DelDir(FolderTemp);
  ForceDirectories(FolderTemp);

Quelqu'un a-t-il déjà été confronté à ce phénomène ? Des idées pour le corriger ?

[istam3]

Bon, j'ai trouvé une solution intermédiaire en modifiant le DelDir pour en faire un "CleanDir". Mais tout de même si quelqu'un avait une explication quant à la réaction de Windows 7, je serai curieux de savoir.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function CleanDir(Dir: String): Boolean;
var
  fos: TSHFileOpStruct;
begin
  Dir:= IncludeTrailingPathDelimiter(Dir) + '*.*';

  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_FILESONLY;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;

[ShaiLeTroll]

Si tu joue avec SetCurrentDir ?
Le RAD a le même défaut, il semble "locker" le dossier du projet ou dernier fichier ouvert

Sinon, as-tu tenté plutôt que supprimer le dossier, de faire un SHFileOperation sur *.*

Idem, dans un projet de video, j'extrais des images dans le dossier temporaire de l'utilisateur en cours

J'avais ce code en Delphi, je ne l'ai plus, voici la variante C++Builder XE2

Code c++ :

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
 
 
  if ( ! TempPath.IsEmpty())
  {
    TFileName TempMask = TempPath + "*.*";
 
    int Len = TempMask.Length();
    int Size = Len + 1; // +1 pour le caractère zéro terminal de chaine
 
    wchar_t* pFormArray = new wchar_t[Size + 1]; // +1 pour le caractère zéro terminal de tableau de chaine
    try
    {
      StrCopy(pFormArray, TempMask.c_str());
      pFormArray[Size] = 0; // Indique la fin du tableau de chaine
 
      SHFILEOPSTRUCTW DeleteCriteria;
      ZeroMemory(&DeleteCriteria, sizeof(DeleteCriteria));
      DeleteCriteria.wFunc = FO_DELETE;
      DeleteCriteria.pFrom = pFormArray;
      DeleteCriteria.fFlags = FOF_FILESONLY | FOF_SILENT | FOF_NOCONFIRMATION | FOF_NOERRORUI;
 
      SHFileOperationW(&DeleteCriteria);
    }
    __finally
    {
      delete [] pFormArray;
    }
  }

EDIT : Grillé par istam3

[istam3]

Merci pour ton intérêt au sujet, et de ta réponse que j'ai effectivement envisagé de suite après le premier post.

Sais-tu si c'est le code compilé qui bloque le dossier (ce n'est pas l'EDI, j'ai testé mon exe à part) ou Windows 7 ? Surment un question de droit sur le dossier, il est bloqué tant que l'exe n'est pas terminé.

[ShaiLeTroll]

je n'avais pas vu que c'était toi qui te répondait à toi même

Je n'ai encore jamais bossé sous Seven, donc je ne peux pas me prononcer
Peut-être l'UAC ou effectivement les droits même si au moment où tu crées le dossier, l'utilisateur en cours devient son owner donc il doit avoir le droit de l'ajouter

J'ai un collègue a qui j'ai conseillé ForceDirectories hier, il a un Vista, juste après Force, il faisait un CopyFile directement après sans soucis

Ton ForceDirectories fonctionne bien ?
C'est la création de fichier à l'intérieur qui pose problème ?
Est-ce lié à la suppression-recréation ?

J'ai eu des soucis un peu du même, une DLL tiers créait des fichiers mais lors d'une erreur, ils ont mal géré la libération du fichier, du coup, il faut arrêter l'appli pour nettoyer
Dans l'absolu, c'est dans TEMP, ça sera nettoyé par le Clean de l'instance suivante
Pour éviter des problèmes, je nomme mes fichiers avec un TimeStamp et FMonitorID est lui carrément unique (ID fourni par la DLL, une sorte de Handle)

Code :

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

1
2
3
 
        DHString TempFileName = ShaiFormatString("%sSNP_%08x_%s.BMP",
          (TempPath, FMonitorID, FormatDateTime("YYYYMMDD_HHNNSSZZZ", Now())));

fais pareil pour ton dossier temp un nom qui réduit les collisions, et tu nettoies tout à la fermeture du programme
..\TEMP\MonEXE\Video\Application->Handle\YYYYMMDD_HHNNSSHandle étant unique, tu nettoie le dossier de l'instance en cours

[istam3]

Le ForceDirectories ne fonctionne que si le dossier n'a pas été supprimé dans la même instance du programme.

Le problème vient uniquement du fait de faire DelDir(dir) puis ForceDirectories(dir), là le dossier est encore visible dans l'explorer mais inaccessible (je pense que le ForceDirectories échoue, je n'ai pas testé le retour) et il est réellement supprimé à la fermeture du prog.

Merci pour ta méthode, mais en soi je ne cherche pas plus loin, mon CleanDir fonctionne très bien, j'avais juste peur d'avoir à repartir dans du vieux code de suppression (avant d'utiliser DelDir et de connaître TSHFileOpStruct) je faisais une boucle avec un FindFirst(dir+'*', faanyfile, sr) et DeleteFile(sr.name) ce qui était vraiment beaucoup plus long.....