Discussion :

[Bourak]

Salut les developpeurs.


J'ai réaliser une application qui lançe une commande sous dos. La durée d'execution est long se qui bloque l'application. J'ai pensée au thread , et j'ai créer une classe du type Thread à l'aide du Faq Delphi ,mais je ne sais pas comment l'integrer à mon application.


Merci d'avance

[ShaiLeTroll]

Tient, regarde ma fonction CallCmd qui ne bloquera l'application sans la figer, tu pourras même récupérer le texte renvoyé par l'application DOS comme en ligne de commande ...

Si tu veux vraiement lancer le programme DOS sans attendre son résultat, et sans bloquer l'application, on peut faire ça en Thread (bon, j'ai tapé le code directement sur le forum, des coquilles peuvent trainer ... )

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
type
  TCmdThread = class(TTread)
  private
    FCmdDirectory: string;
    FCmdName: string;
    FCmdParam: string;
    FAsyncResult: Boolean;
    FExitCode: Int64; 
    FOutputText: string;
    FErrorText: string;
protected
    procedure Execute; override;
  public
    constructor Create(const CmdDirectory, CmdName, CmdParam: string); reintroduce;
 
    property AsyncResult: Boolean read FAsyncResult;
    property ExitCode: Int64 read FExitCode; 
    property OutputText: string read FOutputText;
    property ErrorText: string read FErrorText;
  end;
 
constructor TCmdThread.Create(const CmdDirectory, CmdName, CmdParam: string);  
begin
  inherited Create(True);
 
  FCmdDirectory := CmdDirectory;
  FCmdName := CmdName;
  FCmdParam := CmdParam;
 
  Resume();
end;
 
procedure TCmdThread.Execute; 
var
  tmpExitCode: Int64; 
  tmpOutputText: string;
  tmpErrorText: string;
begin
  FAsyncResult := CallCmd(FCmdDirectory, FCmdName, FCmdParam, tmpExitCode, tmpOutputText, tmpErrorText);
  FExitCode := tmpExitCode; 
  FOutputText := tmpOutputText;   
  FErrorText := tmpErrorText;
  Terminated := True;   
end;

Ailleurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  CmdThread := TCmdThread.Create('C:\', 'exec.bat', '');  	
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  if CmdThread.Terminated then
    ShowMessage(CmdThread.OutputText)
  else
    ShowMessage('C''est pas fini !');	
end;