Discussion :

[hlmhv]

Bonjour à tou(te)s! :-)

Je me trompe, je suis trop vieux, ou XE3 est finalement une vraie daube?
J'ai l'impression que jusqu'à Delphi 7 - que je ne puis plus réinstaller depuis W7, merci Microsoft! - plus rien ne va vraiment sans soucis.

Un exemple et une demande d'aide en même temps: je désire simplement implémenter une méthode de recherche de fichier, et j'utilise pour ce faire le code récursif suivant:

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
39
40
41
42
43
44
45
46
47
procedure TForm19.SearchTree(DName, Fname: String);
var
  SearchRec: TSearchRec;
  DosError: integer;
  dir: string;
begin
  DLB.Directory:=DName;
  if dName[length(dName)] <> '\' then
    DName := DName + '\';
  ChDir(DName);
  GetDir(0, Dir);
  EdDirectorySeeked.Text:=Dir;
  Refresh;
  Memo.Lines.add('*** '+DName+'//'+FName);  (* ligne temporaire à retirer! *)
  DosError := FindFirst(FName, 0, SearchRec);
  while DosError = 0 do begin
    try
      If (SearchRec.Attr and faHidden)=0 Then Begin
        Memo.Lines.add(dir +'\'+ SearchRec.name);
        Inc(Count);
      End;
    except
      on EOutOfResources do begin
        ShowMessage('Ressources épuisées!');
        abort;
       end;
    end;
    DosError := FindNext(SearchRec);
  end;
  {Now that we have all the files we need, lets go to a subdirectory.}
  DosError := FindFirst('*.*', faDirectory, SearchRec);
  while DosError = 0 do begin
    {If there is one, go there and search.}
    if ((SearchRec.attr and faDirectory = faDirectory) and
      (SearchRec.name <> '.') and (SearchRec.name <> '..')) then begin
     if dName[length(dName)] <> '\' then
       DName := DName + '\';
     ChDir(DName+SearchRec.name);
     GetDir(0, DName);  //:=SearchRec.name;
     SearchTree(DName, Fname); {Time for the recursion!}
     ChDir('..'); {Down one level.}
    end;
    DosError := FindNext(SearchRec); {Look for another subdirectory}
  end;
  Label1.Caption:=IntToStr(Count)+' fichiers.';
  EdDirectorySeeked.Text:='';
end; {SearchTree}

Cela marche.. parfois. Sinon en déboguant je reçois des messages abscons genre "Introduisez le chemin de VCL.CONTROLS" alors que ce module est déclaré en en-tête, sans que le compilateur y trouve à réchigner..
Si, bon prince, je lui donne le répertoire de VCL.CONTROLS, le débogueur ouvre ce fichier.. mais je perds le curseur, donc je ne peux pas voir où l'on en est et encore moins corriger!
Enfin si je me passe du débogueur et me sers du code compilé, alors il cale au deuxième sous-répertoire scanné et me dit "impossible de trouver le fichier spécifié".
Ouais. Sauf que si je relance la procédure cela ne me donne plus ce message..

Quelqu'un a une idée différente de passer sur Windev?

[SergioMaster]

Bonjour,

Je me trompe, je suis trop vieux, ou XE3 est finalement une vraie daube?

il a ses bogues, comme chaque versions, mais aussi ses avancées

J'ai l'impression que jusqu'à Delphi 7 -

Par rapport à D7 et ce depuis D2009 Delphi est passé à l'unicode ce qui a bouleversé quelques trucs comme les pointeurs, les strings etc...
par exemple : un PChar en D7 était un PAnsiChar après l'Unicode c'est devenu un PWideChar
une string D7 est une AnsiString après Unicode une WideString
etc...
il y a donc des vieux codes qu'il faut adapter (j'en fait encore l'expérience depuis 3 jours avec une DLL 32 bits en D3 que veux veux passer en 64 bits, et ce n'est pas du gateau )

je n'ai pas lu la suite du code par manque de temps, désolé, mais cela donne déjà quelques pistes
un pavé à digérer https://www.embarcadero.com/images/d...-migration.pdf
et je n'ai pas non plus vu de clôture de la recherche findclose(SearchRec);, dans le cadre d'un récursivité ce n'est pas très bon

que je ne puis plus réinstaller depuis W7, merci Microsoft! - plus rien ne va vraiment sans soucis.

c'est pas parce que MS dit que D7 est un programme obsolète que l'on ne peut pas l'installer sur W7 et + (je l'utilise sur W10) il suffit de quelques astuces (à rechercher dans le forum) par exemple http://www.developpez.net/forums/d15...-windows-10-a/

[hlmhv]

Merci pour Ces infos!
Pour Findclose, sorry, oubli de ma part (suis pas fier..).
Ceci dit, je viens de corriger le tir en ajoutant les deux FindClose nécessaire: que dalle..
Enfin, merci en tout cas pour le lien concernant l'installation de D7 sur W7 et +, j'en avais trouvé un autre qui fonctionnait.. presque, mais je vais voir celui-là!

[Andnotor]

Ce code n'aurait pas fonctionné sous D7 non plus, cette procédure est incorrecte.

Dans ta recherche de répertoire, tu changes le répertoire de travail par ChDir et réassignes DName par GetDir. Après SearchTree, tu remontes d'un dossier par ChDir('..') sans pour autant réaffecter DName qui continue de pointer sur le sous-répertoire. La boucle suivante ne peut qu'être dans les choux

Mais tu n'as pas besoin de changer le répertoire de travail, ajoute simplement le chemin au masque de recherche :

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
procedure TForm19.SearchTree(DName, FName: String);
var
  SearchRec: TSearchRec;
 
begin
  DName := IncludeTrailingPathDelimiter(DName);
 
  if FindFirst(DName +FName, 0, SearchRec) = 0 then
  try
    repeat
      Memo.Lines.add(DName +SearchRec.name);
      Inc(Count);
    until FindNext(SearchRec) <> 0;
  finally
    FindClose(SearchRec);
  end;
 
  if FindFirst(DName +'*', faDirectory, SearchRec) = 0 then
  try
    repeat
      if ((SearchRec.attr and faDirectory = faDirectory) and (SearchRec.name <> '.') and (SearchRec.name <> '..')) then
       SearchTree(DName +SearchRec.name, FName);
    until FindNext(SearchRec) <> 0;
  finally
    FindClose(SearchRec);
  end;
end;

[hlmhv]

Ben voila, c'est plus simple quand on explique!
Et quand, comme je viens de le faire, on recode le tout avec Lazarus, aussi..
Merci bien tous les deux: 1) j'ai la routine que je voulais et 2) j'ai appris quelque chose.
De l'art de simplifier les choses, bravo!