Discussion :

[dietrying]

Bonjour,

j'ai un petit souci sur un sujet qui me semble traditionnel pour vous.

Pour mon petit serveur DATASNAP et lors de la création de la forme principale j'execute un scrute Dossier + sous dossiers avec un fichier comme filtre. J'utilise la boite scrutefichiers trouvé dans phidels.com

je souhaite alors récupérer la liste de dossiers trouvé dans une TList que je dois passer comme paramètre pour une autre procédure de création de thread pour chaque dossier trouvé afin d'intégrer les fichiers trouvés dans une base de donnée.

Pourriez vous me donner la meilleure solution à suivre ?

[ShaiLeTroll]

Quelle est le problème, ce composant est parfaitement documenté : LE COMPOSANT ScruteDossier

Il te suffit de mettre un gestionnaire d'Evènement dans OnDossier et\ou OnFichier, tu es libre de créer et remplir ce que tu veux !

Tu peux très bien remplir le DataSet via Append\Post ou un SQL INSERT directement dans le OnDossier\OnFichier

Si tu veux "optimiser" les traitements pour que l'écriture en DB se fasse parallèlement à la recherche, effectivement, avec une TThreadList, tu peux arriver à ce résultat, attention, il faut passer un pointeur, ne surtout pas utiliser directement l'adresse de variable Nom

Ton thread devrait être de cette forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type 
  TMemoriseNomDansDB = class(TThread)
  private
    FList: TThreadList;
  public
    constructor Create();
    destructor Destroy(); override;
 
    procedure Execute(); override;
    procedure Add(const Nom: string);
  end;

ton gestionnaire

Code :

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

1
2
3
4
procedure TDateModule1.ScruteDossierDossier(Sender: TObject; Nom: string);
begin
  FMemoriseNomDansDB.Add(Nom);
end;

Avant tu as évidemment fait ceci

Code :

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

1
2
3
4
5
6
procedure TDateModule1.LanceScrute();
begin
  FreeAndNil(FMemoriseNomDansDB);   
  FMemoriseNomDansDB := TMemoriseNomDansDB.Create();
  ScruteDossier1.Execute();
end;

FMemoriseNomDansDB est membre privé de TDateModule1
Il faudrait le libérer !

Après, la fonction Add pourrait ajouter à la ThreadList, soit un PChar alloué manuellement, soit un PString, soit un PMemoriseNomItem

Code :

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

1
2
3
4
5
type
  PMemoriseNomItem = ^TMemoriseNomItem;
  TMemoriseNomItem = record
    Nom: string;
  end;

Je te laisse cherche un petit peu le code de TMemoriseNomDansDB.Create, Destroy, Execute et Add

[dietrying]

oui oui shale ,

N'oublie pas que je suis encore débutant quoi

Mais on dirait que tu possède des pouvoirs magiques.

Cordialement,
dietrying

[ShaiLeTroll]

Oh, mais je n'oublie pas que tu es étudiant, justement, l'idéal est de te mettre sur la piste, que tu cherches par toi même, ça te sera plus profitable à long terme que si je t'avais dès le début fourni ceci

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
constructor TMemoriseNomDansDB.Create();
begin
  inherited Create(false); // Ne Démarre qu'après AfterConstruction !
 
  FList := TThreadList.Create();
 
  FQuery := TQuery.Create();
  FQuery.Database := ...;
  FQuery.SQL.Text := 'INSERT INTO matable (champ) VALUES(:nom)';
  FQuery.Prepare();
end;
 
destructor TMemoriseNomDansDB.Destroy();
begin
  FreeAndNil(FQuery);
  FreeAndNil(FList);
 
  inherited Destroy();
end;
 
procedure TMemoriseNomDansDB.Execute();
var
  Lst: TList;
  P: PMemoriseNomItem;
begin
  while not Terminated do
  begin
    Sleep(1);
    P := nil;
    Lst := FList.Lock();
    try
      if Lst.Count > 0 then
      begin
        P := PMemoriseNomItem(Lst.Items[0]);
        Lst.Delete(0);
      end;
    finally
      FList.Unlock();
    end;
 
    if Assigned(P) then
    begin
      InsertIntoDB(P.Nom); // faire cette fonction avec string comme paramètre
      Dispose(P);
    end;
  end;
end;
 
procedure TMemoriseNomDansDB.Add(const Nom: string);
var
  P: PMemoriseNomItem;
begin 
  New(P);
  P.Nom := Nom; // P.Nom ou P^.Nom, le déférencement de structure est implicite
  FList.Add(P);
end;
 
procedure TMemoriseNomDansDB.InsertIntoDB(const Nom: string);
begin  
  FQuery.ParamByName('nom').Astring := Nom;
  FQuery.ExecSQL();
end;

Mais on dirait que tu possède des pouvoirs magiques.

Cela me rappelle cette remarque de MelkInarian et ma réponse !