Discussion :

[louay02]

Bonjour

Je travaille dans un projet qui fait un traitement des données ,ces données sont sur 8 serveurs ,je cherche un moyen comment je sélectionné un ou tout les serveur à la fois pour faire le traitement
ci-dessous :

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
var
  dEncours, dFin : TDatetime;
  Info   : TSearchRec;
  i:integer;
  F:textfile;
begin

  dEncours := datetimepicker1.date;
  dFin := datetimepicker2.date;
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
  
 while dEncours <= dFin do

 begin
   If FindFirst('\\Serveur1\Logdata\trace'+ FormatDateTime('MDD',dEncours),faAnyFile,Info)=0 Then
    dEncours := dEncours + 1;
   Begin
      Repeat

      If Not((Info.Attr And faDirectory)=0)
       Then ListBox2.Items.Add(Info.FindData.cFileName)
      Else ListBox1.Items.Add(Info.FindData.cFileName);

     Until FindNext(Info)<>0;

    End;
   FindClose(Info);
  end;
    application.ProcessMessages;
    for i:=0 to (listbox1.Items.Count-1) do
    begin
     listbox1.Items.Strings[i];
     assignfile(f,'\\serveur1\Logdata\'+listbox1.Items.Strings[i]) ;
     reset(f).

*******

Comment je peux répéter la recherche dans le serveur1 jusqu’a serveur8 en fonction de la sélection d’utilisateur ? est ce que checkbox satisfaire le besoin. ?

merci d'avance.

[ShaiLeTroll]

tu devrais isoler ton code dans une fonction passer le nom du serveur dans un paramètre, ou alors bien crade comme cela

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
const
  MesServers: array[0..7] = ('Serveur1', 'ServeurDeux', 'ServeurN', ..., 'Serveur8');
 
// Tu remplit une TCheckListBox avec MesServers
 
for I := 0 to CheckListBox1.Items.Count - 1  do
begin
  if CheckListBox1.Checked[I] then
  begin
 
 
    If FindFirst('\\'+MesServers[I]+'\Logdata\trace'+ FormatDateTime  ('MDD',dEncours),faAnyFile,Info)=0 Then
     Begin
      dEncours := dEncours + 1; // mal placé, ton code ne devait absoulement pas fonctionner dans le cas d'une absence de fichier
        Repeat
 
        If Not((Info.Attr And faDirectory)=0)
         Then ListBox2.Items.Add(Info.FindData.cFileName)
        Else ListBox1.Items.Add(Info.FindData.cFileName);
 
       Until FindNext(Info)<>0;
 
      End;
     FindClose(Info);     
   end;
end;

[louay02]

Merci mon vieux