Discussion :

[Frencher]

Bonjour à tous,

Je cherche à transformer ce code AutoIt en Code Dephi via MMB Plugin Builder mais sans aucun succès

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$cmd       = CHR(34)& "ping.exe 10.0.0.123" &CHR(34)
;
Local $Stream = Run(@ComSpec & ' /c "' & $cmd & '"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
;
While 1
  $line = StdoutRead($Stream)
  If @error Then
    $SetStr = 'Done'
    ExitLoop
  Else
  If $line <> '' Then
    $SetStr = $line
  EndIf
EndIf

GetStr est ma ligne de commande ($cmd)
"ping.exe 10.0.0.123"

SetStr pour le retour du contenu de CMD ($Send)
Envoi d'une requête 'Ping' 10.0.0.123 avec 32 octets de données :
Délai d'attente de la demande dépassé. etc...

J'ai bien réussi à lancer le ping mais pour en récupérer le contenu comme AutoIt

Code :

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

1
2
3
4
5
begin
  ShellExecute(0, nil, 'cmd', PChar('/C "'+GetStr+'"'),nil,SW_SHOW);
  //ShellExecute(0,'Open',PChar('/C "'+GetStr+'"'),nil,nil,SW_SHOW);
  SetStr:='Done'; 
end;

J'ai bien cherché dans des tutos mais je nage complètement

Merci d'avance pour votre aide

[tenpigs]

Indy permet de faire des ping : http://delphi.developpez.com/faq/?pa...ne_ip#indyping

[tourlourou]

Bonjour,
Tu pourras trouver une piste ici, et il ne faut pas oublier la simple redirection : 'ping.exe 10.0.0.123 >result.txt' qui devrait te fournir un fichier de sortie à exploiter.
Sinon, regarde du côté des Pipe, mais c'est certainement beaucoup plus complexe !

[Frencher]

Bonjour,
Tu pourras trouver une piste ici

Intéressant mais une usine à gaz

Il ne faut pas oublier la simple redirection : 'ping.exe 10.0.0.123 >result.txt' qui devrait te fournir un fichier de sortie à exploiter.

J'y avais pensé mais valable dans le cas d'un PING par contre un flux comme mplayer çà fait trop de données à traiter

Sinon, regarde du côté des Pipe, mais c'est certainement beaucoup plus complexe !

Là çà serai parfait, tellement parfait que ce sujet serai résolu, ahhhhh si c'estait vrai je pourai redonner vie à un programme de développement: Multi Media Builder (MMB)

[Frencher]

Bonjour,
Tu pourras trouver une piste ici

Voilà j'ai bien regardé mais le code à l'air de passer par un fichier temporaire et alourdir un long processus genre (mplayer, x264, etc...)


J'ai trouvé sur cette page ou l'on parle de stdcall mais je ne trouve aucun exemple => Lien de la rubrique sur stdcall Redirection console

Code :

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

1
2
3
4
5
6
uses
  ShellApi;
begin
  function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
end

J'ai aussi trouvé ce code source mais ne sait pas l'adapter

[Ph. B.]

Bonjour,

Voilà j'ai bien regardé mais le code à l'air de passer par un fichier temporaire et alourdir un long processus genre (mplayer, x264, etc...)

Vouloir rediriger les entrées sorties d'une application console est un bon moyen d'alourdir le processus.
Si vous voulez "pinguer" une machine (un site, un PC) pour s'assurer de sa disponibilité, le plus simple est de suivre le conseil donné par @tenpigs

Indy permet de faire des ping : http://delphi.developpez.com/faq/?pa...ne_ip#indyping

Ainsi, en gérant le ping en interne vous ne serez plus dépendant d'un programme tiers qui pourrait ne pas être disponible ou accessible...

[Frencher]

Je vous remerci de vous intéresser à mon sujet et me faire avancer son dévellopement

Le PING est un exemple, c'est juste histoire de récupérer les "pipe"
J'avais fait une demo il y à quelque temps c'était pour AutoIt mais il se trouve que certains plantages se produisent avec d'autres composantes ou plugins de MMB d'où l'idée de créer cette dll en passant par delphi

Télécharger la demo utilisant AutoIt via "Send.exe" pour être remplacé par une dll en code delphi

Pour voir le principe:
1-Décomprésser complètement l'archive dans un dossier
2-Executer "Lancez-moi.exe"
3-Cliquer sur le bouton "Stop Verbose = 0" il doit être sur =1
4-Cliquer sur le bouton "mplayer" puis valider le message par "OK"
5-Cliquer maintenant sur le bouton "SEND"

On peut voir en temp réel ce qui se passe dans mplayer sans passer par un fichier temps lourd et volumineux.

[Ph. B.]

Le PING est un exemple, c'est juste histoire de récupérer les "pipe"

Dans ce cas, il faut lancer le programme tiers via CreateProcess, capturer les flux d'entrée, de sortie et d'erreur...

Télécharger la demo...

Je préfère un mini projet de test plutôt qu'un exécutable, mais je suis un peu parano...

Enfin pour gérer les "pipes", il y a quelques années, Michael Brown avait fourni un code de base très utile mais qui nécessite quelques ajouts (il ne gère que StdOut, mais StdIn et StdErr sont déjà implémentés)
Voici le lien : Capturing stdin/stdout for called processes

J'avais juste modifié l'appel à CreateProcess en modifiant l'ordre des 2 premiers paramètres CreateProcess(nil, PChar(FileName), nil, nil, True, //....

[Frencher]

OK merci bien pour cette réponse rapide, j'ai rien compris lol mais bon je vais demander de l'aide