Une source liée à MsDos qui ne fonctionne pas

Question

Salut à tous j'avais lancé le débat sur la possibilité d'ouvrir une invite MsDos et de l'incruster dans une FORM. Divers solutions m'avaient été proposées mais résultats : des beugues. Je remercie évidemment les personnes qui ont bien voulu m'apporté une aide sur ce topic.

J'ai trouvé une source qui répond presque à mes attentes (voir les différences après). Elle vient de Laurent Dardenne voir le site http://Laurent-ardenne.Developpez.com (je me permet de citer ce site vu la collaboration entre les 2 et puis la source est disponible donc c'est pas pour rien):

nit Main;
{ Programme de démonstration du composant TDosCommand version d'origine
  http://Laurent-Dardenne.Developpez.com

 Comment l'utiliser ce composant :
 ---------------
  - Saisissez votre commande dans la propriété 'CommandLine'
  - executez the processus avec la méthode 'Execute'
  - Si vous souhaitez arrêter le processus avant sa fin normal, utilisez la méthode 'Stop'
  - Si vous souhaitez que le processus s'arrête après XXX seconde d'activité,
    utilisez la propriété 'MaxTimeAfterBeginning'
  - Si vous souhaitez que le processus s'arrête après XXX seconde sans donnée reçue en entrée,
    utilisez la propriété 'MaxTimeAfterLastOutput'
  - Pour rediriger directement la sortie du process vers un composant memo ou un richedit, ...
    utilisez la propriété 'OutputLines',
    exemple : DosCommand1.OutputLnes := Memo1.Lines;
  - vous pouvez accéder à toutes les sorties de la dernière commande par la propriété 'Lines' ;
  - vous pouvez changer la priorité du processus avec la propriété 'Priority';
    la valeur de la priorité doit être une de ces valeurs :
     [HIGH_PRIORITY_CLASS, IDLE_PRIORITY_CLASS,NORMAL_PRIORITY_CLASS, REALTIME_PRIORITY_CLASS]
  - vous pouvez recevoir un événement pour chaque nouvelle ligne et pour la
    fin du processus avec les événements suivants :
      procedure OnNewLine(Sender: TObject; NewLine: string;OutputType: TOutputType);'
      procedure OnTerminated(Sender: TObject);
  - vous pouvez envoyer des données en entrée au processus DOS via la méthode
    SendLine(Value : corde ; Eol : Boolean);
    Eol indique si le programme doit ajouter un CR/LF en fin de chaîne.

 Création du composant et convertion du code par Maxime_collomb@yahoo.fr .
 Code d'origine sur Community.borland.com :
  http://www.vmlinux.org/jakov/community.borland.com/10387.html
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DosCommand;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure DosCommand1NewLine(Sender: TObject; NewLine: String; OutputType: TOutputType);
    procedure DosCommand1Terminated(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
const Ajout_CRLF:Boolean=True;

Var  MaCommande :String;

begin
   // Exécute une nouvelle instance de l'interpréteur de commandes
   // Command.exe pour W98
 DosCommand1.CommandLine :='Cmd.exe';

  // Redirige la sortie du programme console vers un composant d'affichage TMemo ou autre
  // Dans cet exemple on utilise l'evénement OnNewLine
 //DosCommand1.OutputLines := Memo1.Lines;

  //Lance le programme console
 DosCommand1.Execute;

  // équivalent à la touche entrée
 DosCommand1.SendLine('', Ajout_CRLF);

  // Instruction pour le programme console
 MaCommande :='Ping 213.09.25.36';

  // Insére et exécute l'instruction contenue dans la chaîne
 DosCommand1.SendLine(MaCommande, Ajout_CRLF);
end;

procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: String;
  OutputType: TOutputType);
begin
 Case OutputType of
  otEntireLine:  Memo1.Lines.Add(NewLine);
  otBeginningOfLine :Memo1.Lines.Add('** Nouvelle ligne reçue **');
 end;
end;

procedure TForm1.DosCommand1Terminated(Sender: TObject);
 // La version amélioré permet de recevoir le code de sortie du process.
begin
 Memo1.Lines.Add('** Processus terminé **');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // on termine proprement l'instance de l'interpréteur de commandes
 DosCommand1.SendLine('Exit', True);
end;

Manque de chance lors de la compilation il y a plein d'erreur chez moi je précise, qui font que la compilation est pas possible. Entre autre le use Doscommand est pas reconnu. Donc là j'ai besoin de votre avis. Autre question serait possible de transformer cette source n'ont pas en mode console mais sur une FORM?????

Je vais faire 2 petits reproches à cette source mais bon. Il aurait été vraiment bien qu'il y ai un EDIT avec un bouton ENTRER. Dans l'EDIT on tape sa commande et elle est transmise au dos plutot que de définir une seule commande possible. Evidemment la perfection serait de transmettre le texte du DOS dans un mémo et de taper dans ce mémo nos propres instructions à la suite du retour du DOS. A chaque fois que l'on appuye sur la toucher ENTREE le texte est assimilé au message et envoyer au DOS. Ainsi on aboutirait à un véritable simulateur. Et la bingo Lolo il a le prix Nobel. Autre reproche une rediction en sortie des messages DOS comme dans l'invite. Mais bon sinon je félicite l'auteur à condition que la source puisse engendrer un executable

vaughan · Answer

Tu as besoin dans une form d'effectuer des commandes Dos comme l'invite DOS !!!

Il te suffirait pas dans un TMemo de tester quant l'utilisateur tap sur entrer et d'envoyer un process synchrone cmd.exe [ligne de commande] !!!

vaughan

Francky23012301 · Answer

En fait je cherches à faire cela : tu tapes par exemples C:\dir dans la form. Tu valides par entrer et tu vois la réponse MSDOS donc tout les fichiers de la racine apparaitre dans le DOS (et évidemment tu dois pas voir une invite MSDOS apparaitre sur l'écran). Ce n'est pas trop d'envoyer la commande qui me pose problème mais de masquer le DOS et de récuperer sur la FORM le résultat DOS de la commande.

vaughan · Answer

Voici en premi&#232;re approche :

Cr&#233;er un memo pour saisie et retour commande.
D&#232;s que l'utilisateur tape [Enter] tu r&#233;cupp&#232;res la ligne de commande.
Tu lance ton process synchrone en "Hide" avec r&#233;sultat en sortie fichier,
cmd /k [Ta commande] > [Ton_Fichier.tmp] & Exit
ensuite tu lis le fichier [Ton_Fichier.tmp] pour l'afficher dans ton TMemo

C'est pas terrible de passer par un fichier ... mais le dos c'est basic et il me semble pas possible d'avoir un retour autre qu'une sortie fichier ... a voir !!!

vaughan

Francky23012301 · Answer

Ecoute il semble que Laurent-Dardenne a reussit à le faire mais j'arrive pas à compiler son programme. 

J'avais une alternative mais mes connaissances en delphi ne sont pas suffisantes pour le mettre en source. Tu as une FORM deux boutons DOS et ARRETTER et un Mémo. Tu appuyes sur DOS : la tu as une fenetre MSDOS qui s'ouvre mais la taille de l'invite MSDOS correspond à celle du Mémo (je ne sais pas si on peut controler la taille de la fenetre MSDOS et je ne sais pas comment on fait en plus). Tu imposes la position de ta fenetre DOS de façon à ce qu'elle masque ton Mémo. Ensuite tu lies les coordonnées de la fenetre DOS avec celle de la FORM : ainsi si tu déplaces la FORM tu déplaces aussi le DOS (la form est donc toujours masqué).Quand tu cliques sur ARRETTER tu fermes ta fenetre MSDOS.

Alors c'est vrai c'est un effet purement visuel mais c'est une alternative théoriquement possible (en effet c'est un "trucage").

Ta solution est interressante mais il faut que ton fichier conduise à un écran (ton fichier ouvert dans le mémo) noir . Graphiquement il ya trop de parametres à prendre. Mais l'idée est bonne (je la met au frais car il y a surement moyen de creuser aussi de ce coté là)

vaughan · Answer

Moi je serai passé par un fichier tout de même ... mais chaqu'un ces choix !!! et faire du LoadToFile sur le TString Lines ... Voici en code les instruction nécessaire pour le pilotage de ta fenêtre Ms-DOS Par contre je n'ai pas fait dans le jolie ... a toi de placer ta fenêtre correctement unit UDos; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btGo: TButton; btStop: TButton; mmCmd: TMemo; procedure btGoClick(Sender: TObject); procedure btStopClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation Uses ExtActns; {$R *.dfm} procedure TForm1.btGoClick(Sender: TObject); Var vDos : TFileRun; vHwndDos : HWND; begin // Ouverture de l'invite DOs vDos := TFileRun.Create(self); Try vDos.FileName := 'cmd.exe'; vDos.Execute; Sleep(1000); // déplace et rédimensionne la fenêtre vHwndDos := FindWindow(nil, 'C:\WINDOWS\System32\cmd.exe'); if vHwndDos <> 0 then Begin MoveWindow(vHwndDos,mmCmd.Top+Form1.Top,mmCmd.Left+Form1.Left,mmCmd.Width,mmCmd.Height,True); End; Finally vDos.Free; End; end; procedure TForm1.btStopClick(Sender: TObject); Var vHwndDos : HWND; begin vHwndDos := FindWindow(nil, 'C:\WINDOWS\System32\cmd.exe'); if vHwndDos <> 0 then PostMessage(vHwndDos, WM_CLOSE, 0, 0); end; end. vaughan

Francky23012301 · Answer

Merci

Grace à toi les choses ont avancés.
J'ai deux petits problemens. La fenetre MSDOS a une taille qui ne coincide pas avec celle du Mémo et elle se place n'importe ou. Le bouton ARRETTER ne ferme pas ma fenetre MSDOS.

Merci pour tout

Francky23012301 · Answer

J'ai du changer mon code car cmd.exe mon pc connait pas j'utilise command.com unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmCmd: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure mmCmdChange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses ExtActns; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var vDos : TFileRun; vHwndDos : HWND; begin // Ouverture de l'invite DOs vDos := TFileRun.Create(self); Try vDos.FileName := 'command.com'; vDos.Execute; Sleep(1000); // déplace et rédimensionne la fenêtre vHwndDos := FindWindow(nil, 'C:\WINDOWS\System32\command.com'); if vHwndDos <> 0 then Begin MoveWindow(vHwndDos,mmCmd.Top+Form1.Top,mmCmd.Left+Form1.Left,mmCmd.Width,mmCmd.Height,True); End; Finally vDos.Free; End; end; procedure TForm1.Button2Click(Sender: TObject); Var vHwndDos : HWND; begin vHwndDos := FindWindow(nil, 'C:\WINDOWS\System32\command.com'); if vHwndDos <> 0 then PostMessage(vHwndDos, WM_CLOSE, 0, 0); end; procedure TForm1.mmCmdChange(Sender: TObject); begin end; end.

vaughan · Answer

Le faite de faire un PostMessage(vHwndDos, WM_CLOSE, 0, 0); ne fonctionna pas !!!
Essaies avec WM_DESTROY !!! Bizard

Tu as quelle version de windows ?

Je vais un peu plancher sur mon code pour trouver le bon rapport entre la fen&#234;tre dos et le memo ...

vaughan

vaughan · Answer

Je viens d'avoir la r&#233;ponse &#224; ma question ... tu as W98 ? 

vaughan

Francky23012301 · Answer

Oui j'ai windows98

rick hunteur · Answer

Bonjour

Je déterre le post car j'ai un Problème avec l'événement OnNewLine de TDosCommand.
J'arrive à traiter le string NewLine pour ne prendre que ce que je veux et j'arrive à l'afficher dans un Mémo. Mais impossible "d'exporter" le résultat dans un string.
Donc je peux afficher ce que j'ai extrait de NewLine dans un mémo mais je peux pas le mettre dans un string.

Quel est le problème ?

Merci

Une source liée à MsDos qui ne fonctionne pas

11 réponses

Votre réponse

Discussions similaires