criar tocador de mp3

Delphi

20/05/2004

Por favor como eu faço para criar um tocador de MP3, mais eu nao queria abrir um open dialog eu quero que ele exiba todos os audio de uma pasta, ou seja, faça uma lista como o ´Winamp´ desde ja eu agradeço quem poder me ajudar.


Leovj

Leovj

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

20/05/2004

Colega,
http://pbb-player.sourceforge.net/pbbforum/index.php
Player muito bom, e com o código livre...
Dê uma olhada..


GOSTEI 0
Cebikyn

Cebikyn

20/05/2004

E no código citado pelo Lucas (vlw Lucas, pela divulgação!), encontra-se o trecho que você precisa (para listar MP3s de uma pasta):

procedure GetAllFiles(const mask: string);
var
  search   : TSearchRec;
  directory: string;
begin
  directory := ExtractFilePath(mask);

  if FindFirst(mask, $23, search) = 0 then begin
    repeat
      // Aqui são manipulados os arquivos encontrados
      AdicionarALista(directory + search.Name);
    until FindNext(search) <> 0;
  end;

  // O resto da procedure trabalha com as sub-pastas,
  // você pode removê-lo, se este recurso não for útil ao seu programa:
  if FindFirst(directory + ´*.*´, faDirectory, search) = 0 then begin
    repeat
      if((search.Attr and faDirectory)=faDirectory)and(search.Name[1]<>´.´)then
        GetAllFiles(directory + search.Name + ´\´ + ExtractFileName(mask));
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;


E para usar a função, usa-se o seguinte (no exemplo, pegaria todos os arquivos MP3 de uma pasta e suas subpastas):

GetAllFiles(´C:\Pasta\Musica\*.mp3´)



GOSTEI 0
Leovj

Leovj

20/05/2004

muito obrigado pela força eu darei uma olhadinha e vou ver se consigo fazer vlw.


GOSTEI 0
POSTAR