Считать данные из консоли запущенного приложения

[DYUMON]

Доброго всем времени суток.
Пытаюсь из своего приложения запустить другое консольное приложение и вывести на форме результаты.
Делаю так

Код: Выделить всё

procedure TPlayThread.Execute;

var
  MyProcess: TProcess;
  Buffer: array[0..127] of char;
  Readsize: integer;
  ReadCount: integer;
begin
  MyProcess := TProcess.Create(nil);
  //  try
  MyProcess.executable := 'D:\kod\consoletest\ptest.exe';
  Myprocess.parameters.add('1');
  Myprocess.parameters.add('2');
  Myprocess.parameters.add('31');
  Myprocess.parameters.add('Hell1');

  MyProcess.Options := MyProcess.Options + [poUsePipes];
  MyProcess.Execute;
  while MyProcess.Running do
  begin
    if MyProcess.Output.NumBytesAvailable > 0 then
    begin
      ReadSize := MyProcess.Output.NumBytesAvailable;
      if ReadSize > SizeOf(Buffer) then
        ReadSize := SizeOf(Buffer);
      ReadCount := MyProcess.Output.Read(Buffer, ReadSize);
      setstring(fStatusText, Buffer, ReadCount);
    end;
    Synchronize(@ShowStatus);
  end;
  // finally
  MyProcess.Free;
  // end;
end;                       


Но вывод в memo забивается одинаковыми строчками данных.
Подскажите как считывать данные по мере поступления.

[Alex2013]

Такой хак не подойдет ?

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
AllocConsole;
   try
    IsConsole := True;
    SysInitStdIO;
      Writeln(UTF8ToConsole('123 нажмите ентер'));
      Readln;
   finally
    FreeConsole;
   end;
end;


[DYUMON]

Да нет там надо запустить консольное приложение и забрать вывод. Сейчас пробую компонент с палитры TAsyncProcess , вроде как нормально.

[Alex2013]

Да нет там надо запустить консольное приложение и забрать вывод. Сейчас пробую компонент с палитры TAsyncProcess , вроде как нормально.

Извини, вначале не вник в суть вопроса.

Как вариант ...

Код: Выделить всё

{$mode delphi}  {$H+}
uses
   Windows,ShellAPI....   

Const  h:hwnd =0;
       SearchHandle:hwnd =0;

function EnumProc(h:HWND; lParam:DWord):boolean; stdcall;
var
ProcessId, z:cardinal;
begin
Result:=True;
GetWindowThreadProcessId(h, ProcessId);
If ProcessId=lParam then
begin
SearchHandle:=h;
Result:=False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ExecInfo: TShellExecuteInfoA;
var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
buf:array[1..100] of char;

S:String;
P:Pointer;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb:=SizeOf(si);
  P:=@EnumProc;
{  CreateProcess(nil, 'c:\windows\system32\cmd.exe', nil, nil, false,
  0, nil, nil, si, pi); }
  CreateProcess(nil, 'C:\Program Files\Far Manager\far.exe', nil, nil, false, 0, nil, nil, @si,@pi);
  SearchHandle:=0;
  sleep(150);
  While SearchHandle=0 do
  begin
  Windows.EnumWindows(@EnumProc,Lparam( pi.dwProcessId) );
  Application.ProcessMessages;
  end;
  H:=SearchHandle;
  if h<>0 then  begin
   windows.SetParent(h,form1.Handle);
   MoveWindow(h,0,0,Width,Height,true);
end;
end;


ИМХО Для наблюдения за консольным приложением (например за архиватором) самое то.
(Этот хак прячет окно консоли в внутрь GUI программы )

[iskander]

А по-простому

Код: Выделить всё

procedure TForm1.btRunClick(Sender: TObject);
var
  s: string;
begin
  if RunCommandIndir('D:\kod\consoletest', 'D:\kod\consoletest\ptest.exe',
                    ['1', '2', '31', 'Hell1'], s) then
    begin
      Memo1.Lines.BeginUpdate;
      try
        Memo1.Append(s);
      finally
        Memo1.Lines.EndUpdate;
      end;
    end;
end;


никак нельзя?

[Alex2013]

А по-простому
...
никак нельзя?

А разве таким образом будет отслеживаться работа процесса ?

[iskander]

А разве таким образом будет отслеживаться работа процесса ?

Доброго всем времени суток.
Пытаюсь из своего приложения запустить другое консольное приложение и вывести на форме результаты.

В какой части этого вопроса что-нибудь говорится об отслеживании?

[DYUMON]

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

[iskander]

С TAsyncProcess что-нибудь получилось?

[Alex2013]

В какой части этого вопроса что-нибудь говорится об отслеживании?

В этой !

Подскажите как считывать данные по мере поступления.

Добавлено спустя 14 минут 43 секунды:

С TAsyncProcess что-нибудь получилось?

Действительно интересно !

[iskander]

В этой !

Ага, уже увидел.

[DYUMON]

C TAsyncProcess тестовая консольку данные возвращает, но вот попытка запустить python.exe с передаваемым скриптом, рожает пустое консольное окно. И сказать запустился скрипт или нет, даже сказать не могу.

Добавлено спустя 1 минуту 9 секунд:
Ан нет , скприпт отрабатывает, но в memo пусто.

[Снег Север]

Использовать pipes.
https://www.programmersforum.ru/showthr ... 579&page=2

[DYUMON]

Да врожде делаю так

Код: Выделить всё

 
  Aprocess.Executable:='D:\kod\test\venv\Scripts\python.exe';
  AProcess.Parameters.Add('D:\kod\test\venv\test_parcer.py');
  AProcess.Parameters.Add('2020-11-14');
  AProcess.Options:=[poUsePipes];
  AProcess.Execute;

Появляется пустое консольное окно, если по диспетчеру задач судить ,скрпипт шуршит , в консоли тишина.

[Снег Север]

DYUMON, не знаю, как там это реализовано. На делфи я делал по этой ссылке, работал с перекодировками с ffmpeg и с API одного почтового сервере с консольным клиентом. Всё работало.