Discussion :

[cchasse98]

Bonjour,

Mon application est développer en Delphi 4, je fais un shell execute qui doit me retourner un integer. L' application appeler est InfoNomen en Delphi 2006.

L'application appeler fonctionne très bien, le problème est soit au niveau des paramètres que je passe...

Merci

Voici comment j'appelle mon shell

Code :

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

1
2
3
4
const REPERTOIRE = 'C:\Develop\ServiceNomen\ServNomen.exe';
sParametre := FerNR + ' ' + IDXfo;
 
iFerNR := shellexecute(0, PChar('OPEN'), PChar(REPERTOIRE), PChar(sParametre), PChar(''), SW_HIDE );

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
program ServNomen;
 
{$APPTYPE CONSOLE}
 
uses
  Forms,
  SysUtils,
  InfoNomen in 'InfoNomen.pas',
  bomwoservice in 'bomwoservice.pas',
  querywoservice in 'querywoservice.pas',
  StrUtils;
 
var
  nResult : integer;
  sValeur : String;
 
 
begin
 
    Application.Initialize;
 
    sValeur := LeftStr(ParamStr(0), 5);
    if (sValeur = 'FerNR') then
      nResult := _ElementNR()
 
    else if (sValeur = 'FerMX') then
      nResult := _ElementMAX();
 
  // Valeur de retour
  ExitCode := nResult;
 
 
end.

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
unit InfoNomen;
 
interface
 
uses
     querywoservice, bomwoservice, StrUtils, SysUtils;
 
const
    STATUS_FALSE : integer = 1;
    STATUS_ERROR_UNKNOWNFUNCTION : integer = 2;
    STATUS_ERROR_INVALIDARGUMENT : integer = 3;
    STATUS_ERROR_UNKNOWN : integer = 4;
 
    function ElementNR(dXfo : String): Integer;
    function ElementMAX(dXfo : String): Integer;
 
    function _ElementNR(): Integer;
    function _ElementMAX() : Integer;
 
 
implementation
 
function _ElementNR(): Integer;
var
    sIdXfo : String;
    nResult : Integer;
begin
 
    sIdXfo := ParamStr(2);
    nResult := ElementNR(sIdXfo);
end;
 
function _ElementMAX(): Integer;
var
    sIdXfo : String;
    nResult : Integer;
begin
 
    sIdXfo := ParamStr(2);
    nResult := ElementMAX(sIdXfo);
end;
 
 
function ElementMAX(dXfo : String): Integer;
var
    Service1 : iquerywoservice;
    Service2 : ibomwoservice;
    V_P_FER_MAX : String;
    V_P_FER : ArrayOfBomWoDto;
    Num: WoDto;
 
begin
    Service1 := querywoservice.GetIQueryWoService(TRUE);
    Num := Service1.GetWoCore('DG', StrToInt(Copy(dXfo, 1, (Pos('-', dXfo)-1))));
    Service2 := bomwoservice.GetIbomwoservice(TRUE);
    V_P_FER := Service2.GetListByVariableWoNo('DG', Num.WoNo, 'V_P_FER');
 
    if (Length(V_P_FER)=2)then begin
      if (Pos('N/R',V_P_FER[0].Component)>0)then begin
          V_P_FER_MAX := RightStr(V_P_FER[1].Component, 4);
      end else
      if  (Pos('N/R',V_P_FER[1].Component)>0)then begin
          V_P_FER_MAX := RightStr(V_P_FER[0].Component, 4);
      end;
    end;
    result := StrToInt(V_P_FER_MAX);
 
end;
 
function ElementNR(dXfo : String): Integer;
var
    V_P_FER_NR : String;
    V_P_FER : ArrayOfBomWoDto;
    Service1 : iquerywoservice;
    Service2 : ibomwoservice;
    Num: WoDto;
 
begin
    Service1 := querywoservice.GetIQueryWoService(TRUE);
    Num := Service1.GetWoCore('DG', StrToInt(Copy(dXfo, 1, (Pos('-', dXfo)-1))));
    Service2 := bomwoservice.GetIbomwoservice(TRUE);
    V_P_FER := Service2.GetListByVariableWoNo('DG', Num.WoNo, 'V_P_FER');
 
    if (Length(V_P_FER)=2)then begin
      if (Pos('N/R',V_P_FER[0].Component)>0)then begin
          V_P_FER_NR := RightStr(V_P_FER[0].Component, 4);
      end else
      if  (Pos('N/R',V_P_FER[1].Component)>0)then begin
          V_P_FER_NR := RightStr(V_P_FER[1].Component, 4);
      end;
    end;
    result := StrToInt(V_P_FER_NR);
end;
 
end.

[paulfr]

Bonjour

Personnellement j'utilise ExecuteFile, au lieu de ShellExecute, fonction se trouvant dans Delphi\...\Doc\FmxUtils.pas, qui ne pose aucun problème.
Faites aussi une recherche dans les discussions de Developpez.

[Charly910]

Bonjour,
je n'ai pas Delphi4, mais je suppose que tu as déjà essayé de remplacer Pchar('') [ ou Pchar(' ')] par nil ?

A+
Charly

[Andnotor]

ShellExecute renvoie un pseudo-handle indiquant une erreur à la création du processus si inférieur ou égale à 32 et non le code de sortie de l'application. Ce qui serait de toute façon impossible puisque ShellExecute n'est pas synchrone et retourne immédiatement

Il faut passer par ShellExecuteEx en spécifiant SEE_MASK_NOCLOSEPROCESS pour que le handle de la nouvelle instance reste valide après l'exécution de la fonction. De là, il faut attendre que le processus se termine par WaitForSingleObject sur ce handle. Ensuite seulement, tu peux appeler GetExitCodeProcess pour tester le code de sortie.

Ne pas oublier de lancer un CloseHandle sur hProcess...

[cchasse98]

Bonjour,

Mon problème était dans la façon d'appeler mon service qui me retourne une valeur.

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
function TFormXfoHisto.InfoNomen(sParametre : String) : Integer;
var
   SEInfo: TShellExecuteInfo;
   ExitCode: DWORD;
   ExecuteFile, ParamString, StartInString: String;
 
   const REPERTOIRE = 'C:\Develop\ServiceNomen\ServNomen.exe';
begin
     ExecuteFile := REPERTOIRE;
     FillChar(SEInfo, SizeOf(SEInfo), 0);
     SEInfo.cbSize := SizeOf(TShellExecuteInfo);
     with SEInfo do
     begin
          fMask := SEE_MASK_NOCLOSEPROCESS;
          Wnd := Application.Handle;
          lpFile := PChar(ExecuteFile);
          lpParameters := PChar(sParametre);
          nShow := SW_HIDE;
     end;
 
     if ShellExecuteEx(@SEInfo) then begin
        repeat
              GetExitCodeProcess(SEInfo.hProcess, ExitCode);
        until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
     end;
     Result := ExitCode;
end;

[cchasse98]

Merci de votre aide

[Andnotor]

Un Sleep dans cette boucle ne serait pas du luxe