Discussion :

[Pierre95]

Bonjour,

Je vais peut-être vous paraître fort ignorant, mais j'ai un soucis avec un fichier .bat que je voudrais lancer à partir d'une application Delphi XE2.

En voici le contenu qui sert à convertir 3 messages d'un fichier Gib (Météorologiques) en 3 fichiers .csv à travers un exécutable degrib.exe.

Code :

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

1
2
3
4
 
degrib.exe Grib.grb2 -C -msg 1 -Csv -Unit m -Decimal 0 
degrib.exe Grib.grb2 -C -msg 2 -Csv -Unit e -Decimal 0
degrib.exe Grib.grb2 -C -msg 3 -Csv -Unit e -Decimal 0

Le batch, l'exe et le fichier à convertir se situent dans un sous répertoire WX de mon application.

Le batch fonctionne parfaitement sur un double clic et les fichiers csv sont bien générés.

A partir de mon application, voici ce qu j'otiens grâce à une pause dans le batch:

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
 
D:\Projet Delphi\CPS\Win32\Debug>degrib.exe Grib.grb2 -C -msg 1 -Csv -Unit m -De
cimal 0
'degrib.exe' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.
 
D:\Projet Delphi\CPS\Win32\Debug>degrib.exe Grib.grb2 -C -msg 2 -Csv -Unit e -De
cimal 0
'degrib.exe' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.
 
D:\Projet Delphi\CPS\Win32\Debug>degrib.exe Grib.grb2 -C -msg 3 -Csv -Unit e -De
cimal 0
'degrib.exe' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.
 
D:\Projet Delphi\CPS\Win32\Debug>pause
Appuyez sur une touche pour continuer...

Voici maintenant comment je lance le batch:

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
function RunAndWait(const FileName: String): DWORD;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  Result := STILL_ACTIVE;
  GetStartupInfo(StartupInfo);
  if CreateProcess(nil, PChar(FileName), nil, nil, IsConsole,
    NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
  try
    if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) = WAIT_OBJECT_0
then
      GetExitCodeProcess(ProcessInfo.hProcess, Result);
  finally
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;
 
........
  Req :=extractFilePath(application.exename)+ 'WX\csv.bat';
  RunAndWait(Req);
........

J'ai parcourus des dizaines de sujets sur ce type de problème, mais aucun ne m'a proposé de solution ou de piste satisfaisante.

Je viens donc humblement solliciter votre aide.

Merci par avance.

Cordialement
Pierre

[MrBoo]

Hello,

Je pense que tu dois avoir un pb de repertoire courant.
Quand tu lance ton batch directement, tu es dan le même rep. que degrib.exe.
Par contre, en lançant depuis ton appli, le rep. courant doit tjs rester dans le rep. de ton appli, et pas le sous rep. WX

Juste pour essayer, copie ton .bat et degrib.exe dans le rep. de ton executable Delphi et modifie ton code pour executer :

Code :

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

1
2
3
4
........
  Req :=extractFilePath(application.exename)+ 'csv.bat';
  RunAndWait(Req);
........

Si là ça fonctionne, ça veut dire qu'il faudra trouver une solution pour changer le rep. courant avant d'executer ton .Bat
Quelqu'un aura peut-être une idée....

[Mode edition]
Je viens de regarder. Apparemment, il faudrait utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
........
  ReqDir :=extractFilePath(application.exename)+'WX/';
  Req    := ReqDir+ 'csv.bat';
 
  SetCurrentDir(ReqDir); //Change rep. courant
  RunAndWait(Req);
  SetCurrentDir(extractFilePath(application.exename)); //Retour sur rep. executable
........

ATTENTION : je n'ai pas mon Delphi sous les yeux, c'est donc de mémoire que je met ce code, sans compilation ni test....

[Pierre95]

Bonjour,

Aucun changement avec ta proposition
J'ai même placé l'exe et le fichier de donnée à convertir dans le dossier de l'appli.

Merci en tout cas pour la réponses

Cordialement
Pierre

[MrBoo]

Hello again,

En mode debuguage, je me demande si le rep. courant de Delphi n'est pas different. c'est le

D:\Projet Delphi\CPS\Win32\Debug

dans ton message precedent qui me met le doute....

Entre temps, j'ai modifié mon précédent msg. As-tu essayé avec mes ajouts?

[Pierre95]

GAGNE MrBoo,

Avec mes félicitations et remerciements sans limites.

Un Résolu de plus

Cordialement
Pierre

[MrBoo]

Heureux d'avoir pu t'aider....