CloseHandle considéré comme une erreur par Memproof !

Version imprimable

Bonjour,

J'ai créé la fonction suivante pour lister les fichiers d'un répertoire donné :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 void __fastcall ListerFichiers(TStringList *liste, AnsiString NomRep, bool SousRep) { TSearchRec Rec; if (FindFirst(NomRep+"*.*", faAnyFile, Rec) == 0) { do { liste->Add(NomRep+Rec.Name); if ((Rec.Attr && faDirectory >0) && (Rec.Name[1] != '.') && (SousRep == true)) ListerFichiers(liste, NomRep+Rec.Name, true); } while (FindNext(Rec) == 0); FindClose(Rec); } }
Or lorsque je teste mon code avec MemProof, il détecte à chaque fois des erreurs lors de l'utilisation de FindFirst, il indique :

Citation:

FindFirstFile("nom_du_fichier_trouvé") Error $0000010B

C'est étonnant qu'il affiche FindFirstFile, alors que j'utilise FindFirst de la VCL, mais bon, passons... J'ai essayé d'utiliser FindFirst en dehors de cette fonction, et j'ai le même type d'erreur avec MemProof.

J'ai le même type de problème avec CloseHandle (cf mon message un peu + bas)...

D'où peut venir ce souci ? Y'a-t'il une autre fonction que FindFirst pour lister les fichiers ?

En vous remerciant pour vos idées...

21/02/2006, 11h54
totoche76

Hello

A vue de pif, je dirais que 0x10b ça peut correspondre à 'The directory name is invalid.', comme code d'erreur (d'après ERRLOOK, le p'tit outil de Visual Studio).
Memproof t'indique tous les codes d'erreur renvoyés par les fonctions de l'API. Comme FindFirstFile (qui est appelée par FindFirst, cf. SysUtils.pas) doit se lourder sur le nom de fichier, tu récupères ça comme erreur (j'imagine que tu ne passes pas dans ta boucle do...while).

A++
21/02/2006, 13h14
benj63

Merci pour ces précisions :)

Je regarde de ce côté et je vous tiens au courant... Apparemment ce sont des fichiers et non des répertoires, d'où l'erreur...

J'ai corrigé ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 void __fastcall ListerFichiers(TStringList *liste, AnsiString NomRep, bool SousRep) { TSearchRec Rec; if (FindFirst(NomRep+"*.*", faAnyFile, Rec) == 0) { do { liste->Add(NomRep+Rec.Name); if ((Rec.Attr == faDirectory) && (Rec.Name[1] != '.') && (SousRep == true)) ListerFichiers(liste, NomRep+Rec.Name, true); } while (FindNext(Rec) == 0); FindClose(Rec); } }
C'était if ((Rec.Attr && faDirectory >0) qui bugait : il me retournait tous les fichiers comme étant des répertoires ! Alors que if ((Rec.Attr == faDirectory) ne retourne que les répertoires.

Je n'ai donc plus les erreurs retournées par FindFirstFile.

Encore merci !

J'ai également un problème avec MemProof pour le code suivant :

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
// Fonction permettant de connaitre l'id d'un processus
DWORD __fastcall GetProcessId(char *nomProgramme)
{
HANDLE         handle;
DWORD          pId;
PROCESSENTRY32 pe;
bool fin;
fin = false;
pId = 0; 
pe.dwSize = sizeof(PROCESSENTRY32); 
handle = CreateToolhelp32Snapshot(TH32CS_SNAPALL , 0);  //recupere un capture de process 
if ( Process32First(handle, &pe) == true)// recherche premier process de la liste 
{  // on a le premier process de la liste => il faut vérifier si c'est celui-là 
    if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme)) 
    {  // le process correspond à celui qu'on cherche 
        pId = pe.th32ProcessID;   // recupere l'id du process 
    } 
    else 
    { 
        while ((Process32Next(handle, &pe) == true) && (fin == false)) 
        {  //dans le cas contraire du test on continue à chercher le process en question 
            if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme)) 
            { 
                pId = pe.th32ProcessID; 
                fin = true; // On a trouvé, on peut arrêter la recherche
            } 
        }
    }
}
CloseHandle(handle);
return(pId);
}

Sur CloseHandle(handle);, MemProof me renvoie l'erreur suivante : Attempt to free unexisting ressource $00000550, $000005C0, $00000560...

