Discussion :

[patrice@]

Bonjour à tous,

Aujourd'hui je m'essaye à récupérer le message et le code de retour d'une fonction envoyée sur le terminal (cmd.exe)
J'ai essayé un nombre important de solutions à partir de la commande CreateProcess sans parvenir à un résultat cohérent
par 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
 
    if CreateProcess(nil, PChar('cmd.exe /c ' + CommandLine),
      nil, nil, True, CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
    begin
      // ------ essai 1 ---- lire aOutput, devrait renvoyer le code d'erreur
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, aOutPut);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
 
      // ------ essai 2 ---- lire OutputStr devrait renvoyer le message
      ZeroMemory(@Buffer, SizeOf(Buffer));
      CloseHandle(StdOutPipeWrite);
 
      while ReadFile(StdOutPipeRead, Buffer, SizeOf(Buffer) - 1, BytesRead, nil) and (BytesRead > 0) do
      begin
        Buffer[BytesRead] := #0;
        OutputStr := OutputStr + string(Buffer);
      end;
 
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
 
      Result := Trim(OutputStr);
    end;

Et à chaque fois, le message renvoyé dit que "n'est pas reconnu ..."

J'essaye la commande : java -version
Dans le terminal, pas de soucis quand j'envoie la commande "cmd.exe /c java -version" mais avec le code, ça ne fonctionne pas.

Vous pouvez m'aider ?

[XeGregory]

Et à chaque fois, le message renvoyé dit que "n'est pas reconnu ..."

Bonjour patrice
Vérifie si la variable est présente dans les variables de l'environnement Windows.


https://commentouvrir.com/tech/comme...us-windows-10/

cmd.exe /c java -version

[patrice@]

Bonjour XeGregory, oui, j'ai bien mis dans le path les accès ...

Il n'y a que dans le code Delphi que ça ne fonctionne pas, en direct via le terminal tout est ok



Je pense que c'est l'utilisation de CreateProcess qui pose problème ou alors le renvoie et le traitement de l'info, mais je ne vois pas où

[XeGregory]

Bonjour XeGregory, oui, j'ai bien mis dans le path les accès ...
Il n'y a que dans le code Delphi que ça ne fonctionne pas, en direct via le terminal tout est ok

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
63
64
65
procedure ExecuteCommand(const CommandLine: String; out OutputMsg: String; out ExitCode: DWORD);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  SecurityAttr: TSecurityAttributes;
  hRead, hWrite: THandle;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: DWORD;
  Cmd: string;
begin
  OutputMsg := '';
  SecurityAttr.nLength := SizeOf(TSecurityAttributes);
  SecurityAttr.bInheritHandle := True;
  SecurityAttr.lpSecurityDescriptor := nil;
 
  if not CreatePipe(hRead, hWrite, @SecurityAttr, 0) then
    raise Exception.Create('Impossible de créer le pipe.');
 
  try
    ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
    StartupInfo.cb := SizeOf(StartupInfo);
    StartupInfo.hStdOutput := hWrite;
    StartupInfo.hStdError  := hWrite;
    StartupInfo.dwFlags    := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow:= SW_HIDE;
 
    Cmd := 'cmd.exe /c ' + CommandLine;
    if not CreateProcess(nil, PChar(Cmd), nil, nil, True,
      CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
      raise Exception.Create('Erreur lors de la création du processus.');
 
    try
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
 
      if not GetExitCodeProcess(ProcessInfo.hProcess, ExitCode) then
        raise Exception.Create('Impossible de récupérer le code de retour.');
 
      CloseHandle(hWrite);
      hWrite := 0;
 
      repeat
        if ReadFile(hRead, Buffer, SizeOf(Buffer) - 1, BytesRead, nil) then
        begin
          Buffer[BytesRead] := #0;
          OutputMsg := OutputMsg + string(Buffer);
        end;
      until BytesRead < (SizeOf(Buffer) - 1);
    finally
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
  finally
    if hRead <> 0 then CloseHandle(hRead);
    if hWrite <> 0 then CloseHandle(hWrite);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: String;
  Code: DWORD;
begin
  ExecuteCommand('java -version', Msg, Code);
  ShowMessage('Message : ' + Msg + sLineBreak + 'Code de retour : ' + IntToStr(Code));
end;

[patrice@]

Merci pour le code XeGregory,
Punaise, j'y comprends rien! Qu'est qui cloche ?

Je viens d'essayer avec un simple "dir" et là ça fonctionne parfaitement bien. Donc il y a une déclaration quelque part qui ne passe pas mais où ?

[XeGregory]

Merci pour le code XeGregory,
Punaise, j'y comprends rien! Qu'est qui cloche ?

À mon avis, le souci provient de la variable d'environnement CreateProcess qui ne parvient pas à récupérer la variable d'environnement.

Essaie pour voir si tu parviens à récupérer la variable

Code :

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

ShowMessage(GetEnvironmentVariable('Java'));