Re: M3U Playlist Creator
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 |
Re: M3U Playlist Creator
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. |
Re: M3U Playlist Creator
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:
Gespeichert wird das ganse so
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
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; |
AW: M3U Playlist Creator
Playlist Creator - Download geht nicht.
|
AW: M3U Playlist Creator
Zitat:
|
AW: M3U Playlist Creator
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! |
AW: M3U Playlist Creator
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz