D4 : un scan du lecteur avec jauge d'avancement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : D4 : un scan du lecteur avec jauge d'avancement

HERIBERT

J'en ai vu passer une... et je l'ai perdue.
La VCL de M. Bardou comporte (ds la version que j'ai en tt cas) une léger bug, laissant passer les répertoires ayant un attribut supplémentaire à celui du bit Directory. Vieux bug bien connu sous DOS, d'ailleurs.

Vs auriez pas une idée ? En plus, c'est un freeware :love:

Merci :hello:

Publicité

[SDF]Poire

Vive Grumly

G une unit pour ça...
(sans la jauge)
j'avais des améliorations à y porter mais je l'ai jamais fait
Si tu la veux je te la donne
sinon pour corriger le bug fodrait que tu nous dise ou trouver le code (l'url direct je suis fégnant)
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

HERIBERT

[SDF]Poire a écrit a écrit :

G une unit pour ça...
(sans la jauge)
j'avais des améliorations à y porter mais je l'ai jamais fait
Si tu la veux je te la donne
sinon pour corriger le bug fodrait que tu nous dise ou trouver le code (l'url direct je suis fégnant)
:hello:

Oh ! Pour corriger le code, c'est facile : il suffit de rajouter une boucle. Ds le FindFirst, il teste seulement faDirectory, autrement dit l'attribut Répertoire. Il vaut mieux chercher '*.*', faAnyfile : on élimine le '.', l'éventuel '..' si l'on n'est pas en racine, et on teste chaque fichier suivant : répertoire, ou non.

Pb : je pourrais corriger le code, mais je ne sais pas compiler une VCL...

[SDF]Poire

Vive Grumly

HERIBERT a écrit a écrit :

Oh ! Pour corriger le code, c'est facile : il suffit de rajouter une boucle. Ds le FindFirst, il teste seulement faDirectory, autrement dit l'attribut Répertoire. Il vaut mieux chercher '*.*', faAnyfile : on élimine le '.', l'éventuel '..' si l'on n'est pas en racine, et on teste chaque fichier suivant : répertoire, ou non.

C exactement ce que je fais
par contre nivo optimisation C pas top....
Je chercherais si ya pas un autre moyen....

HERIBERT a écrit a écrit :

Pb : je pourrais corriger le code, mais je ne sais pas compiler une VCL...

Il suffit de modifier l'unité et de compiler le package(dpk) correspondant
(il fo bien sur avoir les sources....)
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

HERIBERT

[SDF]Poire a écrit a écrit :

C exactement ce que je fais

par contre nivo optimisation C pas top....
Je chercherais si ya pas un autre moyen....

Il suffit de modifier l'unité et de compiler le package(dpk) correspondant
(il fo bien sur avoir les sources....)
:hello:

Moi, même en C, et avec algo à l'appui, je n'ai jamais pu définir un algo net pour le scan du lecteur :??: Je bidouillais. Par contre, avec de simples boucles, Bardou est arrivé à un truc efficace :sol: Sauf qu'il laisse échapper les rep cachés, par exemple.

Merci pour le truc :hello: Je vais m'y attaquer !

[SDF]Poire

Vive Grumly

HERIBERT a écrit a écrit :

Moi, même en C, et avec algo à l'appui, je n'ai jamais pu définir un algo net pour le scan du lecteur :??:

Je bidouillais. Par contre, avec de simples boucles, Bardou est arrivé à un truc efficace :sol:

Sauf qu'il laisse échapper les rep cachés, par exemple.

Merci pour le truc :hello:

Je vais m'y attaquer !

Moi je le fais par récurence je crois.... je vais chercher

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

[SDF]Poire

Vive Grumly

unit GFiles;

interface

uses
Windows, Sysutils, LZExpand, Classes;

type
TFichier = class
Nom: TFileName;
Chemin: String;
Taille: Integer;
Date: Integer;
Attr: Integer;
procedure Assign(Fichier: TFichier);
end;

function FSearch(Fichier : string; Path : string; Rec: Boolean) : TList;

implementation

function FSearch(Fichier : string; Path : string; Rec: Boolean) : TList;
var
F: TSearchRec;
r: Integer;
ReturnS: TList;
MyFichier: TFichier;
begin
ReturnS := TList.Create;
r := FindFirst(Path + '\' + Fichier, $03F, F);
while r = 0 do
begin
if (F.Name <> '.') and (F.Name <> '..') then
begin
MyFichier := TFichier.Create;
with MyFichier do
begin
Chemin := Path + '\';
Nom := F.Name;
Taille := F.Size;
Date := F.Time;
Attr := F.Attr;
end;
ReturnS.Add(MyFichier);
end;
r := FindNext(F);
end;
FindClose(F);

if Rec then
begin
r := FindFirst(Path + '\*.*', $03F, F);
while r = 0 do
begin
if (F.Attr and $10 <> 0) and (F.Name <> '.') and (F.Name <> '..') then
ReturnS.Assign(FSearch(Fichier, Path + '\' + F.Name, True), laOr);
//ReturnS.AddStrings(FSearch(Fichier, Path + '\' + F.Name, True));
r := FindNext(F);
end;
FindClose(F);
end;

Result := ReturnS;
end;

Elle a subit des bidouillages rescent
Fodrait que je me repenche dessus....
:hello:

Message édité par [SDF]Poire le 06-07-2002 à 18:22:02

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

HERIBERT

[SDF]Poire a écrit a écrit :

Code :

unit GFiles;
interface
uses
Windows, Sysutils, LZExpand, Classes;
type
TFichier = class
Nom: TFileName;
Chemin: String;
Taille: Integer;
Date: Integer;
Attr: Integer;
procedure Assign(Fichier: TFichier);
end;
function FSearch(Fichier : string; Path : string; Rec: Boolean) : TList;
implementation
function FSearch(Fichier : string; Path : string; Rec: Boolean) : TList;
var
F: TSearchRec;
r: Integer;
ReturnS: TList;
MyFichier: TFichier;
begin
ReturnS := TList.Create;
r := FindFirst(Path + '\' + Fichier, $03F, F);
while r = 0 do
begin
if (F.Name <> '.') and (F.Name <> '..') then
begin
MyFichier := TFichier.Create;
with MyFichier do
begin
Chemin := Path + '\';
Nom := F.Name;
Taille := F.Size;
Date := F.Time;
Attr := F.Attr;
end;
ReturnS.Add(MyFichier);
end;
r := FindNext(F);
end;
FindClose(F);
if Rec then
begin
r := FindFirst(Path + '\*.*', $03F, F);
while r = 0 do
begin
if (F.Attr and $10 <> 0) and (F.Name <> '.') and (F.Name <> '..') then
ReturnS.Assign(FSearch(Fichier, Path + '\' + F.Name, True), laOr);
//ReturnS.AddStrings(FSearch(Fichier, Path + '\' + F.Name, True));
r := FindNext(F);
end;
FindClose(F);
end;
Result := ReturnS;
end;

Elle a subit des bidouillages rescent
Fodrait que je me repenche dessus....
:hello:

Je vais noter ça

FORUM HardWare.fr

Programmation

D4 : un scan du lecteur avec jauge d'avancement

Sujets relatifs
URGENT : comment connaître la lettre du lecteur CD-ROM ????	lecteur carte à puce
[DOS] forcer la déconexion d'un lecteur reseau	Simulateur de Lecteur CD
[VBS] Déconnecter un lecteur réseau	[VBA] Controles avancés Calendar et Jauge
[Visual C++] Indiquer l'avancement d'une appli	[VB] Lecteur vidéo Real Player
Comment faire pour creer un lecteur mp3 .....??	[Winsock/VB ou autre] Scan d'IP...
Plus de sujets relatifs à : D4 : un scan du lecteur avec jauge d'avancement

Page générée en 0.056 secondes