Abfragen wann mpPaused

[f4k3]

Hey DP'ler ;

Folgendes: Ich hab eine Form auf der ein MediaPlayer liegt und über ein Panel das Video anzeigt. Der Pfad für das Video kommt aus meiner Paradox Datenbank. Wenn das Video zuende ist möchte ich in den nächsten datensatz springen und dort den Pfad für das video laden. das ganze soll solange passieren bis alle Datensätze durch sind.
Vorher wird allerdings noch überprüft ob der Datensatz verwendet werden soll.

Delphi-Quellcode:

   while fMain.tVideo.Eof = false do
   begin
      if fMain.tVideo.FieldByName('Status').AsBoolean = True then
      begin
           mpScreen.FileName := fMain.tVideo.FieldByName('Pfad').AsString;
           mpScreen.Open;
           mpScreen.Play;
      end
      else
      begin
           fMain.tVideo.Next;
      end;

Wo setz ich jetzt den code für die überprüfung ob das Video zuende ist? Setz ich ihn hinter mpScreen.Play; nütz das nichts weil er nach Play sofort wieder an den Anfang der Schleife springt.

Thx für euer Antworten

[Aurelius]

Machs doch in einen Timer...

[f4k3]

Hab ich schon versucht muss aber irgendwo ein Denkfehler drin sein

Delphi-Quellcode:

   while fMain.tVideo.Eof = false do
   begin
      if fMain.tVideo.FieldByName('Status').AsBoolean = True then
      begin
           mpScreen.FileName := fMain.tVideo.FieldByName('Pfad').AsString;
           mpScreen.Open;
           mpScreen.Play;
           tScreenTimer(Sender);
      end
      else
      begin
           fMain.tVideo.Next;
      end;

   end;

Delphi-Quellcode:

procedure TfScreen.tScreenTimer(Sender: TObject);
begin
    if mpScreen.Mode = mpStopped then
      begin
          mpScreen.Close;
          fMain.tVideo.Next;
      end;
end;

Er springt schon in den Timer aber da der Timer auf 1 Sek eingestellt ist ist der MediaPlayer noch auf Play und somit springt er in den nächsten Datensatz dann bräuchte ich ja die Dauer des Videos um die Zeit für den Timer zu setzen??

[f4k3]

Keiner ne idee?