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.....