[DICA] - Organizando e reproduzindo suas MP3 com FSO ...

[Buscopan 0]

Olá Pessoal,

 

Frequentemente eu vejo a galera postando um monte de script, em sua grande maioria complexo para quem está iniciando, como é o meu caso.

 

Fiz um script simples, de acordo com as minhas necessidades. O que eu mais gostei nele, é que, embora possa se fazer de diversas maneiras, acredito ter feito

 

usando uma bem fácil.

 

Descrição: Supondo que cada artista/banda esteja com as suas musicas em uma pasta e que esta pasta pode ter diversas subpastas (no caso, os albuns deste

 

artista), este script de apenas uma página (poderiam existir várias, com includes e BDs, mas a idéia é ser simples) lista as pastas e os arquivos (musicas)

 

da pasta atual.

 

Gostaria de agradecer ao LucasBR por grande apoio e auxílio. Graças a sua ajuda, consegui trabalhar para que a musica possa ser tocada no proprio browser,

 

sem a necessidade de abrir um programa.

 

Bom, vamos ao código:

 

// Aqui criei uns estilos no proprio corpo para ficar mais fácil<style type="text/css"><!--.table1 {	font-family: Verdana, Arial, Helvetica, sans-serif;	background-color: #FFFFFF;	border: thin solid #003366;}.table2 {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 13px;	color: #003366;	background-color: #CCE6FF;}.table3 {	text-align: center;	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 13px;	font-weight: bold;	color: #FFFFFF;	background-color: #006699;}a:link {	color: #003366;	text-decoration: none;}a:visited {	color: #003366;	text-decoration: none;}a:active {	color: #003366;	text-decoration: none;}a:hover {	color: #006699;	text-decoration: none;}--></style><%caminho = request.QueryString("artista")// A idéia é que quando se clique em um artista abra-se a pasta dele. Para isso, altera-se o valor da variável caminho.if caminho = "" Then	// Substituir pela pasta onde ficam as suas MP3	caminho = "C:\Rodrigo\Musica"end ifSet fso = CreateObject("Scripting.FileSystemObject")Set folderObject = fso.GetFolder(caminho)Set filesObject = folderObject.FilesSet subFolders = folderObject.SubFolders%><%// Só exibe o cabeçalho da tabela, se existirem subpastas para a pasta atualIf subFolders.Count <> "0" Then%><table class="table1"><tr><td class="table3">Nº</td><td class="table3">Artista</td><td class="table3">Músicas</td></tr><%cont=0%><% For Each folderObject in SubFolders %>// Lista as pastas, conta e exibe quantos arquivos existem nela.<%cont=cont+1%><tr><td align="right" class="table2"><%=cont%></td><td class="table2"><a href="default.asp?artista=<%=folderObject.path%>"><%= folderObject.Name%></a></td><td align="right" class="table2"><% Set total = folderObject.Files %><% response.Write(total.Count) %> </td></tr><% Next %></table><br><%End if%><%// Só exibe o cabeçalho da tabela, se existirem arquivos para a pasta atualIf filesObject.Count <> "0" Then%><table class="table1"><tr><td class="table3">Nº</td><td class="table3">Música</td><td class="table3">Tamanho(Mb)</td></tr><%cont=0%><% For Each file In filesObject %><%cont=cont+1%><tr><td class="table2"><%=cont%></td><td class="table2"><%=file.Name%></td><td class="table2" align="right">Converte de Bytes para MegaBytes e exibe o resultado com apenas 2 casas decimais.<%=FormatNumber(Round(file.Size/1024/1024,2))%></td></tr><% Next %></table><br><% End If %><a href="java script:history.back();">[Voltar]</a><%Set subFolders = NothingSet fileObject = NothingSet folderObject = NothingSet fso = Nothing%>

 

Pronto !

Podemos aprimorar ainda mais isto, mandando executar o arquivo em questão no player ...

 

em uma outra página, colocamos o seguinte código

 

<OBJECT ID="WMPlay" border=0	CLASSID="clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95F"	codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"	standby=""	type="application/x-oleobject">   		<EMBED type="application/x-mplayer2" 		pluginspage="http://download.microsoft.com/download/winmediaplayer/nsplugin/6.4/WIN98/EN-US/wmpplugin.exe"   		src="teste.mp3"			NAME=WMPlay		ShowControls=1		ShowStatusBar=1   		displaysize="0"	<OBJECT ID="WMPlay" border=0	CLASSID="clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95F"	codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"	standby=""	type="application/x-oleobject">			<EMBED type="application/x-mplayer2" 		pluginspage="http://download.microsoft.com/download/winmediaplayer/nsplugin/6.4/WIN98/EN-US/wmpplugin.exe"   		src="teste.mp3"			NAME=WMPlay		ShowControls=1		ShowStatusBar=1   		displaysize="0"		height=68		>   		</EMBED>	</OBJECT>// -1 = automatico, 0 = Não , 1 = sim// O código inicial só funcionava no IE e não no FF. Com a ajuda do LucasBr e com algum estudo, descobri que o comando "param name" só funciona no IE. Para fazer isto CrossBrowser, é necessário utilizar os parâmetros dentro do EMBED.// Vai tocar o arquivo que estiver no parametro src (neste caso, teste.mp3)		>   		</EMBED>	</OBJECT>

Pronto !

 

Tudo o que se precisa fazer é através de um Frame ou Iframe, acrescentar um Link na primeira página para abrir na segunda, passando como parâmetro o Path do arquivo. Ai na segunda pagina, atraves de um Request.QueryString, captura-se este valor e joga no src.

 

 

 

 

 

 

 

 

 

 

 

Infelizmente, só toca uma música por vez. Gostaria de saber se teria como ir adicionando as musicas na sequência, a medida que vai clicando no arquivo a esquerda, adicionando na playlist (ou em uma outra pagina) a direita. Tentei adaptar o script da rádio uol, mas não tive sucesso.

 

Fiz uma pesquisa por Playlist ASP, e encontrei estes 2 sites aqui:

http://www.paulsadowski.com/WSH/ASP-Playlist.htm

http://www.microsoft.com/windows/windowsme...rticles/ad.aspx

 

Mas infelizmente não consegui entender / implementar.

 

Se alguém puder auxiliar, para que o script fique um pouco mais completo, eu agradeceria.

 

Novamente, obrigado ao LucasBr pelo auxílio e colaboração.

 

Sei que o script é simples, mas no meu caso foi útil ...

 

Valeu galera,

 

Até a próxima ...

[bah 0]

otimo script kraeu estava pensando em fazer exatamente este sistema, mas quando fui fuçar no laboratorio do ASP sem querer o achei.Se me permite vou transformar para php isso e fazer algumas modificações.Como por exemplo, criar uma playlist.Jogue um arquivo .m3u em um bloco de notas por exemplo, o código eh simples e pode ser feito um arquivo daquele por ASP (no meu caso, php).mas então beleza,muito bom o script, ta de parabens.abraços...