Ir al contenido


Foto

Crear listas de reproducción


  • Por favor identifícate para responder
1 respuesta en este tema

#1 cannabis

cannabis

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 257 mensajes
  • LocationMéxico

Escrito 14 diciembre 2009 - 11:18

Estoy intentando crear una lista de reproducción desde los archivos/ficheros seleccionados por el usuario e integrarlo en el Güindous Media Player.

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.

  • 0

#2 cannabis

cannabis

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 257 mensajes
  • LocationMéxico

Escrito 14 diciembre 2009 - 11:36

Encontré esto en san google:

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.

  • 0




IP.Board spam blocked by CleanTalk.