COMPOSANT CONSOLEIOHANDLER (ENVOYEZ UNE COMMANDE À UN EXECUTABLE "CONSOLE" WINDOWS OÙ DOS ET RECUPÉREZ LE RÉSULAT DANS UN TSTRINGS)

Commentaire de flo160fr le 11/04/2006 17:23:12

Ca serai bien de pouvoir utiliser la totalité des commandes dos avec ton prog... et pas juste ouvrir des applications consoles...

Commentaire de jace1975 le 16/11/2006 23:36:16

salut,

Commentaire un peu en retard , mais comme j'ecrit un petit interpréteur de commande en ce moment je me suis intéressé à ton code. franchement je te conseille et à ceux aussi qui liront le message par la suite d'utiliser la fonction ci-dessous qui marche vraiment bien car la tienne connait quelque limite génante , genre les rapports de pings incomplets, etc ... :

  procedure RunDosInMemo(DosApp: string; AMemo: Trichedit);
  const
    ReadBuffer = 2400;
  var
    Security: TSecurityAttributes;
    ReadPipe, WritePipe: THandle;
    start: TStartUpInfo;
    ProcessInfo: TProcessInformation;
    Buffer: Pchar;
    BytesRead: DWord;
    Apprunning: DWord;
  begin
    with Security do begin
        nlength := SizeOf(TSecurityAttributes);
        binherithandle := true;
        lpsecuritydescriptor := nil;
      end;
    if Createpipe(ReadPipe, WritePipe,
      @Security, 0) then begin
        Buffer := AllocMem(ReadBuffer + 1);
        FillChar(Start, Sizeof(Start), #0);
        start.cb := SizeOf(start);
        start.hStdOutput := WritePipe;
        start.hStdInput := ReadPipe;
        start.dwFlags := STARTF_USESTDHANDLES +
          STARTF_USESHOWWINDOW;
        start.wShowWindow := SW_HIDE;

        if CreateProcess(nil,
          PChar(DosApp),
          @Security,
          @Security,
          true,
          NORMAL_PRIORITY_CLASS,
          nil,
          nil,
          start,
          ProcessInfo)
          then
          begin
            repeat
              Apprunning := WaitForSingleObject
                (ProcessInfo.hProcess, 100);
              Application.ProcessMessages;
            until (Apprunning <> WAIT_TIMEOUT);
            repeat
              BytesRead := 0;
              ReadFile(ReadPipe, Buffer[0],
                ReadBuffer, BytesRead, nil);
              Buffer[BytesRead] := #0;
              OemToAnsi(Buffer, Buffer);
              AMemo.Text := AMemo.text + string(Buffer);
            until (BytesRead < ReadBuffer);
          end;
        FreeMem(Buffer);
        CloseHandle(ProcessInfo.hProcess);
        CloseHandle(ProcessInfo.hThread);
        CloseHandle(ReadPipe);
        CloseHandle(WritePipe);
      end;
  end;

tschussss.....

Commentaire de DRJEROME le 16/01/2010 09:17:05

Bonjour,

Un zéro pointé pour pompage d'un code ancien que l'on trouve sur tous les sites parlant de Delphi

runindos également se trouve dans un livre édition eyrolles de 2002

on le trouvait également avant 2001 traduit du langage C vers langage Delphi

donc.. un zéro pointé !

(merci d'enlever "initié" et de ne pas se citer comme créateur je rappelle que le plagia est condamnable et qu'il faut payer les droits d'auteur surtout quand ça été édité anciennement sous Copyright comme dans le cas présent)