Discussion :

[NicCo]

Bonjour,
J'utilise JvCreateProcess pour lancer un programme DOS et récupérer la sortie de la fenêtre DOS pour la traiter. Cependant j'ai remarqué que la sortie DOS n'est pas 100% identique, il y a des lignes qui sont doublées mais pas sur la totalité de la ligne, par exemple :

Ligne 1 : Ceci est la ligne 1
Ligne 2 : Ceci est la ligne 2
Ligne 3 : C
Ligne 3 : Ceci est la ligne 3
etc...

Est-ce que quelqu'un connaît une astuce pour éviter d'avoir ce genre de désagrément ?

Merci !

[NicCo]

C'est bon j'ai résolu le problème, il faut simplement utiliser la propriété StartsOnNewLine comme dans cet exemple :

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 TForm1.JvCreateProcess1Read(Sender: TObject; const S: string;
 
  const StartsOnNewLine: Boolean);
begin
 
  // C is the Form Feed char.
 
  if S = #$C then
 
    // Clear screen
 
    ListBox1.Clear;
 
  else
 
  if StartsOnNewLine then
 
    // Add new line
 
    ListBox1.Items.Add(S);
 
  else
 
    // Change last line
 
    ListBox1.Items[ListBox1.Count - 1] := S
end;