M3U Playlist Creator

[Hybrid666]

hi, die funktion gibt es ohne ein "\" zurück, also einfach c:\blabla\Anwendungsdaten

ich hab in meinem project joytoany ne funktion verbaut, die das appdata verzeichniss auf allen system sucht (teils systemabhängig) und eine fehlerbehandlung besitzt, kannst es dir ja auf sourceforge mal anschaun. ist in der uJTAFunctions.pas drinne.

MfG

[toyoman]

Nochmal zum Thema Logfile Erstellung.
Habe das Problem erkannt und nun die Technik überarbeitet. Neu sollte also die OS Sprache kein Problem mehr darstellen. Ausserdem wird die Ordnerstruktur nun auch wirklich automatisch erstellt (da war auch noch ein Bug drin). Ich verwende neu die getAppDataPath Funktion für die Erkennung des Anwendungsdaten Ordners im Profil.

Download: Source ist aktuell, siehe erster Beitrag.

[master87]

Naja man kann ja nur mp3 und wav in die playlist einfügen.Veleicht ist das hier was für dich hab ich sogar hier gefunden.
Ist auf der bass.dll aufgebaut und ist aus dem Porject Mein erster mp3 player.

Delphi-Quellcode:

procedure TForm1.BtnAddFilesClick(Sender: TObject);
var i: Integer;
begin
  if FilesOpenDialog.Execute then
    for i := 0 to FilesOpenDialog.Files.Count - 1 do
      MeMPPlaylist.Add(FilesOpenDialog.Files[i]);
end;//Die Sounds werden in eine Tlistview eingefügt

Gespeichert wird das ganse so

Delphi-Quellcode:

procedure TForm1.BtnSaveListClick(Sender: TObject);
begin
  if PlaylistSaveDialog.Execute then
    MeMPPlaylist.SaveToFile(PlaylistSaveDialog.FileName);
end;

Delphi-Quellcode:

// ================================================
// Playlist-Dateien laden und speichern
// ================================================
procedure TMeMPPlaylist.LoadFromM3U(aFilename: String);
var mylist: tStringlist;
  i: Integer;
  s: String;
begin
  mylist := TStringlist.Create;
  mylist.LoadFromFile(aFilename);
  if (myList.Count > 0) then
  begin
    if (myList[0] = '#EXTM3U') then //Liste ist im EXT-Format
    begin
      i := 1;
      while (i < myList.Count) do
      begin
        // Zuerst kommen ggf. die ExtInf-Daten
        s := myList[i];
        if trim(s) = '' then
          inc(i)
        else
        begin
          if (copy(s,0,7) = '#EXTINF') then // ExtInf-Zeile überspringen
            inc(i);
          Add(ExpandFilename(myList[i]));
          inc(i);
        end;
      end;
    end
    else
      // Liste ist nicht im EXT-Format - einfach nur Dateinamen
      for i := 0 to myList.Count - 1 do
      begin
        if trim(mylist[i])='' then continue;
        Add(ExpandFilename(myList[i]));
      end;
  end;
  FreeAndNil(myList);
end;

Delphi-Quellcode:

Hier wird sie direckt alls m3u gespeichert
procedure TMeMPPlaylist.SaveAsM3U(aFilename: String);
var myList: tStringlist;
    i:integer;
    aAudiofile: TAudioFile;
begin
  myList := TStringList.Create;
  myList.Add('#EXTM3U');
  for i := 0 to fPlayList.Count - 1 do
  begin
    aAudiofile := fPlaylist[i] as TAudioFile;
    myList.add('#EXTINF:' + IntTostr(aAudiofile.Dauer) + ','
          + aAudioFile.Interpret + ' - ' + aAudioFile.Titel);
    myList.Add(ExtractRelativePath(aFilename, aAudioFile.Pfad ));
  end;
  myList.SaveToFile(afilename);
  FreeAndNil(myList);
end;

[hathor]

Playlist Creator - Download geht nicht.

[DiamondDog]

Zitat von hathor:

Playlist Creator - Download geht nicht.

Muss ich zustimmen, wäre super wenn jemand den Link fixen könnte.

[s.h.a.r.k]

Da wird niemand den Link fixen können. Die Domain scheint tot zu sein und somit ist der Download wohl auch gestorben. Außer jemand hat das Ding noch.

Das kommt aber davon, wenn man meint extern hosten zu müssen -- I hate it!

[himitsu]

Ihr könntet versuchen eine PN an toyoman zu schicken,
wenn dieser sich via eMail über den PN-Empfang informieren läßt, die Mail-Addy noch existiert, er darauf auch noch reagiert usw., dann könntet ihr Glück haben.
PS: Er war hier seit über einem Jahr nicht mehr online.

oder, man gehe auf www.google.de und suche dort mal nach "M3U Playlist Creator" (inkl. der Anführungszeichen) und habe Glück bei der Suche oder finde ein Alternativprodukt.