Überprüfen, ob nächste Datei Audio/Video ist und abspielen

[Nils_13]

Pseudocode:

Delphi-Quellcode:

procedure TfrmMain.tListTimer(Sender: TObject);
begin
  if not tb1.Max - tb1.Position = tb1.Max then
      Next_Audio;
  if tb1.Position = tb1.Max then
  begin
    tList.Enabled := False;
    tb1.Position  := 0;
    if (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.mp3') or
       (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.wav') or
       (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.wma') or
       (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.aif') or
       (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.aiff') or
       (LowerCase(ExtractFileExt(fFiles[playindex+1].Dateiname)) = '.ogg') then
    begin
      Next_Audio;
      tList.Enabled := True;
    end else
    begin
      if frmVideo.tb1.Position = frmVideo.tb1.Max then
      begin
        Next_Video;
      end;
    end;
  end;
end;