Читает вывод из консоли

[Consol]

я делал программу что бы она запускала консольную программу и считывала ее результат, но почему то не считывает вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure RunDosInMemo(DosApp:String;AMemo:TMemo) ;
const
   ReadBuffer = 512;
var
 l:boolean;

 Security : TSecurityAttributes;
 ReadPipe,WritePipe : THandle;
 start : TStartUpInfo;
 ProcessInfo : TProcessInformation;
 Buffer : Pchar;
 BytesRead : DWord;
 Apprunning : DWord;
 x : Integer;
 MyStr : String;
begin


   x := 0;
   With Security do
   begin
    Security.nlength := SizeOf(TSecurityAttributes) ;
    Security.binherithandle := true;
    Security.lpsecuritydescriptor := nil;
   end;

   if Createpipe (ReadPipe, WritePipe,
                  @Security, 0) then
   begin
     Buffer := AllocMem(ReadBuffer + 1) ;
     FillChar(Start,Sizeof(Start),#0) ;
     start.cb := SizeOf(STARTUPINFO) ;
     start.hStdOutput := WritePipe;
     start.hStdInput := ReadPipe;
     start.dwFlags := STARTF_USESTDHANDLES ;
     start.wShowWindow := SW_SHOW;

     if CreateProcess(nil,
           PChar(DosApp),
           @Security,
           @Security,
           true,
           NORMAL_PRIORITY_CLASS,
           nil,
           nil,
           start,
           ProcessInfo)
     then
     begin
     CloseHandle(WritePipe) ;
         WaitForSingleObject(ProcessInfo.hProcess, INFINITE);

         BytesRead := 0;
         l:=ReadFile(start.hStdInput,Buffer[0],ReadBuffer,BytesRead,nil) ;

         ShowMessage(Buffer);
         Buffer[BytesRead]:= #0;
         OemToAnsi(Buffer,Buffer) ;

         AMemo.Lines.Add(MyStr);
         AMemo.Refresh;
         Application.ProcessMessages;

       FreeMem(Buffer) ;
       CloseHandle(ProcessInfo.hProcess) ;
       CloseHandle(ProcessInfo.hThread) ;
       CloseHandle(ReadPipe) ;

     end;

   end;

  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   RunDosInMemo('c:\cons.exe',memo1) ;
end;

end.

что сделано не так??? может кто знает???
да к стати консольная программа cons.exe просто выводит на экран строку 12345678910, написана на pascal может я что то не понял и нельзя так делать????

[Stilet]

http://www.programmersforum.ru/showt...ExecConsoleApp

Сравни свое с тем примером, или просто возьми его и используй

[Consol]

не знаю, но у меня то что ты скинул не работает, не дает никаких результатов, только ошибки выводит, ну я имеу квиду когда прописываю свою программу

[Stilet]

Consol

У меня все работает. Значит cons.exe дурная, или Ось твоя не позволяет того делать.

[Consol]

ну тоесть у тебя работает даже если ты свою подставляешь прогу вместо ping localhost????

[Stilet]

ну тоесть у тебя работает даже если ты свою подставляешь прогу вместо ping localhost????

Не понял? О чем это ты?

[Consol]

ну то есть мне то надо получить результат консольной программы cons.exe
а в том примере что ты мне дал там получаем результат команды ping localhost
так вот что мне надо сделать что бы получить результат работы cons.exe я как понимаю мне надо в функцию вместо ping localhost подставить cons.exe или я что то не понял???

[Stilet]

Ну да. имено. Все практически так же как и в твоем первом посте.

[Noor]

А не проще скидывать результат работы консоли в (пример temp.txt), а потом загружать в свою программу (Возможны проблемы с кодировкой кирилицы)
Пример:
ipconfig /all > C:\temp.txt

[Luke]

Написана на паскале... Стало быть она работает в DOS подсистеме (ntvdm), перехватить вывод таким способом не получиться.