[DOS] Redirection ne fonctionne pas

Version imprimable

08/06/2005, 08h50
Pedro

[DOS] Redirection ne fonctionne pas

Salut à tous :D
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... :evil: 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... :cry:
Quelqu'un a-t-il déjà eu ce problème? Si oui, comment l'a-t-il réglé?
Merci d'avance :D
08/06/2005, 09h27
MD Software

Rappelle moi quel chapitre c'est.
Je vais vérifier, mais je ne me souviens pas d'avoir eu un problème
08/06/2005, 09h35
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é... :cry:
08/06/2005, 09h50
MD Software

J'ai la même erreur. Etrange, c'est pas normal. Je regarde.
08/06/2005, 12h13
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 ?

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

Code:

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;

08/06/2005, 13h13
Laurent Dardenne

Un article sur le sujet
Il existe aussi un composant dans la section Source.
08/06/2005, 13h31
the_magik_mushroom

chez moi aussi cet exemple ne fonctionnait pas.

peut être un problème de compatibilité 9x-nt ?
08/06/2005, 13h57
Pedro

Citation:

Envoyé par 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.

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... :wink:
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... :cry:
08/06/2005, 15h05
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
08/06/2005, 15h38
Mac LAK

Citation:

Envoyé par Pedro204

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

Mais la vraie question reste : ça marche, sur ton exemple ?
08/06/2005, 15h40
Pedro

Citation:

Envoyé par Mac LAK

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 :wink:
Je suis au taf et je n'ai pas Delphi sous la main :cry:
10/06/2005, 18h05
Mac LAK

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

http://yelims.free.fr/Forum/Panneau05.gif
12/06/2005, 22h18
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 ?
13/06/2005, 00h04
Mac LAK

Citation:

Envoyé par 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 ?

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é...
13/06/2005, 08h45
Pedro

Citation:

Envoyé par Mac LAK

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

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