Discussion :

[kikica]

Bonjour,
Dans un fichier .bat j'ai ça:

Code :

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

1
2
3
4
5
 
@echo off 
PING MACHINE -n 2 -w 3000 2>NUL | FIND "TTL=" >NUL 
IF ERRORLEVEL 1 (ECHO Machine introuvable)
pause

Maintenant, je souhaite executer ceci en Delphi, sans utiliser mon fichier batch.
Donc, j'ai quelque chose du genre:

Code :

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

1
2
 
shellexecute(0,nil,'cmd.exe',PChar('/k ping '+edit1.Text+'-n 2 -w 3000 2>NUL | FIND "TTL=" >NUL IF ERRORLEVEL 1 (ECHO Machine introuvable'),'c:\',SW_SHOW);

Mais, ceci ne marche pas...

Merci pour toute aide.

[edam]

crée ton fichier batch avec votre prog puis execute le avec shellexecut
par example

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
 
procedure Tform.action;
var  t:TListstring;
begin
    t:=tstringlist.creat;
    t.clear;
    t.add('@echo off 
PING MACHINE -n 2 -w 3000 2>NUL | FIND "TTL=" >NUL 
IF ERRORLEVEL 1 (ECHO Machine introuvable) 
pause'
   t.savetofile('c:\batch.bat');
   t.free;   
shelexecute(0,nil,'c:\batch.bat','',1);
 
end;

[kikica]

Autremment dit, comment executer plusieurs commandes DOS dans une seule fenêtre, sans répéter le "shellexecute"?

[edam]

insér les dans un seul fichier batch, j'ai dit une bétise,non?

[kikica]

Merci beaucoup Edam, ça maaaaarche!!!
J'ai eu ton message concernant les Majuscules, mais les requettes c'est pas mon dada, alors, ça marche, c'est bon...

Merci encore!

[evarisnea]

si ton objectif est de faire des pings avec delphi, pourquoi ne pas utiliser directement la dll icmp.dll ? je crois avoir vu des exemples d'utilisation de celle ci dans le forum ou dans la FAQ.

[HumanTool]

non edam tu n'a pas dis de bétises (techniquement) mais kikica a dit :

Maintenant, je souhaite executer ceci en Delphi, sans utiliser mon fichier batch.

[HumanTool]

va comprendre.... :

[kikica]

Voici mon côde:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var  t: TStringList;
begin
    t:=tstringlist.create;
    t.clear;
    t.add('@echo off');
    t.add('PING '+edit1.Text+' -n 1 -w 3000 2>NUL | FIND "TTL=" >NUL');
    t.add('IF ERRORLEVEL 0 (ECHO OK)');
    t.add('IF ERRORLEVEL 1 (ECHO Machine introuvable)');
    t.add('pause');
   t.savetofile('c:\batch.bat');
   t.free;
shellexecute(0,nil,'cmd.exe',PChar('/k batch.bat'),'c:\',SW_show);

Le but était de pouvoir modifier le nom de la machine via edit1.
Maintenant je souhaite à la place de "ECHO OK" voir mon Shape1 modifier sa couleur: Shape1.color:=clblue;

Une idée? Merci.

[HumanTool]

ce serait plus facile de faire comme as dis evarisnea :

si ton objectif est de faire des pings avec delphi, pourquoi ne pas utiliser directement la dll icmp.dll ? je crois avoir vu des exemples d'utilisation de celle ci dans le forum ou dans la FAQ.

plutôt que d'essayer de récupérer des valeurs retournées par un batch...

[Graffito]

Bonjour,

Pour transférer un résultat de Batch au programme qui l'a lancé, tu peux utiliser différentes solutions comme comme :

• - avant de lancer le batch effacer un fichier de communication,
  - écrire le résultat "OK"/"Erreur"dans le fichier de communication ( ECHO xxx > C:/batchresult.txt>)
  - attendre dans le main que le fichier soit créé et le lire dans le batch.

ou bien :

• - lancer à la fin du batch un process de synchro qui va envoyer un évnement au process qui a lancé le batch

etc ..