Or handle n'est pas égal à NULL, et la documentation de Windows indique qu'il faut bien fermer le handle après un CreateToolhelp32Snapshot.

Auriez-vous des solutions pour corriger cette erreur ?

bonsoir,
pour ton premier code voici une version utilisant les API win 32

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
 
void __fastcall TSearchThread::Win32Search(AnsiString Name)
{
 WIN32_FIND_DATA wrec;
 HANDLE FileHandle;
 wrec.dwFileAttributes=0x3f;
 AnsiString tmp=Name+"*.*";
 FileHandle=FindFirstFile(tmp.c_str(),&wrec);
 if (FileHandle!=INVALID_HANDLE_VALUE)
   {
    do
    {
     tmp=wrec.cFileName;
     if((tmp !=".")&&(tmp!=".."))
        mContent->Add(Name+tmp);
     if ((wrec.dwFileAttributes && FILE_ATTRIBUTE_DIRECTORY >0) && ((tmp !=".")&&(tmp!="..")))
     Win32Search(Name+tmp+"\\");
    }
    while(FindNextFile(FileHandle,&wrec) != 0);
    FindClose(FileHandle);    //TODO: Add your source code here
   }
 
}
 
// mContent est une String List
// lors du premier appel de la fonction on vérifie la présence de "//" a la fin du chemin

concernant ton code pour la recher du PID j'ai apporté une modification mineure a ton code , je n'ai par contre pas constaté les erreurs que tu a anoncés

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
 
 
 
{
HANDLE         handle;
DWORD          pId;
PROCESSENTRY32 pe;
pId = 0;
pe.dwSize = sizeof(PROCESSENTRY32);
handle = CreateToolhelp32Snapshot(TH32CS_SNAPALL , 0);  //recupere un capture de process
 
if ( Process32First(handle, &pe) == true)// recherche premier process de la liste
{  // on a le premier process de la liste => il faut vérifier si c'est celui-là
    if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme))
    {  // le process correspond à celui qu'on cherche
        pId = pe.th32ProcessID;   // recupere l'id du process
    }
    else
    {
        while ((Process32Next(handle, &pe) == true) && (pId == 0))
        {  //dans le cas contraire du test on continue à chercher le process en question
            if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme))
                pId = pe.th32ProcessID;
        }
    }
}
CloseHandle(handle);
return(pId);
}

cordialement

21/02/2006, 23h24
totoche76

Pareil que DjmSoftware, j'ai essayé ton code et pas d'erreur ..!?!

Juste une remarque, histoire d'être sûr: quand tu fais CreateToolhelp32Snapshot, teste la valeur de retour avant de continuer. Si ca vaut INVALID_HANDLE_VALUE, ne va pas plus loin (pas de CloseHandle) (cf. l'exemple de code dans MSDN)

A++

Merci à vous deux, j'ai effectué les modifications que vous m'avez indiquées pour ma fonction GetProcessId :

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
DWORD __fastcall GetProcessId(char *nomProgramme)
{
   HANDLE         handle;
   DWORD          pId;
   PROCESSENTRY32 pe;
 
   pId = 0;
   pe.dwSize = sizeof(PROCESSENTRY32); 
   handle = CreateToolhelp32Snapshot(TH32CS_SNAPALL , 0);  //recupere un capture de process
   if(handle!=INVALID_HANDLE_VALUE)
   {
      if ( Process32First(handle, &pe) )// recherche premier process de la liste
      {  // on a le premier process de la liste => il faut vérifier si c'est celui-là
         if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme))
         {  // le process correspond à celui qu'on cherche
            pId = pe.th32ProcessID;   // recupere l'id du process
         }
         else
         {
            while ((Process32Next(handle, &pe)) && (pId == 0))
            {  //dans le cas contraire du test on continue à chercher le process en question
               if (UpperCase(ExtractFileName(pe.szExeFile)) == UpperCase(nomProgramme))
                  pId = pe.th32ProcessID;
            }
         }
      }
      CloseHandle(handle);
   }
 
   return(pId);
}

mais j'ai toujours des soucis avec MemProof. Je pense que c'est parce que les processus à chercher n'existent pas... et il doit y avoir un CloseHandle de trop (ou mal placé) du coup...

J'ai essayé de changer la place du CloseHandle (en le mettant dans la boucle du if ( Process32First(handle, &pe) ) ), mais MemProof m'indique toujours Attempt to free unexisting ressource . Je ne vois pas trop ce qui cloche :?