Crear listas de reproducción
#1
Escrito 14 diciembre 2009 - 11:18
En la carpeta Mis documentos\Mi música tengo dos carpetas: Mis listas de reproducción y My playlists. La segunda es la que utiliza el Güindous Media Player.
¿Para qué está la primera carpeta?
¿En güindous Vista y güindous 7, es la misma carpeta que utiliza Media Player?
¿Alguien ha creado listas de reproducción para el iPod o Winam?
Salud.
#2
Escrito 14 diciembre 2009 - 11:36
I have just had to do this and its quite easy. If you place two listbox components on your form and call one Playlist and the other CodeBox. Then simply add the full filenames of the tracks to the Playlist listbox. {Do this using an opendialog component)
E:\Coldplay - X&Y\Coldplay - Speed Of Sound.mp3
E:\Coldplay - X&Y\Coldplay - Low.mp3
E:\Coldplay - X&Y\Coldplay - Fix You.mp3
Now add a savedialog component and a button and call it MakeM3U
Add the following code to the button like this.
procedure TForm1.MakeM3UClick(Sender: TObject);
var c:integer;
begin
if savedialog1.execute then
begin
Code.Items.Add('#EXTM3U');
for c:=0 to Playlist.Items.Count-1 do
begin
{add track name to M3U file]
Code.Items.Add('#EXTINF:0,'+ExtractFileName(Playlist.Items.Strings[c]));
Code.Items.Add(ExtractFilePath(Playlist.Items.Strings[c])+
ExtractFileName(Playlist.Items.Strings[c]));
{Add blank line}
Code.Items.Add('');
end;
Code.Items.SaveToFile(Savedialog1.FileName+'.m3u');
end;
end;
You should then have an M3U file which will play in Windows Mediaplayer,WinAmp etc.
Hope this helps.
cheers
jasper
Ahora estoy trabajando con el iPod... el problema es que NO TENGO UNO (ja)
Salud.