Discussion :

[bremer]

Bonjour,

Afin de voir l'avancée d'un traitement, j'ai ajouté un tprogressbar.

Mon traitement consiste à lire un fichier texte avec readln et d'en écrir un autre avec writeln.

J'ai ajouté dans ma boucle un processmessage mais je passe de 11 secondes à 99 secondes soit 9 fois plus.

avez-vous une idée.

Laurent

[Cl@udius]

Salut

Un ProcessMessages n'est pas forcément nécessaire avec le ProgressBar.
Comment fais-tu progresser ta barre ? Un petit extrait de code.

@+ Claudius

[bremer]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
ProgressBar_Traitement.Max:=Total_Ligne;
    Label_Info.caption:='Traitement en cours...';
 
    while not Eof(fichier_In) do
    begin
      ReadLn(fichier_In,Ligne);
      WriteLn(fichier_Out,Ligne)
 
      Inc(Position_Ligne);
      ProgressBar_Traitement.Position:=Position_Ligne;
    end;

Il faut savoir que total_ligne= souvent 5 203 546

donc le problème est certainement là

[Cl@udius]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  ProgressBar_Traitement.Max:=Total_Ligne;
  ProgressBar_Traitement.Step := 1;
  Label_Info.caption:='Traitement en cours...';
 
  while not Eof(fichier_In) do
  begin
    ReadLn(fichier_In,Ligne);
    WriteLn(fichier_Out,Ligne)
    ProgressBar_Traitement.StepIt;
  end;

Essaye comme ceci. Cela dit je ne vois pas de ProcessMessages dans ton code !

@+

[bremer]

Je viens de le retirer puisque cela semble ne rien changer.

[bremer]

Sinon ProgressBar_Traitement.StepIt ne change rien.

a mon avis c'est la valeur de 5 millions qui le gêne.

[Cl@udius]

a mon avis c'est la valeur de 5 millions qui le gêne.

Tu peux ne faire progresser ta barre que toutes les 1000 Lignes par exemple pour limiter le ralentissement.

Autre question, tu ne fais pas d'autres traitements entre le ReadLn et le WriteLn ? Parce que là cela ressemble à une copie de fichier.

@+

[bremer]

Je viens de diviser par 1000 l'incrémentation est c'est mieux.

sinon c'est une copie de fichier avec suppression de certaines lignes par critère mais le code est court.

Merci

[Cl@udius]

1000 lignes était un exemple, tu peux encore diminuer la fréquence de progression de ta barre.
Mais de toute façon l'ajout d'une ProgressBar ralentira toujours la vitesse d'exécution de ta boucle.

@+ Claudius.

[edam]

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
 
const LBuf=$1000;
var
   i,lu:integer;
   buf:array[1..LBuf] of byte;
begin
     i:=Total_Ligne;
     ProgressBar_Traitement.Max:=i div lbuf;
 
  ProgressBar_Traitement.min := 0;
  Label_Info.caption:='Traitement en cours...';
if not fillexiste(monfichier1) then
  begin
   showmessage('Fichier n''existe pas');
   exit;
end;
assignfile(f_in,'monfcihier1');
reset(f_in,1); 
  assignfile(f_out,'monfichier2');
rewrite(f_out,1);
  i:=0;
  repeat
    BlockRead(f_In,buf,lbuf,lu);
    BlockWrite(f_out,buf,lu,lu);
    inc(i);
    ProgressBar_Traitement.position:=i;
  until lu<lbuf;

ou passé par l'API de windows copyfile, c'est plus facille

The CopyFile function copies an existing file to a new file.
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);