AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

m3u Playlist abspielen

Ein Thema von Nils_13 · begonnen am 8. Jan 2006 · letzter Beitrag vom 9. Jan 2006
Antwort Antwort
Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: m3u Playlist abspielen

  Alt 9. Jan 2006, 17:17
Delphi-Quellcode:
sl := TStringList.create();
  try
    sl.loadFromFile(FileName);

    try
      if sl.Count = 0 then
        raise Exception.Create('Die Playlist-Datei ist leer');

      //format checken
      if sl[0] = '#EXTM3Uthen
      begin
        { extended m3u playlist }

        //durch alle einträge interieren
        for i:=1 to sl.Count-1 do
        begin
          if copy(sl[i], 1, 8) <> '#EXTINF:then
            AddSongToPlayList(sl[i]);
        end;
      end
      else
      begin
        { standard m3u playlist }
        for i:=0 to sl.count-1 do
        begin
          AddSongToPlayList(sl[i]);
        end
        else
          raise Exception.Create('Dies ist leider keine unterstützte Playlist-Datei');
      end;
    except
      raise;
    end;
  finally
    sl.free();
  end;
in der prozedur AddSongToPlayList() wird der übergebene dateiname dann geladen. die prozedur behandelt relative und absolute dateinamen, sowie internetstreams, UNC-netzwerkpfade und http-/ftp-pfadangaben.

nur so als denkanstoß...

aeno
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz