Mitkriegen wenn VLC-Player beendet wird

[elcomportal]

Hallo,
ich habe jetzt mein erstes Lazarus-Programm fast fertig.
Der PC bekommt über die Com1 einen Befehl vom µC und startet dann den VLC-Player mit der entsprechenden Datei. Wenn der VLC-Player das Video fertig abgespielt hat schließt er sich. Wie kann mein Lazarus-Programm mitkriegen, wenn der VLC-Player fertig ist? Ich muß dem µC dann über Com1 weinen Befehl senden.

Es läuft auf Win XP, evtl. auch auf Win7. Der VLC-Player wird im Vollbildmodus gestartet.

Mfg
Torsten Müller

[Maik81ftl]

Das einzige, was mir dazu einfällt ich die Speicherüberwachung des von VLC. 'ne andere Option fällt mir zugegeben nicht ein. Nur wie des laufen soll bin selbst ich grad etwas doof...

[elcomportal]

Hmm, ich starte den VLC-Player auf folgende Weise:

Code: Alles auswählen

AProcess := TProcess.Create(nil);
   AProcess.CommandLine := 'C:\Programme\VideoLAN\VLC/vlc.exe ' + video1 + ' -f';
   AProcess.Execute;
   AProcess.Free;

Vielleicht kann man da irgendwie ein Handle rauskriegen und abfragen? Aber wie?

[creed steiger]

http://wiki.freepascal.org/LazActiveX" onclick="window.open(this.href);return false;

http://wiki.videolan.org/ActiveX" onclick="window.open(this.href);return false;

[Bora4d]

Wieso gibts du TProcess frei damit kannst du doch mitbekommen ob der Process noch läuft.
Einfacher ist es mit ExecuteProcess die Funktion wartet bis das gestartete Programm beendet ist. HIer:
http://www.freepascal.org/docs-html/rtl ... ocess.html

Hier sind genug Informationen:
http://wiki.freepascal.org/Executing_External_Programs

Und ein gutes Beispiel für TProcess:
https://lazarus-ccr.svn.sourceforge.net ... s/process/

[Maik81ftl]

Bora4d,

ich vermute mal, das er nicht unnötig einen Prozess laufen lassen will, was mich zugegeben nach deinem Post dahingehen die Stellen lässt, ob das Externe Programm, welches über einen Prozess gestartet wird nach dem Aufruf von

Code: Alles auswählen

AProcess.Free;

überhaupt noch weiter läuft oder beendet wird.

[schnullerbacke]

Bora4d,

ich vermute mal, das er nicht unnötig einen Prozess laufen lassen will, was mich zugegeben nach deinem Post dahingehen die Stellen lässt, ob das Externe Programm, welches über einen Prozess gestartet wird nach dem Aufruf von

Code: Alles auswählen

AProcess.Free;

überhaupt noch weiter läuft oder beendet wird.

Code: Alles auswählen

AProcess.Free;

sorgt eigentlich nur dafür das AProcess frei gegeben wird. Beenden des Prozesses geht mit:

Code: Alles auswählen

AProcess.Terminate(0);

Wenn AProcess mit:

Code: Alles auswählen

AProcess:= TProcess.Create(Self);

innerhalb eines Objektes erzeugt wurde, wird es auch automatisch mit dem Objekt entfernt. Wird Terminate(0) nicht verwendet läuft der Prozess weiter, bis er mit fork oder ähnlich beendet wird.