WaitForSingleObject - GUI nicht ansprechbar

[Rer]

Hi @all,
ich bin grad dabei einen kleinen konverter zu schreiben der eigentlich nur eine konsolenanwendung mit parametern aufruft. Jetz kann der Benutzer auf den Button convert klicken und in einer Listbox wird er über den status konvertierung informiert (das mache ich weil man mehrere Datein am stück konvertieren können soll und es daher nützlicher is).
So nun rufe ich die Konsolenanwendung mit CreateProcess auf und warte mit WaitForSingleObject auf dessen Beendigung, aber während ich das mache ist mein GUI nicht ansprechbar und das ist eben auch schlecht bei mehreren datein die zu konvertieren sind weil erst ganz am ende die listbox aktualisiert wird.
Könnt ihr mir da weiterhelfen?
mfg
Rer

[jfheins]

Du könntest dier Arbeit in einen Thread auslagern - dann bleibt deine Anwendung weiterhin problemlos bedienbar.

TThread

[peep]

Oder setze in die Dateikonvertierungsschleife nach jeder Datei ein "MultiTasken"

Delphi-Quellcode:

procedure MultiTasken;
var
  M: TMsg;
begin
  if Peekmessage(M, 0, 0, 0, pm_Remove) then
  begin
    TranslateMessage(M);
    DispatchMessage(M);
  end;
end;

[DeddyH]

Diese "Multitasken"-Funktion gibt es in ähnlicher Form bereits als Application.ProcessMessages.

[alzaimar]

Zitat von Rer:

...und warte mit WaitForSingleObject auf dessen Beendigung, aber während ich das mache ist mein GUI nicht ansprechbar ...

Irgendwie auch logisch, nicht?

Die Sache in einen Thread auszulagern ist schon eine Möglichkeit, allerdings wirst Du Dir noch Gedanken machen müssen, wie du die Ergebnisse in der GUI darstellst (die VCL ist nicht threadsicher).

Eine andere Möglichkeit wäre, dein 'WaitForSingleObject' mit einem Timeout von z.B. 200ms aufzurufen und dann mit Application.ProcessMessages dafür zu sorgen, das die GUI nicht einfriert. Großartige Aktionen wirst Du aber nicht ohne Weiteres ausführen können (Programm beenden, abbrechen etc.). 'Ohne Weiteres' bedeutet hier, das es schon geht, aber eben nur mit etwas Schmalz.

Delphi-Quellcode:

While WaitForSingleObject (MyHandle, 100) = WAIT_TIMEOUT Do 
  Application.ProcessMessages;

[jfheins]

Da finde ich den Thread eleganter

Visuelle Ausgabe geht ja über die synchronize() -Methode ohne allzuviel Aufwand, und man kann das Warten einfach abbrechen indem man den Thread beendet.

Das könnte dann ungefähr so aussehen:

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    synchonize(GetNewJob);
    if {Job bekommen} then
    begin
      // Anwendung aufrufen und warten
      Output := ...;
      synchronize(JobDone);
    end
    else
      Suspend;
  end;
end;

[Apollonius]

Interessant. Nach 5 Antworten hat noch keiner die naheliegenste Lösung gepostet, die da lautet: MsgWaitForMultipleObjects. Einen Thread halte ich an dieser Stelle für Ressourcenverschwendung.

[peep]

Zitat von Apollonius:

Interessant. Nach 5 Antworten hat noch keiner die naheliegenste Lösung gepostet, die da lautet: MsgWaitForMultipleObjects. Einen Thread halte ich an dieser Stelle für Ressourcenverschwendung.

Naja, nicht jeder kennt eben alles .

Wenn Application.ProcessMessages nicht kompiliert, nehme ich halt MultiTasken .

[alzaimar]

Zitat von Apollonius:

Interessant. Nach 5 Antworten hat noch keiner die naheliegenste Lösung gepostet, die da lautet: MsgWaitForMultipleObjects.

Auf was für andere Objekte würdest du hier warten? Wie sähe dann der Code aus? Und wie lange hast Du dafür gebraucht? oder kennst Du die Einstellungen der Maskierungsbit auswendig...

Zitat von peep:

Wenn Application.ProcessMessages nicht kompiliert, nehme ich halt MultiTasken .

Uses Forms; Ich würde die Routine mal umbenennen, denn nachher bekommt du noch aus Versehen einen Nobelpreis, weil Du Multitasking hast, wo gar keins ist.

Zitat von jfheins:

Da finde ich den Thread eleganter

Nun ja, aber auch komplizierter. (Kompliziert = Elegant )
Wenn ich da eine Schleife habe, die auf irgendwas wartet, und ich hab keinen Bock, das die Anwendung einfriert, ruf ich eben kurz mal 'Application.ProcessMessages' auf. Wozu einen einzigen(!) Task im Hintergrund ablaufen lassen, während der Anwender eh nichts machen kann, außer sich zu freuen, das die GUI nicht eingefroren ist...?

[Apollonius]

Delphi-Quellcode:

while MsgWaitForMultipleObjects(1, @Handle, False, INFINITE, QS_ALLINPUT) = WAIT_OBJECT_0 + 1 do
  Application.ProcessMessages;