[gelöst] TProcess und OnTerminate Event ?

[DonMigos]

Hallo,
gibt es bei TProcess etwas ähnliches wie das OnTerminate Event bei TThreads ?
Also eine Möglichkeit auf die Beendigung eines Prozesses zu reagieren, der ja an das Betriebssystem zum abarbeiten übergeben wird.
ExitStatus und Running von TProcess helfen mir da nicht weiter, weil ich die ja abfragen müsste, ich hätte aber gerne eine direkte Aktion durch das beenden. (Eine Möglichkeit eine Prozedur durch das beenden aufzurufen).
http://lazarus-ccr.sourceforge.net/docs ... ocess.html

Mfg

[theo]

Mit TProcess.WaitOnExit kannst du darauf warten. Kann man auch in einem Extra-Thread ausführen, dann geht OnTerminate.

[DonMigos]

Danke für die schnelle Antwort !
TProcess.WaitOnExit verhindert aber das ich mehrere Prozesse gleichzeitig starte. Für jeden Prozess wiederum ein Thread zu starten würde ich nicht so gern machen. Das hatte ich vergessen zu sagen, ich will mehrere Prozesse starten und deren Anzahl begrenzen.
Die Aktion am Ende des Prozesses soll diesen (beendeten Prozess) aus einer Liste löschen und dafür einen wartenden (nicht ausgeführten) starten.

[theo]

Wieso nicht mit Threads? Wenn die Anzahl Prozesse begrenzt ist, ist das wahrscheinlich das einfachste.
Running willst du nicht abfragen, Threads willst du auch nicht. Da kann ich nicht mehr helfen.

[DonMigos]

Ja mit Threads wirds wahrscheinlich am einfachsten sein. Aber da TProcess ja ähnlich aufgebaut ist wie TThreads dachte ich es gäbe da eine Möglichkeit.
Könnte man sich eventuell mit TProcess.Handle ein eigenes OnTerminate Event basteln ?
Running und ExitStatus bringen mir ja nur was wenn ich die mit einem Timer abfrage, was aber Performance kostet.

[mse]

tmseprocess hat onprocfinished.
http://gitorious.org/mseide-msegui/msei ... rocess.pas

[mschnell]

tmseprocess hat onprocfinished.
http://gitorious.org/mseide-msegui/msei ... rocess.pas

Im Gegensatz zur Implementierung einer Eventqueue ist es ja vermutlich möglich, den kompletten mse-Code für TPropcess ion einem Lazarus-Projekt zu verwenden .

-Michael

[mse]

Im Gegensatz zur Implementierung einer Eventqueue ist es ja vermutlich möglich, den kompletten mse-Code für TPropcess ion einem Lazarus-Projekt zu verwenden .

Vermutlich ja.

[DonMigos]

Danke für den Tipp. Ich werde mich mal damit auseinandersetzen.

[DonMigos]

Für die mseprocess.pas braucht man ja noch hundert weitere pas und inc Dateien, das ist mir dann doch zu viel Aufwand.

Aber was ist denn damit ?
http://lazarus-ccr.sourceforge.net/docs ... ocess.html
Hier gibt es ein OnTerminate Event.

[theo]

Aber was ist denn damit ?

Geht wahrscheinlich. Hatte ich vergessen, das gehört zur LCL.

[DonMigos]

Hmm keine Reaktion, hier mal ein Beispiel:

Code: Alles auswählen

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, AsyncProcess, process;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
   procedure Term(Sender: TObject);  //Aktion am Ende eines AProcess
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Term(Sender: TObject);  //Aktion am Ende eines AProcess
begin
  ShowMessage('Ende');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  AProcess: TAsyncProcess;
begin
  AProcess := TAsyncProcess.Create(nil);
  try
     AProcess.Executable := 'calc.exe';
    //AProcess.Options := AProcess.Options + [poNoConsole];
    AProcess.OnTerminate:= @term;
    AProcess.Execute;
  finally
      AProcess.Free;
  end;
end;
end. 

[DonMigos]

Ah so nee ist ja klar, dass das so nicht geht. Nach Free ist ja nichts mehr da was einen Aufruf startet....

So gehts aber:

Code: Alles auswählen

procedure TForm1.Term(Sender: TObject);  //Aktion am Ende eines AProcess
begin
  ShowMessage('Ende');
end;
 
var
   AProcess: TAsyncProcess;    
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  AProcess := TAsyncProcess.Create(nil);
   AProcess.Executable := 'calc.exe';
   AProcess.OnTerminate:= @term;
   AProcess.Execute;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 AProcess.Free;
end;   

Wobei hier dann ein Try except sicher noch sinnvoll wäre...

[m.fuchs]

Statt dem .Free beim FormClose würde ich das Aufräumen lieber so machen:

Code: Alles auswählen

procedure TForm1.Term(Sender: TObject);  //Aktion am Ende eines AProcess
begin
  ShowMessage('Ende');
  FreeAndNil(Sender);
end;

Dann ist der Speicher früher frei und du musst auch die Referenz nicht mit speichern.

[DonMigos]

Danke für den Tipp werde ich so übernehemen. Das kommt wahrscheinlich dem FreeOnTerminate bei Threads gleich.
Ich hatte es auch schon mit AProcess.Free; in der Term Procdure versucht, aber so ist es allgemeiner und besser.