Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#8

Re: Überprüfen, ob nächste Datei Audio/Video ist und abspiel

  Alt 1. Okt 2006, 21:57
Zitat von 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;
wenn du zeit hast und möchtest das ich dir helfe geh mal über ICQ

gruß
  Mit Zitat antworten Zitat