день добрый.
исходная идея "проекта" - запуск "процесса", выхлоп приложения в текстовое поле и... желательно в отдельном потоке.
пока как-то не очень удачно :о)
TProcess выполняется в процедуре.
нужно иметь возможность "прекратить работу процесса", в любое время.
сам процесс (как-то работает) но попытка сделать abort не увенчалась, процесс заканчивает "сам по себе".
схемо/код упрощен, но, надеюсь, смысл понятен.
кидайте любые идеи, ссылки, чтив, помидоры, буду разбираться.
исходные
- linux / slaclware 14.2
- fpc 3.2.2
- lazarus 3.8.0 / gtk/qt4/5/
спасибо.
p.s.
наборосал мини-вариант, разбираюсь, проявились еще более непонятные "особенности" работы с "командами/консолью"
как что-то еще нащУпаю - дополню.
Код: Выделить всё
prc : TProcess;
////////////////////////////////////////////////////////////////////////////////
procedure mainform.PrcPrep();
////////////////////////////////////////////////////////////////////////////////
begin //
prc.Options := prc.Options - [poWaitOnExit]; //
prc.Executable := 'path_to_exe'; //
prc.Parameters.Add('-arg1'); //
prc.Parameters.Add('-arg2'); //
prc.Parameters.Add('-arg3'); //
end; //
////////////////////////////////////////////////////////////////////////////////
procedure mainform.PrcExe();
////////////////////////////////////////////////////////////////////////////////
var //
buff : string = ''; //
cnt : LongInt = 0; //
i : integer; //
//
begin //
//
try //
prc.Execute; //
//
repeat //
try //
SetLength(buff, BUF_SIZE); //
cnt := prc.Output.Read(buff[1],Length(buff)); //
if cnt > 0 then //
begin //
SetLength(buff,cnt); // не есть гуд
<работа с буффером buff> //
end //
finally //
(...) //
end; //
//
Application.ProcessMessages; //
until cnt = 0; //
//
except //
(...) //
end; //
//
prc.Active := false; //
prc.Parameters.Clear; //
end; //
////////////////////////////////////////////////////////////////////////////////
procedure mainform.PrcKill();
////////////////////////////////////////////////////////////////////////////////
begin //
// //
// всевозможные варианты данных команд //
// //
prc.Terminate(0); // SIGTERM //
prc.Active := False; // //
fpKill(prc.ProcessID, SIGKILL); // SIGKILL (9) //
end; //
////////////////////////////////////////////////////////////////////////////////
PrcPrep(); // вызов из одного обработчика
PrcExe (); //
...
PrcKill(); // вызов из другого обработчика
////////////////////////////////////////////////////////////////////////////////