Discussion :

[Pedro]

Salut à tous
Etant un nouveau (et heureux) propriétéaire du bouquin D7 de O DAHAN et P TOTH, je me suis empressé de tester quelques trucs...
Quelle ne fut pas ma joie, en voyant un exemple sur la redirection DOS dans un Memo...
Pour la petite histoire, chez moi, ça ne marche PAS... Même avec les exemples donnés sur DVP...
Je m'éxécute donc et ouvre ce projet... Je lance et là, rien -tristesse-...
Pas de message d'erreur, seulement un blocage de l'appli pendant 1 ou 2 secondes puis rien... Le néant total... Ca n'affiche strictement rien...
Quelqu'un a-t-il déjà eu ce problème? Si oui, comment l'a-t-il réglé?
Merci d'avance

[MD Software]

Rappelle moi quel chapitre c'est.
Je vais vérifier, mais je ne me souviens pas d'avoir eu un problème

[Pedro]

Je n'ai pas le bouquin sous la main mais c'est le chapitre sur les processus...
En fait, chez moi, aucun exemple que l'on m'a donné n'a marché...

[MD Software]

J'ai la même erreur. Etrange, c'est pas normal. Je regarde.

[Mac LAK]

Pedro, MD : Allez sur mon site, téléchargez mon unité "LakUtils", et essayez la méthode "Lak.Shell.ExecuteAndCapture" : il fait la distinction entre applis 16 bits et applis 32 bits. L'erreur vient (peut-être) de là car la méthode de capture est différente.

Par contre, si le programme sort directement sur la sortie vidéo (c'était le cas de nombreux programmes DOS), la capture est tout simplement impossible.
Idem si le programme ne sort que sur stderr au lieu de stdout : ce flux n'est pas (normalement) capturé.

Pouvez-vous me donner le résultat de vos essais ?

[MD Software]

Voici le code. L'exécution refuse de passer par le ReadFile :

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
procedure run(cmd:string; txt:TStrings);
var
 PipeIn  :THandle;
 PipeOut :THandle;
 
 StartupInfo: TStartupInfo;
 ProcessInfo: TProcessInformation;
 
 Buffer: array[0..4096] of Char;
 NbRead: DWord;
begin
// Créer un pipe d'entrées/sorties
 CreatePipe(PipeIn,PipeOut,nil,0);
// Créer le process en redirigeant les E/S
 FillChar(StartupInfo, SizeOf(TStartupInfo),0);
 StartupInfo.cb         :=SizeOf(TStartupInfo);
 StartupInfo.dwFlags    :=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
 StartupInfo.wShowWindow:=SW_HIDE;
 StartupInfo.hStdInput  :=PipeIn;
 StartupInfo.hStdOutput :=PipeOut;
 StartupInfo.hStdError  :=PipeOut;
 CreateProcess(nil,PChar(cmd),nil,nil,True,0,nil,nil,StartupInfo,ProcessInfo);
// attendre la fin du process
 WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
// Fermer la sortie
 CloseHandle(PipeOut);
// pour relire le tout
 while ReadFile(PipeIn,Buffer,4096,NbRead,nil) do txt.Add(Buffer);
// fin
 CloseHandle(PipeIn);
end;

[Laurent Dardenne]

Un article sur le sujet
Il existe aussi un composant dans la section Source.

[the_magik_mushroom]

chez moi aussi cet exemple ne fonctionnait pas.

peut être un problème de compatibilité 9x-nt ?

[Pedro]

Pedro, MD : Allez sur mon site, téléchargez mon unité "LakUtils", et essayez la méthode "Lak.Shell.ExecuteAndCapture" : il fait la distinction entre applis 16 bits et applis 32 bits. L'erreur vient (peut-être) de là car la méthode de capture est différente.

Merci Mac LAK, j'ai chopé tes sources... Je crois même que je les avais déjà mais je ne les avais pas encore regardées...
Je savais effectivement qu'il y avait un problème entre 16 et 32bits... Mais je lance des fontions de base dir style "dir" (enfin: "Cmd.Exe /c Dir") ou l'exemple du bouquin D7 evec la commande ping... Y en a pas un qui marche...

[cpdump]

Je m'était penché sur le sujet pour faire un front end graphique, et j'avais trouvé cela : http://delphi.about.com/library/bluc/apps/consoleingui.zip

[Mac LAK]

Merci Mac LAK, j'ai chopé tes sources...

Mais la vraie question reste : ça marche, sur ton exemple ?

[Pedro]

Mais la vraie question reste : ça marche, sur ton exemple ?

Ben tu auras la vrai réponse demain quand j'aurai pu tester ton code
Je suis au taf et je n'ai pas Delphi sous la main

[Mac LAK]

T'as une drôle de notion de "demain", Pedro...

[Sub0]

Je ne suis pas sur, mais il me semble qu'il faut éxécuter le programme hors de l'edit... non ?
Ou bien cela doit dépendre de l'OS... Quel est votre système ?

[Mac LAK]

Je ne suis pas sur, mais il me semble qu'il faut éxécuter le programme hors de l'edit... non ?
Ou bien cela doit dépendre de l'OS... Quel est votre système ?

Sur 2000 et XP, en tout cas, j'ai déjà capturé des sorties de plusieurs mégas au sein même du debugger, avec mon unité...

[Pedro]

T'as une drôle de notion de "demain", Pedro...

Euh oui... La prochaine fois, promis, je ne fais pas 36000 choses à la fois et j'essaie ton code...