TProcess - ожидание завершения запущенногоприложения.

[arriah]

Здравствуйте,

Нужна помощь. Поиском пользовался на форуме, но ответа не нашел.
Суть такая:

имеется некая программа (softina.exe), которая выполняет определенные действия и лог этих действий пишет в файлик. Для запуска программа использует конфигурационный файл.

При помощи TProcess сделал следующее:

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

          Process1.Executable:='softina.exe';
          Process1.Execute;
          Process1.WaitOnExit; //ожидаем завершения
          Memo2.Lines.Add(grName+' - Выполнено');


Вроде нормально работает, за исключением того что моя программа "неактивна", так как ожидает завершение запущенной программы.
Мне надо сделать так чтобы программа была отзывчива к пользователю, но при этом продолжала ждать завершения.
Запущеная софтина пишет лог в файл, и в моей программе надо в реальном времени отслеживать эти логи - но из ожидания - она этого не может.

Есть ли какой-то вариант поправить это дело?

Спасибо.

[yus]

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

Вот статья в Вики про TProcess.
http://wiki.freepascal.org/Executing_External_Programs/ru

[arriah]

Спасибо, это я читал. Но как запустить в отдельном потоке. так и не понял. Может подскажете?

[yus]

Упрощенно так.
Описываем поток который будет запускать программу.

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

....
{ TMyThread }

  TMyThread = class(TThread)
  public
    procedure Execute; override;
  end;   
....
procedure TMyThread.Execute;
var
  pr: TProcess;
begin
  pr := TProcess.Create(nil);
  try
    pr.CommandLine := 'calc.exe';
    pr.Execute;
    pr.WaitOnExit;
  finally
    FreeAndNil(pr);
  end;
end;


Потом описываем метод OnTerminate, котрый вызовется при завершении потока.

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

procedure TForm1._OnTerminate(Sender: TObject);
begin
  Memo1.Lines.Add('end');
  FreeAndNil(Fmypr);
end;       



создаем поток и стартуем его.

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Fmypr := TMyThread.Create(True);
  Fmypr.OnTerminate := @_OnTerminate;
  Fmypr.start;
end;               

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

Еще раз повторюсь, это самый упрощенный вариант.

[arriah]

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

Добавлено спустя 1 час 38 минут 38 секунд:
Что-то у меня не срослось даже на самом простом примере, при компиляции:

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

there is no method in an ancestor class to be overridden "TMyThread.Execute;"

[slyubez]

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

Вначале надо понять вот такую вещь:
http://www.sql.ru/forum/actualfile.aspx?id=17919774

[arriah]

Для понимания порисходящего сделал вот что:

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

  TestThread = class {TThread}
    private
      results:integer;
    protected
      procedure ShowResult;
      procedure Execute; override;
    public
      Constructor Create (CreateSuspended: boolean);
  end;
...
   constructor TestThread.Create(CreateSuspended:boolean);
begin
  FreeOnTerminate:=True;
  inherited Create(CreateSuspeded);
end;

Procedure TestThread.ShowResult;
begin
  Form1.Edit1.Text:=InToStr(results);
end;

Procedure TestThread.Execute;
var
  i:integer;
  begin
    results:=0;
    for i:=0 to 65000 do
        begin
          results:=results+1;
          Synchronize (@ShowResault);
        end;
  end;

Бросил на форму кнопку и edit, в обработчике кнопки прописал:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  StartThread:TestThread;
begin
  StartThread:=TestThread.Create(true);
  StartThread.Resume;
end;

При компиляции снова ошибка:

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

there is no method in an ancestor class to be overridden "TestThread.Execute;"

И доку почитал на вики...
Мозг? руки?

[yus]

Для понимания механизма работы с потоками, есть замечательная статья.
Читать и перечитывать, читать и перечитывать до просветления
http://forum.vingrad.ru/topic-60076.html

[Vadim]

Если речь идёт только о Windows, то вторую программу можно запускать с помощью Shellexecute(). Эта winapi функция выпнет её в отдельный процесс, не задерживая основную программу.

[alexs]

Попробуйте TAsyncProcess
Он именно для асинхронного запуска предназначен.
Там есть события на чтение вывода от запущенного процесса.

[arriah]

Если речь идёт только о Windows, то вторую программу можно запускать с помощью Shellexecute(). Эта winapi функция выпнет её в отдельный процесс, не задерживая основную программу.

Да,речь идет только о Windows, но весь вопрос в том, что мне надо отследить завершение вызыванной софтины.

[PapaNT]

В видне и никсах есть номер процесса. Можно, к примеру, раз в секунду проверять завершение порожденного процесса. Еще можно попробовать поиграться с семафорами в ОС.

[arriah]

В видне и никсах есть номер процесса. Можно, к примеру, раз в секунду проверять завершение порожденного процесса. Еще можно попробовать поиграться с семафорами в ОС.

Можно, но через потоки оказалось удобнее и проще