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??