[gelöst] Batch ausführen

[Adrian]

Servus!

Bei meinem Programm erstelle ich eine Batch-Datei, die ich auch von der Anwendung heraus starte.
Das mache ich mit folgendem Konstrukt:

Code: Alles auswählen

  AktionsMemo.Lines.Add('Die Umsetzung läuft ...');
  Application.ProcessMessages;
  AProcess := TProcess.Create(nil);
  AProcess.Executable:= 'Umsetzer.bat';
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
  DeleteFile('Umsetzer.bat');
  AktionsMemo.Lines.Add('Umsetzung beendet.');

Die Abarbeitung kann mehrere Minuten dauern. Wenn ich nun während dieser Zeit andere Fenster öffne, die mein ursprüngliches Programmfenster (teilweise) überdecken, dann bleiben diese Bereiche nach dem Schließen oder Verschieben des anderen Fensters so lange weiß, bis die Batch-Datei beendet ist. Und das gefällt mir ganz und gar nicht.
Gibt es eine Möglichkeit - und wenn ja, welche - das ursprüngliche Programmfester alle paar Sekunden aufzufrischen?
Wie würde das unter Linux funktionieren?
Gibt es eine bessere Möglichkeit die Batch-Datei zu aktivieren als TProcess?

Gruß
Adrian

[Socke]

Gibt es eine Möglichkeit - und wenn ja, welche - das ursprüngliche Programmfester alle paar Sekunden aufzufrischen?

Dein Programm wartet darauf, dass deine Batch-Datei fertig wird (poWaitOnExit). Daher kann es währenddessen nichts anderes tun.
Du musst also die Batch-Datei ohne poWaitOnExit starten und an anderer Stelle dessen Ende überprüfen.

Das geht z.B. über das Event OnRunCommandEvent.

Code: Alles auswählen

begin
  AktionsMemo.Lines.Add('Die Umsetzung läuft ...');
  Application.ProcessMessages;
  AProcess := TProcess.Create(nil);
  AProcess.Executable:= 'Umsetzer.bat';
  AProcess.Options := AProcess.Options;
  AProcess.OnRunCommandEvent  := @DoHandleRunCommandEvent;
  AProcess.Execute;
end;

procedure TForm1.DoHandleRunCommandEvent(Sender, Context: TObject;
  Status: TRunCommandEventCode; const Message: string);
begin
  if Status = RunCommandFinished then
  begin
    AProcess.Free;
    DeleteFile('Umsetzer.bat');
    AktionsMemo.Lines.Add('Umsetzung beendet.');
  end;
end;    

[Adrian]

Hallo Socke,

vielen Dank für die Antwort.
Es liegt also am poWaitOnExit. Ich muß mir allerdings eine andere Lösung als die von dir vorgeschlagene suchen, denn ich arbeite noch mit Version 2.0.6 und fpc 3.0.4, da gibts das OnRunCommandEvent noch nicht.
Da ich aber nun die Ursache kenne, werde ich schon etwas passendes finden.

Gruß
Adrian

[Jorg3000]

Hi!
Ohne poWaitOnExit starten und nach .Execute folgende Warteschleife einbauen (ungetestet)

Code: Alles auswählen

while AProcess.running do
begin
 Application.ProcessMessages;
 Sleep(50);
end;

[Adrian]

Hallo Jorg3000,

du kannst es als "getestet" bezeichnen.
Funktioniert wunderbar!
Ein dickes Danke.

Gruß
Adrian

[alfware17]

Ich habe Dein Problem verstanden und werde meinen Aufruf vielleicht auch noch auf asynchron umstellen. Hast du aber gelöst (wenn ja wie?), daß das aufrufende Programm mindestens solange wach bleibt, bis das aufgerufene Programm fertig ist?

Und vielleicht hast du ja noch mehr programmiert? Was ist mit dem Output des aufgerufenen Programms? Ich habe hier dazu gerade einen Thread erstellt, den die Profis sicher auch gleich in den Einsteigerbereich verschieben gedanklich, vielleicht hätte ich ihn auch hier erstelllen sollen

viewtopic.php?f=10&t=14412